Makro Deger Yok Hatası hk.

[arifcetin93]

Merhaba,
asagıdaki yapımda ısaretlı kalın olanlardan birisi olmayınca kod duruyor hata verıyor olmayanı yok sayarak devam etmesi icin neyi eklememiz lazım



Sayfa4.Cells(17, "G") = AA_TRY / BB_Euro
Sayfa4.Cells(18, "G") = CC_TRY / DD_Euro
Sayfa4.Cells(19, "G") = EE_TRY / FF_Euro

Sayfa4.Cells(17, "G") = VBA.Round(Sayfa4.Cells(17, "G"), 4)
Sayfa4.Cells(18, "G") = VBA.Round(Sayfa4.Cells(18, "G"), 4)
Sayfa4.Cells(19, "G") = VBA.Round(Sayfa4.Cells(19, "G"), 4)

 

[hamitcan]

Kod satırlarının başına aşağıdaki satırı ekleyin. Hatanın neden kaynaklı olduğunu anlamazsınız belki ama kod çalışır.

on error resume next

 

[Muzaffer Ali]

Merhaba.

on error resume next kullanmak hata kontrolü yapılamayacağı için doğru bulmuyorum
Aşağıdaki şekilde daha verimli olur.

    If AA_TRY <> 0 And BB_Euro <> 0 Then
        Sayfa4.Cells(17, "G") = AA_TRY / BB_Euro
        Sayfa4.Cells(17, "G") = VBA.Round(Sayfa4.Cells(17, "G"), 4)
    End If
    
    If CC_TRY <> 0 And DD_Euro <> 0 Then
        Sayfa4.Cells(18, "G") = CC_TRY / DD_Euro
        Sayfa4.Cells(18, "G") = VBA.Round(Sayfa4.Cells(18, "G"), 4)
    End If
    
    If EE_TRY <> 0 And FF_Euro <> 0 Then
        Sayfa4.Cells(19, "G") = EE_TRY / FF_Euro
        Sayfa4.Cells(19, "G") = VBA.Round(Sayfa4.Cells(19, "G"), 4)
    End If

 

[arifcetin93]

Merhaba.

on error resume next kullanmak hata kontrolü yapılamayacağı için doğru bulmuyorum
Aşağıdaki şekilde daha verimli olur.

    If AA_TRY <> 0 And BB_Euro <> 0 Then
        Sayfa4.Cells(17, "G") = AA_TRY / BB_Euro
        Sayfa4.Cells(17, "G") = VBA.Round(Sayfa4.Cells(17, "G"), 4)
    End If
   
    If CC_TRY <> 0 And DD_Euro <> 0 Then
        Sayfa4.Cells(18, "G") = CC_TRY / DD_Euro
        Sayfa4.Cells(18, "G") = VBA.Round(Sayfa4.Cells(18, "G"), 4)
    End If
   
    If EE_TRY <> 0 And FF_Euro <> 0 Then
        Sayfa4.Cells(19, "G") = EE_TRY / FF_Euro
        Sayfa4.Cells(19, "G") = VBA.Round(Sayfa4.Cells(19, "G"), 4)
    End If

emeginize saglık hocam cok tesekkurler