Application.WorksheetFunction.IsError fonksiyonu ile ilgili

[Mx@Raid]

Arkadaşlar aşağıdaki kod ile işlem yapılan hücrelerde değer yoksa hata vermemesi için makro kullandım ancak hata verdi. Nasıl yazmam gerekir. Yardımcı olabilir misiniz?

Range("32") = Range("N32") / Range("K32")
alan1 = Range("N32")
alan2 = Range("K32")
Range("32") = Application.WorksheetFunction.IsError(alan1, alan2, 0)

 

[Ömer]

Merhaba,

If Range("K32") <> 0 Then
Range("[COLOR=red]C[/COLOR]32") = Range("N32") / Range("K32")
End If

İstediğiniz bu mu?

.

 

[uzmanamele]

merhaba
Application.WorksheetFunction.IsError(alan1, alan2, 0) şeklinde olmaz da kendinizden eminseniz ilk satıra on error resume next yazın

 

[Mx@Raid]

Teşekkürler ömer bey.

 

[Mx@Raid]

Sn. uzmanamele ifade ettiğiniz gibi olmadı. Ömer beyin önerdiği yöntem işime yaradı. İlginiz için teşekkürler.

 

[uzmanamele]

merhaba

olmaması normal.
benim ifade etmeye çalıştığım; eğer yazdığınız fonksiyon doğru ancak yanlış sonuç üretiyorsa (yok hatası vs gibi) en başa on error resume next yazabilirsiniz.
fonksiyon kodu yanlışsa tabiiki yanlış olacaktır.

 

[Mx@Raid]

arkadaşlar benzer sorunu aynı yöntemle çözeyim dedim olmadı. Yardımcı olabilir misiniz?

        For sn = 5 To Worksheets.Count
        For y = 5 To 12
        
        If Cells(sn - 2, y) <> 0 Then
        

            Range("E" & sn - 2) = Sheets(sn).Range("C18").Value
            Range("F" & sn - 2) = Sheets(sn).Range("S20").Value
            Range("G" & sn - 2) = Sheets(sn).Range("C34").Value
            Range("H" & sn - 2) = Sheets(sn).Range("S34").Value
            Range("I" & sn - 2) = Sheets(sn).Range("C51").Value
            Range("J" & sn - 2) = Sheets(sn).Range("S51").Value
            Range("K" & sn - 2) = Sheets(sn).Range("C67").Value
            Range("L" & sn - 2) = Sheets(sn).Range("S67").Value
            
            End If
            Next

 

[uzmanamele]

merhaba

kodlarınıza bakıldığında hata var gibi, somut dosya eklemezseniz soyut soruya alacağınız cevapda ancak soyut olabilir.
elmalarla armutları toplamışsınız.

Range("E" & sn - 2) = Sheets(sn).Range("C18").Value
bu satırda sayfa nosu ile hücre adresi arasında nasıl bir ilişki kurdunuz?

 

[Mx@Raid]

01, 02, 03 .. 60.. sayfalarındaki verileri E hücresine 3. satırdan itibaren alıyor orada bir sorun yok. çünkü değişiklik yaptığımda sayfaya direkt yansıyor. Ancak sayfalarda değer olmadığı için bu hatayı veriyor.

 

[Mx@Raid]

Zamanınızı aldığım için özür dilerim sayfalarda ömer beyin makrosunu yazdığımda sorun halloldu herkese teşekkürler.

 

[Mx@Raid]

arkadaşlar birşey daha rica etsem çok olmam inşaallah. yapılan hesaplamalarda değer yoksa sıfır ataması yapabilir miyiz?

If Range("K32") <> 0 Then
Range("C32") = Range("N32") / Range("K32")
End If

makroda karşılaştırıp değer bulamazsa sıfır nasıl yazdırabiliriz.?

 

[Necdet]

Merhaba,

If Range("K32") <> 0 Then
          Range("C32") = Range("N32") / Range("K32")
Else
           [C32] = 0
End If

 

[Mx@Raid]

Necdet bey teşekkürler.