kodla toplama hatası

[abdullahss]

Sub Hesapla()
For i = 2 To Range("l65536").End(13).Row
If Cells(i, 1) <> "" Then
Range("l" & i).Value = Range("j" & i).Value * Range("k" & i).Value * 4 * 1.2 * Range("ı" & i).Value 'L=J2*K2*4*1,2*I2
Range("am" & i).Value = Range("af" & i).Value + Range("ag" & i).Value + Range("aı" & i).Value + Range("aj" & i).Value + Range("ak" & i).Value 'AM = AF2 + AG2 + AH2 + AI2 + AJ2 + AK2
Range("m" & i).Value = (Range("c" & i).Value * Range("d" & i).Value * 2 + Range("e" & i).Value * Range("f" & i).Value * 2 + Range("g" & i).Value * Range("h" & i).Value * 2) * Range("ı" & i).Value * 1.2 'M=(C2*D2*2+E2*F2*2+G2*H2*2)*I2*1,2
Range("ae" & i).Value = (Range("l" & i).Value + Range("m" & i).Value) * Range("n" & i).Value * 1 'AE = (L2 + M2) * N2 * 1
Range("af" & i).Value = Range("ae" & i).Value + Range("o" & i).Value + Range("p" & i).Value + Range("q" & i).Value + Range("r" & i).Value + Range("s" & i).Value + Range("t" & i).Value + Range("u" & i).Value + Range("v" & i).Value 'AF = (AE2 + O2 + P2 + Q2 + R2 + S2 + T2 + U2 + V2)
Range("an" & i).Value = (Range("am" & i).Value / Range("al" & i).Value) 'AN = AM2 / AL2
End If
Next i
End Sub

işlemi sadece 2. satıra yapıyor tüm sayfaya nasıl yapmalıyım

 

[asi_kral]

L sütunundaki son dolu satıra göre işlem yapar.
Dosyanızı ekleyebilir misiniz_?

 

[abdullahss]

dosya ekte

 

[asi_kral]

dosya ekte

Merhaba
A sütunundaki son dolu hücreye göre çalışır
Moduledeki kodu bununla değiştirin.

Sub Hesapla()
'Konu       :   Hücrelere Toplam Alma
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
For i = 2 To Range("A65536").End(3).Row
If Cells(i, 1) <> "" Then
Range("l" & i).Value = Range("j" & i).Value * Range("k" & i).Value * 4 * 1.2 * Range("ı" & i).Value 'L=J2*K2*4*1,2*I2
Range("am" & i).Value = Range("af" & i).Value + Range("ag" & i).Value + Range("aı" & i).Value + Range("aj" & i).Value + Range("ak" & i).Value 'AM = AF2 + AG2 + AH2 + AI2 + AJ2 + AK2
Range("m" & i).Value = (Range("c" & i).Value * Range("d" & i).Value * 2 + Range("e" & i).Value * Range("f" & i).Value * 2 + Range("g" & i).Value * Range("h" & i).Value * 2) * Range("ı" & i).Value * 1.2 'M=(C2*D2*2+E2*F2*2+G2*H2*2)*I2*1,2
Range("ae" & i).Value = (Range("l" & i).Value + Range("m" & i).Value) * Range("n" & i).Value * 1 'AE = (L2 + M2) * N2 * 1
Range("af" & i).Value = Range("ae" & i).Value + Range("o" & i).Value + Range("p" & i).Value + Range("q" & i).Value + Range("r" & i).Value + Range("s" & i).Value + Range("t" & i).Value + Range("u" & i).Value + Range("v" & i).Value 'AF = (AE2 + O2 + P2 + Q2 + R2 + S2 + T2 + U2 + V2)
Range("an" & i).Value = (Range("am" & i).Value / Range("al" & i).Value) 'AN = AM2 / AL2
End If
Next i
End Sub

Dosyanız ekte

 

[abdullahss]

sayın asi kral listview de nasıl yaparız bu işlemleri kodlaması nasıl oluyor.exceldeki sıralamanın aynısı olacak listviewde görecegiz.

 

[asi_kral]

sayın asi kral listview de nasıl yaparız bu işlemleri kodlaması nasıl oluyor.exceldeki sıralamanın aynısı olacak listviewde görecegiz.

Onu bilemem bu konu ile alakası yok.

 

[abdullahss]

teşekkürler

 

[asi_kral]

teşekkürler

Kolay Gelsin.