Assigning a variable and pasting variable to last unused column.

[Ageia]

Hi all.
Rather then waste another 4 hours trying to figure this out, ill just ask.

I need to assign a variable to equal a Constant variable, then I need to find the last unused row on the worksheet, then paste that variable down the column (1-12200 or so rows). I also need to assign Strings for the first two Rows in the target column.

Dim FilterPressureDrop as String
Dim °C as String 
Dim Cons as Double
'Constant of FilterPressureDrop
Cons = -99 
'Write Data to last used column on sheet1 after all calls have been done. 
Sheets("Sheet1").Select
Columns("A:A")

Sorry, dont have much VB experience.

[rwgrietveld]

That's not much code to start with. Please upload your sheet as we need to see how the data is distributed.

Start by recording your steps and I think you should use the Edit -> GoTo -> Special for this.

We'll make sensable code out of that.

[Kenneth Hobson]

Insert a Module and paste:

Option Explicit
Const x = 99
 
Sub FillA()
  Sheet1.Range("A1", Cells(Sheet1.UsedRange.Rows.Count, "A")).Value = x
End Sub

[Ageia]

That's not much code to start with. Please upload your sheet as we need to see how the data is distributed.

Start by recording your steps and I think you should use the Edit -> GoTo -> Special for this.

We'll make sensable code out of that.

My problem is I dont know exactly how to code the rest.. Prior to this I have numerous Calls to populate the sheet. This code has to occur after them. I need to count the used columns, and find the last unused one, then paste the String PressureFilterDrop and then the Units °C then the variable.
Basically it'll look like this in Excel


FilterFlow TransferMassFlow FilterPressureDrop
m³/s g/s °C
0.001545833 0.593156197 -99
0.001546667 0.595364971 -99
0.001546667 0.595364971 -99
0.001546667 0.595364971 -99
0.001546667 0.597172149 -99
ect
ect

to End Rows

[Kenneth Hobson]

Not sure what you want to paste. Pasting may not be the best route.

If you attach an xls with a before an after example, it might be easier to help you.

[Ageia]

Not sure what you want to paste. Pasting may not be the best route.

If you attach an xls with a before an after example, it might be easier to help you.

would like to see something like this in the end.

\1

[Kenneth Hobson]

It is still not clear.

If you have that data in another range, then a copy/paste is easy. Of course I still wouldn't know where you would want it pasted.

e.g. Data in A1:E21. I am guessing you want the range in the image on some sheet pasted to say F22? That is one row down and one column over from the sheet's UsedRange.

[Ageia]

Not sure what you want to paste. Pasting may not be the best route.

If you attach an xls with a before an after example, it might be easier to help you.

I cant upload anything. The site is reporting database errors.