Soru Formülün Görünür Olması

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki kod ile en son dolu satırın bir altına I Sütünuna Toplam K sutununada k kolunu toplamını alıyor, toplam kolununu = ALTTOPLAM(9;K2:K) olarak değiştimek istiyorum. hücreye formülü görünecek şekilde atmasını istiyorum. yani formül sonucu değer olmayacak. dinamik olacak yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

Sub AltToplam_AL()

    
    If Range("K2").Value = "" Then Exit Sub
 
  
    sonsatır = [K65536].End(3).Row
    adr = Range(Cells(12, "K"), Cells(sonsatır, "L")).Address
    Cells(sonsatır + 2, "K") = WorksheetFunction.Sum(Range(adr))
    Cells(sonsatır + 2, "I") = "Toplam"
    
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Bold = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Underline = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    
  
  
    
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Cells(sonsatır + 2, "K").Formula = "=SUBTOTAL(9," & adr & ")"

 

[bulentkars]

Korhan Bey Çok Teşekkür Ederim.
Kodun Son Hali Aşağıda burada makro çalıştırıldığında eğer "I" Kolonunda En son satırda Toplam yazısı varsa işlem yapmasını istemiyorum, aksi halde makro her çalıştığında toplam satırlarını alt alta yazıyor, eğer toplam yazısı varsa msgbox uyarı versin istiyorum, aynı şekilde dosyadan kaydetsem veya kayıt etmesem çıkış yaptığımda Toplam Satırını silmek istiyorum, bu iki konuda yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler



Kodun Son Hali

Sub AltToplam_AL()


   Kareye_AL


 
    If Range("K2").Value = "" Then Exit Sub
 
    ActiveSheet.Unprotect "123" 'kaldır
    sonsatır = [K65536].End(3).Row
    adr = Range(Cells(2, "K"), Cells(sonsatır, "K")).Address
    Cells(sonsatır + 2, "K").Formula = "=SUBTOTAL(9," & adr & ")"
    Cells(sonsatır + 2, "I") = "Toplam"
    
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Bold = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Underline = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    ActiveSheet.Protect "123", AllowFiltering:=True 'Filtre Dahil Şifre koy
  
  
    
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub AltToplam_AL()
    Kareye_AL

    If Range("K2").Value = "" Then Exit Sub
    If Cells(Rows.Count, "I").End(3) = "Toplam" Then Exit Sub
 
    ActiveSheet.Unprotect "123" 'kaldır
    sonsatır = [K65536].End(3).Row
    adr = Range(Cells(2, "K"), Cells(sonsatır, "K")).Address
    Cells(sonsatır + 2, "K").Formula = "=SUBTOTAL(9," & adr & ")"
    Cells(sonsatır + 2, "I") = "Toplam"
    
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Bold = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Underline = True
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    Range(Cells(sonsatır + 2, "I"), Cells(sonsatır + 1, "K")).Font.Size = 12
    ActiveSheet.Protect "123", AllowFiltering:=True 'Filtre Dahil Şifre koy
End Sub

ThisWorkbook bölümüne;

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Cells(Rows.Count, "I").End(3) = "Toplam" Then
        ActiveSheet.Unprotect "123"
        Cells(Rows.Count, "I").End(3).EntireRow.Delete
        ActiveSheet.Protect "123", AllowFiltering:=True
        ThisWorkbook.Save
    End If
End Sub

 

[bulentkars]

Korhan Bey
Çok teşekkür ederim. Elinize sağlık.