Then GoTo atla

[peleryn]

Herkese Merhabalar;

Aşağıdaki kod işimi görüyor.Döngüye giriyor belirttiğim koşullar varsa atlıyor.Döngünün tamamını çevirip işimi de tamamlıyor..Peki döngünün çıkışında belirttiğim mesajı neden vermiyor.!?Bir türlü anlayamadım.Bir yorum getiren olursa sevinirim.

Private Sub CommandButton2_Click()
Dim Hücre As Range

For Each Hücre In Sheets("Sayfa4").Range("amaclar")
If Hücre.Value = "" Then Exit Sub
If Right(Hücre.Value, 6) = "MODÜLÜ" Then GoTo atla
'son 6 harfi MODÜLÜ olanları atlayacak
With Sheets("BEP")
.Range("A7").Value = Hücre.Value
.PrintOut
End With
atla:
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[peleryn]

) pardon arkadaşlar..iki saattir nedenini bulamadım.şimdi buraya yazınca farkettim sanırım If hücre.Value="" Then Exit Sub yüzünden mesaj vermeden çıkıyor.

Şimdi tekrar bakacağım.Gerçekten sorun buysa vaktini aldığım arkadaşlardan özür dilerim.

 

[peleryn]

İşlem tamamdır

If hücre.Value="" Then GoTo zipla
....
...
zipla