Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004, Looping Error?
What should it do?
this is the culprit, i needs to go to something For i = 1 To 1 -- -John Northwest11 Please rate when your question is answered to help us and others know what is helpful. "shorticake" wrote: I'm having difficulty getting this macro to loop. I keep getting the run time error 1004, or the macro will continue to insert rows until it reaches the last available row in the sheet. Any help or suggestions are greatly appreciated. Dim i As Integer Dim Rng As Range Dim lFirstRow As Long With ActiveSheet.Range("B:B") Dim findstring As String findstring = "200611" Set Rng = Range("B:B").Find(What:=findstring, After:=Range("B" & Rows.Count), LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then lFirstRow = Rng.Row Do With Rng.Offset(1, 0) For i = 1 To 1 .EntireRow.Insert xlShiftDown Next i End With Set Rng = .FindNext(Rng) Loop While Not Rng Is Nothing End If End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run Time 1004 Error: Application or Object Difine Error | Excel Programming | |||
Error 1004, Application-definded or object-defined error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) |