Excel'de makro yardımıyla dört işlem

[Spatz]

Merhabalar,

Basit olduğunu düşündüğüm ama bir türlü doğru ifadeyi bulamadığım bir şey soracağım.

Ekte gönderdiğim örnekte yapmaya çalıştığım aynı satırdaki iki hücreyi çarpsın, sonra çıkan sonuçları bir hücrede toplasın. Tek satır için bu dediğimi yaptım ama tüm satırlar çin yapmak istediğimde tek bir kodla nasıl yapabilirim?

Teşekkürler,

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Dim sat As Long
For sat = 2 To 222
If Cells(sat, "e") <> "" Then
Cells(sat, "g") = Cells(sat, "e") * Cells(sat, "f")
Range("J4") = WorksheetFunction.Sum(Worksheets("Sayfa1").Range("G2:G222"))
End If
Next
End Sub

 

[uzmanamele]

merhaba

alternatif olsun

Private Sub CommandButton1_Click()
For i = 3 To Range("e65536").End(3).Row
Cells(i, "g") = Cells(i, "e") * Cells(i, "f")
Next
Cells(i, "g") = WorksheetFunction.Sum(Range("g3" & ":" & "g" & i))
End Sub

 

[Spatz]

İkinize de teşekkürler.

İyi geceler.