- Katılım
- 12 Eylül 2021
- Mesajlar
- 45
- Excel Vers. ve Dili
- Microsoft Office 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub topla()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
For i = 2 To lastRow
If Cells(i, "C").Value <> "" And Cells(i, "D").Value <> "" And Cells(i, "E").Value <> "" And Cells(i, "F").Value <> "" And Cells(i, "G").Value <> "" Then
Cells(i, "G").Value = Cells(i, "C").Value - (Cells(i, "D").Value + Cells(i, "E").Value + Cells(i, "F").Value + Cells(i, "G").Value)
End If
Next i
End Sub
Hocam kod çalışmıyorKod:Sub topla() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To lastRow If Cells(i, "C").Value <> "" And Cells(i, "D").Value <> "" And Cells(i, "E").Value <> "" And Cells(i, "F").Value <> "" And Cells(i, "G").Value <> "" Then Cells(i, "G").Value = Cells(i, "C").Value - (Cells(i, "D").Value + Cells(i, "E").Value + Cells(i, "F").Value + Cells(i, "G").Value) End If Next i End Sub
Sub topla()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
For i = 2 To lastRow
Cells(i, "G").Value = Cells(i, "C").Value - (Cells(i, "D").Value + Cells(i, "E").Value + Cells(i, "F").Value + Cells(i, "G").Value)
Next i
End Sub
Çok Teşekkür ederim İşimi gördü.Merhaba Arkadaşım,
Bu haliyle deneyinKod:Sub topla() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To lastRow Cells(i, "G").Value = Cells(i, "C").Value - (Cells(i, "D").Value + Cells(i, "E").Value + Cells(i, "F").Value + Cells(i, "G").Value) Next i End Sub
İyi çalışmalar