for döngüsü

[emrebengul]

gönderdiğim dosyada acaba for döngüsü ile yapsam nasıl olur?
Ekli dosyayı görüntüle for döngüsü.xlsx

 

[vardar07]

Yapmak istediğinize bağlı ne yapmak istediğnizi açıklamalı belirtin. Mesela veri boyutu nedir, Sadece sağ tabloya verierin değerlerimi gelecek boş yerleri elle yazıp belirtiniz.

 

[emrebengul]

düzelltim şimdi bakarsanız anlarsınız
Ekli dosyayı görüntüle for döngüsü.xlsx

 

[vardar07]

Deneyiniz.

Sub hesap()
For i = 8 To 10
For k = 2 To Sayfa1.Range("B104000").End(3).Row
son = Sayfa1.Cells(k, i).End(3).Row + 1
If i = 8 Then: Sayfa1.Cells(k, i) = 2 * Sayfa1.Cells(k, "B") + 3 * Sayfa1.Cells(k, "C") - Sayfa1.Cells(k, "F")
If i = 9 Then: Sayfa1.Cells(k, i) = (3 * (Sayfa1.Cells(k, "B") * Sayfa1.Cells(k, "B"))) + (5 * Sayfa1.Cells(k, "D")) - Sayfa1.Cells(k, "E")
If i = 10 Then: Sayfa1.Cells(k, i) = Sayfa1.Cells(k, "H") / Sayfa1.Cells(k, "I")
Next k
Next i
End Sub