Fill column macro that stops

  • Thread starter Thread starter DireWolf
  • Start date Start date
D

DireWolf

I have a speadsheet that has data in column A

I want to have a macro that takes the header from B1 and fills the
rest of column B until the end of data in column A

I currently use this code but it fills too far and I get an error when
I then try and import the file into another application.

Dim X As Range

Set X = ActiveSheet.[B1]
X.AutoFill Destination:=X.Resize(X.End(xlDown).Row, 1)
Range("B1:B10").Select

So in persudo code I suppose its like this

while A != empty
fill B
else
end
 
Just use column A for the row size...
'-----------------------------------
Sub FillTheColumn()
Dim X As Range
Dim XX As Range

Set XX = ActiveSheet.Range("A1")
Set X = ActiveSheet.[B1]

X.AutoFill Destination:=X.Resize(XX.End(xlDown).Row, 1)
Range("B1:B10").Select

Set X = Nothing
Set XX = Nothing
End Sub
'-----------------------------------

Regards,
Jim Cone
San Francisco, CA
 
Thanks Jim, worked a treat.

:)


Just use column A for the row size...
'-----------------------------------
Sub FillTheColumn()
Dim X As Range
Dim XX As Range

Set XX = ActiveSheet.Range("A1")
Set X = ActiveSheet.[B1]

X.AutoFill Destination:=X.Resize(XX.End(xlDown).Row, 1)
Range("B1:B10").Select

Set X = Nothing
Set XX = Nothing
End Sub
'-----------------------------------

Regards,
Jim Cone
San Francisco, CA

DireWolf said:
I have a speadsheet that has data in column A
I want to have a macro that takes the header from B1 and fills the
rest of column B until the end of data in column A
I currently use this code but it fills too far and I get an error when
I then try and import the file into another application.
Dim X As Range
Set X = ActiveSheet.[B1]
X.AutoFill Destination:=X.Resize(X.End(xlDown).Row, 1)
Range("B1:B10").Select
So in persudo code I suppose its like this
while A != empty
fill B
else
end
Click to expand...
Click to expand...
 
Back
Top