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ů
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