makro ile toplam almak

[gezgin-49]

Sayın üstadlarım
A3 hücresinden başlayarak aşağıya doğru devam eden hücrelerde tarih var, A sütununun son dolu hücrenin altındaki satırlara

Sheets("fazla mesai").Range("A" & Range("A65536").End(3).Row + 1) = "TOPLAM ALACAK (Brüt)"
Sheets("fazla mesai").Range("A" & Range("A65536").End(3).Row + 1) = "% 30 İndirim"
Sheets("fazla mesai").Range("A" & Range("A65536").End(3).Row + 1) = "İndirim Sonrası "

yukarıdaki formülle verilen komutlar var,

şimdi sizden istediğim şu:

A sütununun hangi hücresinde "TOPLAM ALACAK (Brüt)" yazıyorsa L sütununun ilgili hücresine L3 ten aşağıya doğru olan sayıları toplamasını,
bir alttaki "L" hücresine toplanan sayıların % 30'unu yazmasını
onun hemen altındaki "L" hücresine de Toplam alacaktan % 30' indirimi düşerek yazmasını istiyorum.

bunun için bu nasıl bir kod ilave etmem lazım

yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerFaruk]

    SonSatır = Range("A65536").End(3).Row
    Range("A" & SonSatır + 1) = "TOPLAM ALACAK (Brüt)"
    Range("A" & SonSatır + 2) = "% 30 İndirim"
    Range("A" & SonSatır + 3) = "İndirim Sonrası"
    
    Range("L" & SonSatır + 1) = WorksheetFunction.Sum(Range("L3").Resize(SonSatır - 2, 1))
    Range("L" & SonSatır + 2) = Range("L" & SonSatır + 1) * 0.3
    Range("L" & SonSatır + 3) = Range("L" & SonSatır + 1) - Range("L" & SonSatır + 2)

 

[gezgin-49]

Sayın üstadım sen bir harikasın
Allah senden razı olsun

bu arada birşey daha sorabilirmiyim
L hücresine toplam aldığımız zaman
D hücresinden L hücresine kadar olan sütun ile aşağıdaki tüm sütunların boş olması lazım
bunun için nasıl bir kod yazabiliriz
Saygılarımla

 

[ÖmerFaruk]

D dahil D-K aralığını siler.
Range("D" & SonSatır+1, "K" &SonSatır+3).ClearContents

 

[gezgin-49]

Allah Razı Olsun sayın üstadım, ellerinize, emeğinize sağlık çok teşekkür ediyorum.

 

[ekmekevi]

Next level bu işte harikadır Hızır gibi yetişir var ol kardeşim