on error goto hata1: HATASI

[musak64]

Sheets("Sayfa4") deki -i- ye bagli olan hücre Degeri #DEGER# olarak görünüyor ve If Cells(i, 11) = 1 Then satirinda hata olusuyor. On Error Goto hata1: bir defalik calisiyor. daha sonra tekrar hata mesaji veriyor. benim istedigim i döngüsü icersinde olusan her hatada bir sonraki i degerinden devam etsin.
yardimlariniz icin simdiden tesekkürler.

Sub ANALIZ()

For j = 1 To 41
Sheets("Sayfa1").Select
Columns("G:IR").Select
Application.CutCopyMode = False
Selection.Copy
Columns("A:A").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False

For i = 130 To 257


Sheets("ANALIZ").Select
sat = WorksheetFunction.CountA([a1:a65000])


Sheets("Sayfa4").Select
On Error GoTo hata1:
If Cells(i, 11) = 1 Then
Sheets("ANALIZ").Cells(sat + 2, 1) = Sheets("Sayfa4").Cells(i, 2)
Sheets("ANALIZ").Cells(sat + 2, 2) = Sheets("Sayfa4").Cells(i, 3)
Sheets("ANALIZ").Cells(sat + 2, 3) = Sheets("Sayfa4").Cells(i, 4)
Sheets("ANALIZ").Cells(sat + 2, 4) = Sheets("Sayfa4").Cells(129, 11)
Else
End If
hata1:
Next i
Next j
End Sub


Örnek benzer dosya asagida ektedir.

 

[zafer]

Merhaba


Dosya ekleyebilirmisiniz.

 

[musak64]

örnek benzer dosya asagida ektedir. Yardimlarinizi bekliyorum.

 

[zafer]

Merhaba

H sütununuzdaki hücreleri aşağıdaki formüle göre düzenleyiniz.
Eğer formül hatalıysa 0 yazar değilse formülün işlemini gerçekleştir.

Çalışan makroda hataya düşmez.


=EĞER(EHATALIYSA(DOT(B1:B20;A1:A20;1;1));0;DOT(B1:B20;A1:A20;1;1))

 

[musak64]

Sayin Zafer cok tesekkür ederim. Dogru cözüm. Benim su anki problemimi cözdü. Ancak On Errror Goto Hata1: neden döngü icersinde sadece 1 defalik islem görüyor. Döngü icersinde olusacak her hata da calisacak bir komut yok mudur ki?

 

[zafer]

merhaba

Hatayı gözardı edip devam eder.

Kodlarınızın başına

On Error Resume Next

yazın

 

[musak64]

Sn Zafer onuda denedim ancak On Error Resume Next bir sonraki komut satirindan devam ediyor. Yani if fonksiyonunun kullanimi amacina ulasmiyor. Yani Hata durumunda if fonksiyonunda Sart gerceklesmesede isleme devam ediyor. Buda istemedigim sonuclarin da hücrelere yazilmasina sebeb oluyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

if iserror(cells(i,11))=true then goto hata1:

 

[musak64]

Cok tesekkür ederim Sayin leventm. Tam aradigim sonuc.

 

[musak64]

Ayrica sizede tekrar tesekkür ederim Sn Zafer.