how to loop in macro?

[omairhe]

if i am in an active cell which is empty and want to stop the macro at this point, what code should i type in visual basic to achieve this ... thanks

 

[jbeaucaire]

try:

If Activecell.Value = "" Then Exit Sub

 

[omairhe]

thanks dear .. also can u tell me how to repeat a code in vba.
it would be like pressing the assign value for the code again and again. but i believe there should be a code in vba for this..

 

[Scott Huish]

It sounds like you may be selecting ranges in your VBA code, which is generally not necessary, you can work with ranges directly in VBA.

What is it you are trying to do exactly?

 

[omairhe]

Sub Macro2()
'
' Macro2 Macro
'

'
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Application.Goto Reference:="R30C10"
Selection.End(xlUp).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("A9").Select
ActiveSheet.Paste
Sheets("History").Select
Range("G3").Select
End Sub



..now i want to repeat this macro until Range("G3").Select is "Blank" .
Note: i am using relative references so G3 will continue below to be G4, G5 G6 and so on, untill there is a blank value in it that should stop the macro performing above.

i think i need a loop macro but i can't understand on how to use it with this code.. thanks

 

[Scott Huish]

You can probably do this without a loop. You want to copy from G2 down until it hits a blank from what sheet and paste it where exactly?

 

[omairhe]

copy from Sheets("History").Select
and paste to Sheets("Sheet3").Select

lets say paste it in cell A1 of Sheet 3

 

[Scott Huish]

XL2007 won't let you name a sheet History, so I had to call it History2 for this sample:

Sub test()
Worksheets("History2").Range("G2", Range("G2").End(xlDown)).Copy Worksheets("Sheet3").Range("A1")
End Sub

 

[omairhe]

thanks it works well!!!

 

[foolycoolycurry]

try:

If Activecell.Value = "" Then Exit Sub

Thanks so much. This also helped me. I am working in MS Project's VBA and couldn't get a "Do Until" loop to work correctly with the ActiveCell variable. This puts a stop to it just when I want it to.