MS Excel

snazis sa tam schovat nieco co je mimo rozsah excelu
Rows(Cells(2, 3).End(xlDown).Row - tak v tomto sa dostanes na prvu plnu bunku v stlpci 3 - a kedze v stlpci 3 neexistuje ziadna plna bunka (mozno sa Ti zda ze hned prva plna bunka je v oblasti B3:K5, ale nieje , berie sa prva bunka z oblasti, ostatne su akoze prazdne), tak sa dostaneme az na koniec listu a k tomu pripocitas este 3, a to uz sme mimo a mame chybu

a toto Cells(Cells(2, 3).End(xlDown).Row + 2, 3).End(xlDown).Row - 2).Hidden je uplny nezmysel

Sub letmo()
Dim i As Long
For i = 8 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 14).Value <> "Letmo" Then
Rows(i).Hidden = True
End If
Next i

MsgBox (Cells(2, 2).End(xlDown).Row) ' toto
MsgBox (Cells(Cells(2, 3).End(xlDown).Row)) ' toto

Rows(Cells(2, 3).End(xlDown).Row + 2 & ":" & Cells(Cells(2, 3).End(xlDown).Row + 2, 3).End(xlDown).Row - 2).Hidden = True

End Sub - takto sa da skontrolovat co vlastne mas v pozadovanej premennej
keby som este dokazal premyslat tak Ti to napisem ale uz mam vela piva (tak mozno zajtra ak sa nikto neozve) citovat