makroda if fonk siyonu

[haaky]

Sheets("Form").Select
ActiveSheet.Unprotect
Range("G1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A2:B3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("List").Select
Range("A10").Select
Selection.Insert Shift:=xlDown
Range("B5").Select

If Range sheets("list").(g8) > 0 Then GoTo LN 101

Yukarıdaki makroda eğer list sheet`indeki g8 hücresi sıfırdan büyükse makronun başa dönerek kendini tekrar etmesini değilse sonlanması komutuna yardımcı olabilir misiniz lütfen ? Teşekkürler

 

[Tankut SAZLI]

Bunu denermisiniz.

LN 101:
Sheets("Form").Select
ActiveSheet.Unprotect
Range("G1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A2:B3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("List").Select
Range("A10").Select
Selection.Insert Shift:=xlDown
Range("B5").Select

If Range sheets("list").(g8) > 0 Then 
GoTo LN 101
else
exit sub