Runtime 6 Hatası

[toltun]

Yaptıgım ufak bir deneme sonucunda
bos satırları hata olarak göruyor fakat ben yeri geldiğinde oraları bos bırakmak ıstıyorum bazen 10 tane için bazen 20 tane için hesap yapmak istiyorum
Yardımcı olabilirseniz sevinirim

 

[Necdet]

Merhaba,

D sütunun son hücresine kadar döngüyü kurabilirsiniz.

Sub yutulan()
    Dim x As Integer
    On Error Resume Next
    
    For x = 3 To Cells(Rows.Count, "D").End(3).Row
        Cells(x, "G") = Cells(x, "D") * Cells(x, "E") / (1.02 * Cells(x, "F"))
    Next x
End Sub

 

[toltun]

Teşekkürler ilginiz için

D sütunun saydırıp to kısmına o saydıgı kısmı yazıyoruz anladıgım kadarıyla
Tekrardan cok tesekkür ederim.

 

[Necdet]

Merhaba,

benim yaptığım o fakat aynı zamanda

On Error Resume Next

satırı var, bu hata olduğunda bir sonraki komuttan devam et demek.

Ayrıca genelde bölüm işlemlerinde boş ve sıfır olduğu durumlarda olabilir işlemden önce bunları kontrol etmekte yarar var.