46813_vykaz.zip
Pokud jde o vyhledávání, já používám něco takového. Číslo řádku v kterém je hledané datum pak najdu v "najdi.Row":
Sub najdiNeco()
Dim datum As Date
Dim najdi As Range
datum = "4.6.2020" 'tady načtu proměnnou, kterou hledám
With Worksheets("2020") 'název listu, kde chci hledat
Set najdi = .Cells.Find(datum, LookIn:=xlValues)
If najdi Is Nothing Then 'pokud nic nenajde
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly) 'vypíše hlášku
Exit Sub 'a skončí
End If
End With
'pokud něco najde, tak pokračujeme dál.
'Tady napíše, na kterém řádku datum našel.
prompt = MsgBox("Hledané datum je na řádku:" & najdi.Row)
End Sub
Jinak na předělání je tam toho víc.citovat
Sub najdiNeco()
Dim datum As Date
Dim najdi As Range
datum = "4.6.2020" 'tady načtu proměnnou, kterou hledám
With Worksheets("2020") 'název listu, kde chci hledat
Set najdi = .Cells.Find(datum, LookIn:=xlValues)
If najdi Is Nothing Then 'pokud nic nenajde
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly) 'vypíše hlášku
Exit Sub 'a skončí
End If
End With
'pokud něco najde, tak pokračujeme dál.
'Tady napíše, na kterém řádku datum našel.
prompt = MsgBox("Hledané datum je na řádku:" & najdi.Row)
End Sub
Jinak na předělání je tam toho víc.citovat
RSS nejnovější články