Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to autofill (copy paste)
Good day all,
Normally, I'd just continue using the 'fill handle' to complete my work, but I'm working with a xls with over 10,000 rows and I'm sure there is a better way. I have pasted some code below that seems to work, but I need to have it modified a bit to meet my needs. I'd like it to ask the user which column to search, and work from the top down instead of the bottom up. What I need to do is take the first cell value in the specified column, and copy it the all the blank cells below it - until it runs into a new value - then take that cell value, and copy that to all the blank cells below it and so on. I guess the next question would be, 'how do stop the routine from ending ie copying 66000 rows" Well, there will always be a value to the right of the searched column, so I guess if there is no value, the routine could stop. Thank you in advance...Here the code I found: Sub Tester6() Dim rng2 As Range, rng As Range Set rng2 = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) On Error Resume Next Set rng = rng2.SpecialCells(xlBlanks) On Error GoTo 0 If Not rng Is Nothing Then rng.FormulaR1C1 = "=R[-1]C" rng2.Formula = rng2.Value Else MsgBox "Non found" End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro | Excel Programming | |||
autofill or copy & paste "till a value" | Excel Programming | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
Macro to Copy/Paste then Paste to Next Line | Excel Programming |