Trebala bi mi dopuna ili ispravka koda,naravno ako ima voljni da pogledaju.
-------------------------------------------
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
If EntireRow.Row() < 38 Then
MsgBox "LIMIT"
Exit Sub
Else
End If
Dim lHiddenRws As Long
On Error Resume Next
With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False
End With
End Sub
---------------------------------------------------------
Donji kod otkriva sakrivene retke,stavio sam if ako dodje do retka 39 da izbaci poruku i trebao mi da izadje iz koda a ako ne da otkrije red,ali ne funkcionise.
Ako neko moze da ispravi kod,unaprijed hvala.
Jasmin