A sütunun sonuna veri ekleme

[hadromer]

Merhaba,
excel dosyamda çok sayıda sayfa var.
Bütün sayfalarda bulunan A sütunda azı veriler var. Ben A sütunun sonuna "TOPLAM" ibaresini eklemek istiyorum.
makro kodu konusunda yardımcı olur musunuz ?
Teşekkür ederim.

 

[YUSUF44]

Şöyle olabilir:

Sub toplam()
For i = 1 To Sheets.Count
    son = Sheets(i).Cells(Rows.Count, "A").End(3).Row + 1
    Sheets(i).Cells(son, "A") = "Toplam"
Next
End Sub

 

[hadromer]

Şöyle olabilir:

Sub toplam()
For i = 1 To Sheets.Count
    son = Sheets(i).Cells(Rows.Count, "A").End(3).Row + 1
    Sheets(i).Cells(son, "A") = "Toplam"
Next
End Sub

çok teşekkür ederim. Çalıştı

 

[hadromer]

Şöyle olabilir:

Sub toplam()
For i = 1 To Sheets.Count
    son = Sheets(i).Cells(Rows.Count, "A").End(3).Row + 1
    Sheets(i).Cells(son, "A") = "Toplam"
Next
End Sub

Yusuf bey merhaba, benzer bir talebim daha olacak. bu yüzden konu açmak istemedim kalabalık olmasın.
yine aynı sayfalarda bulunan E sütunu için E sütununda yer alan veriler ondalık sayılardan oluşuyor. ,
Ben virgülden sonra 4 hane olsun istiyorum. bazılarında 9 bazılarında 10 hane var.
Rica etsem tüm sayfalarda E sütununda virgülden sonra 4 rakam kalacak şekilde bir kod yazabilir misiniz ? 4 rakamdan sonrası silinebilir. teşekkür ederim.

 

[YUSUF44]

Bu da böyle olabilir:

Sub toplam()
On Error Resume Next
Application.ScreenUpdating = False
    For sayfa = 1 To Sheets.Count
        son = Sheets(sayfa).Cells(Rows.Count, "E").End(3).Row
        For i = 1 To son
            Sheets(sayfa).Cells(i, "E") = Round(Sheets(sayfa).Cells(i, "E").Value, 4)
        Next
    Next
Application.ScreenUpdating = True
End Sub

Verilerinizin çokluğuna göre uzun sürebilir.

 

[hadromer]

Bu da böyle olabilir:

Sub toplam()
On Error Resume Next
Application.ScreenUpdating = False
    For sayfa = 1 To Sheets.Count
        son = Sheets(sayfa).Cells(Rows.Count, "E").End(3).Row
        For i = 1 To son
            Sheets(sayfa).Cells(i, "E") = Round(Sheets(sayfa).Cells(i, "E").Value, 4)
        Next
    Next
Application.ScreenUpdating = True
End Sub

Verilerinizin çokluğuna göre uzun sürebilir.

çok teşekkür ederim.