SORU ve CEVAPLAR (Yazılabilir) > Microsoft Excel, Vba, Makro, Formül vb. Soruları
Yardım rica ediyorum
Bedrettin:
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
Bedrettin:
Eğer Excel örnek dosya isterseniz paylaşabilirim
Bülent Öztürk:
Merhaba Bedrettin Bey,
Ekran görüntüsü veya örnek dosya üzerinde anlatabilir misiniz yapılmak istenen işlemi?
Teşekkürler.
Bedrettin:
ÖRNEK DOSYAYI YÜKLEDİM
Bülent Öztürk:
Ekli dosyayı kontrol eder misiniz?
Navigasyon
[0] Mesajlar
[#] Sonraki Sayfa
Tam sürüme git