Robin Hrabina

Zjištění posledního řádku a sloupce v datech za pomocí VBA je jednou z nejužitečnějších věcí, pokud pracujete s dynamickými daty. 📊

Kód pro zjištění posledního řádku: 🗒️
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Posledního sloupce: 🗒️
lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Pokud byste chtěli více praktických příkladů, co se dá se zjištěným posledním řádkem a sloupcem dělat, budu rád za like či komentář 👨‍💻.

První praktický příspěvek, jak za pomocí VBA přidat do nového Excelu listy s názvy všech měsíců. 📆

Celý VBA kód ve videu zde 👨‍💻: 

Sub Mesice_sheety()
    Dim mesic As Integer
    Application.DisplayAlerts = False 
    For mesic = 1 To 12 
        Worksheets(1).Copy after:=Worksheets(mesic) 
        Worksheets(mesic + 1).Name = Format(DateSerial(1, mesic, 1), "mmmm")  
    Next mesic
    Worksheets(1).Delete
End Sub