Hledání ve sloupci
For i = 1 To Cells ( 1000, 1).End ( xlUp ).Row
' hledat se bude v 1. sloupci a prohledávat 1000 řádků
If Cells ( i, 1 ) = "ahoj" Then
'tady zadám kod, kam to chci nakopírovat
End If
Next i
' tento kod najde a zkopíruje řádky obsahující slovo "ahoj"
Dim jmeno As String
jmeno = "Karel"
hledane = Application.WorkSheetFunction.Match(jmeno,Range("A:A"),0)
'tento kód nalezna slovo "Karel" a do proměnné "hledane" uloží číslo řádku
Dim jmeno As Range
Set jmeno = Workbooks("sešit1").WorkSheets("List1").Range("A:A").Find(what:=Combobox1.Value, LookIn:=xlValues)
If Not jmeno Is Nothing Then
nasel = Application.WorksheetFunction.Match(jmeno,Workbooks("sešit1").Worksheets("List1").Range("A:A"),0)
'nasel se bude rovnat číslu řádku, kde je to co hledám