26445_bez-nazvu.jpg
Polovičku otázky nechápem. Nahradenie VLOOKUP je mnohonásobná vec, kdežto výpis vyhľadanej hodnoty na iný list je jednorázová vec.
Tu máte makro, ktoré prehľadá celú zvolenú oblasť (nastavíte pomocou konštánt) v Hárok1 a vypíše celý riadok s nájdenou hodnotou na prvý voľný riadok v liste Zhoda.
Dodajte prílohu s lepším popisom a bude sa tvoriť ľahšie.
Inak samotné vyvolanie natívneho okna Find:
Application.CommandBars.FindControl(ID:=1849).Execute
alebo
Application.Dialogs(xlDialogFormulaFind).Show
ale použiť ich programovo na hľadanie a vracanie výsledku neviem.
EDIT: Alebo použite túto UDF funkciu:
Function FULLLOOKUP(Co As Variant, Kde As Range, Stlpec As Integer) As Variant
Dim r As Long
On Error Resume Next 'Hľadanie hodnoty
r = Kde.Find(What:=Co, LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Row
On Error GoTo 0 'Vrátenie odchytenia chyby
If r = 0 Then FULLLOOKUP = CVErr(xlErrNA) Else FULLLOOKUP = Kde.Parent.Cells(r, Stlpec).Value 'Vráť hodnotu zo zadaného stĺpca v najdenom riadku
End Function
Tu máte makro, ktoré prehľadá celú zvolenú oblasť (nastavíte pomocou konštánt) v Hárok1 a vypíše celý riadok s nájdenou hodnotou na prvý voľný riadok v liste Zhoda.
Dodajte prílohu s lepším popisom a bude sa tvoriť ľahšie.
Inak samotné vyvolanie natívneho okna Find:
Application.CommandBars.FindControl(ID:=1849).Execute
alebo
Application.Dialogs(xlDialogFormulaFind).Show
ale použiť ich programovo na hľadanie a vracanie výsledku neviem.
EDIT: Alebo použite túto UDF funkciu:
Function FULLLOOKUP(Co As Variant, Kde As Range, Stlpec As Integer) As Variant
Dim r As Long
On Error Resume Next 'Hľadanie hodnoty
r = Kde.Find(What:=Co, LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Row
On Error GoTo 0 'Vrátenie odchytenia chyby
If r = 0 Then FULLLOOKUP = CVErr(xlErrNA) Else FULLLOOKUP = Kde.Parent.Cells(r, Stlpec).Value 'Vráť hodnotu zo zadaného stĺpca v najdenom riadku
End Function
Příloha: 
26448_hladaj-v-liste.rar (18kB, staženo 35x)
citovat26448_hladaj-v-liste.rar (18kB, staženo 35x)
RSS nejnovější články