Please Help..Odd Macro Request

[H-Man]

I need to start anywhere in column B. Color Green, then copy..when the macro is run again, i need it to start where it left off, then do it again...

EX:

Say i start at B10, When i run the macro i need it to select B10 thru B28, Color Green, then copy....end Macro...

WHen i run it again, I need it to select B29 thru B47, color green, then copy.

and so on...and so on....

Please Help

Thanks

 

[jbeaucaire]

Try this:

Option Explicit
Public StartRow As Long

Sub MyColorCopyMacro()
If StartRow = 0 Then
    StartRow = Application.InputBox("What is the first row to start with today?", _
                                        "Start", 10, Type:=1)
    If StartRow = 0 Then Exit Sub
End If

With Range("B" & StartRow).Resize(19)
    .Interior.ColorIndex = 4
    .Copy
End With

StartRow = StartRow + 19
End Sub

 

[H-Man]

Try this:

Option Explicit
Public StartRow As Long
 
Sub MyColorCopyMacro()
If StartRow = 0 Then
    StartRow = Application.InputBox("What is the first row to start with today?", _
                                        "Start", 10, Type:=1)
    If StartRow = 0 Then Exit Sub
End If
 
With Range("B" & StartRow).Resize(19)
    .Interior.ColorIndex = 4
    .Copy
End With
 
StartRow = StartRow + 19
End Sub

I had to change "19" to "18"...other then that it worked....Thank you !!!