İki hücre arasını vba ile toplama

[Gold_Savt]

Q ve U arası Sıfırdan büyükse X hücresine yazılması lazım. Toplam sıfırsa boş bırakılması gerekiyor.
8. satırdan 34. satıra kadar.

Aşağıdaki kod tek satır için işe yarıyor. Ancak bu kodu 26 kez yazmak istemiyorum.

For Each rng In Range("Q8:U8")
If rng <> "" Then
[X8] = WorksheetFunction.Sum(Range("Q8:U8"))
Exit Sub
Else
[X8] = ""
End If
Next rng

 

[Tevfik_Kursun]

Merhaba,
İstediğiniz bu mu?
İyi çalışmalar

 

[Gold_Savt]

Teşekkür ederim. Doğru budur.
Tekrar sormamak adına veya buna benzer bir çalışma olduğunda sormadan çözümleyebilmek adına kodların açılımını yazmanız mümkün müdür?

 

[Tevfik_Kursun]

Merhaba,
Excel'i tam açtığınızda kursörü (mouse) ekranın alt kısmında Sayfa1 yazısının üzerine getirip sağ tuş yapınız. Çıkan listede Kod Görüntüle ye basınız. Açılan ekranda Module1 e basınız. Önünüze makro çıkacak. Sizin gönderdiğinizi For - Next döngüsü içine aldım. Sizde Exit Sub satırı vardı. Bu işin bitti dışarı çık demek. Ben onu GoTo 99 yaptım. Next x ifadesinden önce de 99: yazdım. Bu da 99 arayan buraya gelsin demek. Bu durumda döngü kurulmuş oldu. Yine sorunuz olursa cevaplamaya çalışırım.
İyi çalışmalar

 

[Gold_Savt]

Teşekkürler