Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill Error
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill Error
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. "ch-d" wrote: 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! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill Error
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 "ch-d" wrote in message ... 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! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill Error
To Mike H, Mike Fogleman and Don Guillett: THANKS A BUNCH! you guys helped me
alot as always! ;-) THANKS! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error on Autofill | Excel Programming | |||
Error 1004 - Autofill | Excel Programming | |||
Autofill & On Error Resume Next | Excel Discussion (Misc queries) | |||
AutoFill Funtion Error | Excel Programming | |||
Autofill Error | Excel Programming |