53721_oznaceni_vyfiltrovanych_dat.zip
Pr.
Private Sub CommandButton1_Click()
On Error Resume Next
With Worksheets("List1")
Intersect(.UsedRange, .Range("B:C").Resize(Rows.Count - 3).Offset(3, 0)).SpecialCells(xlCellTypeVisible).Select
If Err.Number <> 0 Then MsgBox "Nic.", vbInformation
End With
On Error GoTo 0
End Subcitovat
Private Sub CommandButton1_Click()
On Error Resume Next
With Worksheets("List1")
Intersect(.UsedRange, .Range("B:C").Resize(Rows.Count - 3).Offset(3, 0)).SpecialCells(xlCellTypeVisible).Select
If Err.Number <> 0 Then MsgBox "Nic.", vbInformation
End With
On Error GoTo 0
End Subcitovat
\n
RSS nejnovější články