Hata Yakalama

[tuvons]

Merhaba arkadaşlar,

For döngüsü için yazdığım kodun arasına "on error goto xxx" yazıyorum ama ilk hatada "xxx"e gidiyor sonraki hatalarda gitmiyor ve hata veriyor. Bunun nedeni ne olabilir?

On Error GoTo virmanyok
If S2.Cells(x, 2) = "virman yapılmayacak" Then GoTo virmanyok

 

[Muzaffer Ali]

Merhaba.
Bu şekilde hata kontrolü sadece kodları yazarken denetim için kullanmalısınız.
Uygulamanızı bitirdikten sonra hata veren satırları bulup gerekli düzenlemeler mutlaka yapılmalıdır.
Uygulamanız bittiğinde hiçbir hatalı satır olmamalıdır.

Kodlarınızın hepsini yada mümkünse dosyanızı paylaşın daha doğru çözüm üretmeye çalışalım.

 

[Haluk]

Hata denetimini resetlemek için aşağıdaki satırı da ilave edin, öyle çalıştırın....

On Error GoTo 0

.

 

[tuvons]

@Haluk Bey yazdığınız kodu bir kaç farklı yere ekledim ama etkili olmadı. Benim dosyada aslında hatalı yazılan kod yok ama veriler her zaman sağlıklı olamıyor. Hata alan satırda bulunan #YOK değerinden dolayı böyle bir hata alınıyor. Benim istediğim de #YOK olan satırları for döngüsünden çıkarmak ve sonraki satıra geçmek. Yazdığım kodun bir kısmı aşağıda. Yardımcı olabilir misiniz?

For Each sIsim In sIsimler
Set S2 = Worksheets(sIsim)
sonsatir1 = S2.Cells(Rows.Count, "A").End(3).Row
For x = 2 To sonsatir1
On Error GoTo virmanyok
If S2.Cells(x, 2) = "virman yapılmayacak" Then GoTo virmanyok
On Error GoTo 0
S1.Cells(y, 1) = sonsatir2
S1.Cells(y, 2) = "H"
*****
*****
sonsatir2 = sonsatir2 + 1
y = y + 1
virmanyok:
Next x
Next sIsim

 

[Haluk]

Bilemiyorum ama şöyle bir deneyin....

    For Each sIsim In sIsimler
        Set S2 = Worksheets(sIsim)
        sonsatir1 = S2.Cells(Rows.Count, "A").End(3).Row
        For x = 2 To sonsatir1
            If S2.Cells(x, 2) = "virman yapılmayacak" Or S2.Cells(x, 2) = "#YOK" Then GoTo virmanyok
            S1.Cells(y, 1) = sonsatir2
            S1.Cells(y, 2) = "H"
            '*****
            '*****
            sonsatir2 = sonsatir2 + 1
            y = y + 1
virmanyok:
        Next x
    Next sIsim

Veya bunu;

    For Each sIsim In sIsimler
        Set S2 = Worksheets(sIsim)
        sonsatir1 = S2.Cells(Rows.Count, "A").End(3).Row
        For x = 2 To sonsatir1
            If S2.Cells(x, 2) = "virman yapılmayacak" Or IsError(S2.Cells(x, 2)) Then GoTo virmanyok
            S1.Cells(y, 1) = sonsatir2
            S1.Cells(y, 2) = "H"
            '*****
            '*****
            sonsatir2 = sonsatir2 + 1
            y = y + 1
virmanyok:
        Next x
    Next sIsim

.