Autofill Error

[ch-d]

Hi,

I need a macro to autofill COLUMN A with a word say YES until the last row
found in COLUMN B.

Right now I have the ff codes:

Sheets("VOUCHER - STEP 2").Select
Range("A5").Select
ActiveCell.FormulaR1C1 = "DEBIT"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Set Voucher2 = Worksheets("VOUCHER - STEP 2")
Range("A5").Select
Selection.AutoFill Destination:=Range("A5:" & LastRow(Voucher2))

It shows an error on the autofill range. THANKS!

 

[Mike H]

Hi,

Maybe this

Sub Fill_Yes()
Set sht = Sheets("VOUCHER - STEP 2")
LastRow = sht.Cells(Cells.Rows.Count, "B").End(xlUp).Row
sht.Range("A5").Value = "DEBIT"
With sht.Range("A5").Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.ColorIndex = xlAutomatic
End With
sht.Range("A6:A" & LastRow).Value = "Yes"
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Mike Fogleman]

You have a lot of unneeded code and selections are rarely needed. The main
problem seems to be with the filldown range. Try something like this code:

Sub FillA5Down()
Dim sht As Worksheet
Set sht = Sheets("VOUCHER - STEP 2")
sht.Range("A5").Value = "DEBIT"
With sht.Range("A5").Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.ColorIndex = xlAutomatic
End With
sht.Range("A5", Range("B5").End(xlDown)).FillDown
End Sub

Mike F

 

[Don Guillett]

Sub FillA5Down()
Dim sht As Worksheet
Set sht = Sheets("sheet8")
sht.Range("A5").Value = "DEBIT"
With sht.Range("A5").Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.ColorIndex = xlAutomatic
End With
lr = sht.Range("B5").End(xlDown).Row
sht.Range(Cells(5, 1), Cells(lr, 1)).FillDown
End Sub

 

[ch-d]

To Mike H, Mike Fogleman and Don Guillett: THANKS A BUNCH! you guys helped me
alot as always! ;-) THANKS!