Satır sonu eklemek için VBA koduna formül ilave etme

[deniz42]

Arkadaşlar meraba;

userformda diğer sayfadan aktardığım verileri yazdırma esnasında o sayfadaki satır adetlerininde en alt satıra yazdırmak istiyorum.

Aşağıdaki kod en son boş satıra istediğim yazıyı yazıyor fakat ben buna satır toplam formülü ilave etmek istiyorum. aşağıdaki formülü nasıl bişleştirebilirim yada başka bir alternatifi varmı formda aradım ama uygulayamadım.

Public Sub Son_Doludan_Sonra()
ActiveSheet.Range("E" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = "deneme"
End Sub

ilave olacak formül

ALTTOPLAM(3;A2:A300)& "  Adet KAYIT BULUNMUŞTUR."

=

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Public Sub Son_Doludan_Sonra()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "E").End(xlUp).Row + 1
    
    Range("E" & son) = "=SubTotal(3,A2:A" & son & ")&"" Adet Kayıt Bulunmuştur"""
    
End Sub

.

 

[deniz42]

Teşekkür

hızlı cevabınız için teşekkür ederim sağolun.
birde bu yazıyı ortalı kalın ve kızmızı yardırma durumumuz olabilirmi.

 

[Ömer]

hızlı cevabınız için teşekkür ederim sağolun.
birde bu yazıyı ortalı kalın ve kızmızı yardırma durumumuz olabilirmi.

Bu şekilde deneyin.

Public Sub Son_Doludan_Sonra()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "E").End(xlUp).Row + 1
    
    With Range("E" & son)
        .Value = "=SubTotal(3,A2:A" & son & ")&"" Adet Kayıt Bulunmuştur"""
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .Font.ColorIndex = 3
    End With
        
End Sub

.

 

[deniz42]

Sağol tamamdır.

Üstadım Teşekkürler