21
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Yardım rica ediyorum
« Son İleti Gönderen: Bedrettin 21 Aralık 2023, 16:44:51 »Merhaba Arkadaşlar
Aşağıdaki konu hakkında yardımcı olursanız çok memnun olurum
Aşağıdaki kod grup toplam alıyor
2 satır ve fazlasında doğru toplam alıyor fakat tek satır varsa toplamayı iki satırdan yapıyor
tek satır olabilir mi ?
Sub cari_mirac()
Application.ScreenUpdating = False
For i = Range("a65").End(3).Row To 2 Step -1
If Range("a" & i).Value <> Range("a" & i - 1).Value Then
If i = 2 Then i = -1 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
End If
Next
Application.ScreenUpdating = True
End Sub
Aşağıdaki konu hakkında yardımcı olursanız çok memnun olurum
Aşağıdaki kod grup toplam alıyor
2 satır ve fazlasında doğru toplam alıyor fakat tek satır varsa toplamayı iki satırdan yapıyor
tek satır olabilir mi ?
Sub cari_mirac()
Application.ScreenUpdating = False
For i = Range("a65").End(3).Row To 2 Step -1
If Range("a" & i).Value <> Range("a" & i - 1).Value Then
If i = 2 Then i = -1 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
End If
Next
Application.ScreenUpdating = True
End Sub