Problém je v tom, že kódy na listě "data" máš naformátována jako text a na listě EXPORT naformátována jako obecný resp. číslo.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: SVYHLEDAT ve VBA
MS Excel
Téma: SVYHLEDAT ve VBA 
Zaslal/a MilaF 6.4.2022 12:39
Zdravím všechny, můžete mi, prosím, zkontrolovat kód, kde je chyba, resp, proč nemohu vyhledat ID do žlutých polí pomocí VBA? Zkoušel jsem i přes VLOOKUP, ale ten mi funguje jen v jednom listu, ale pokud se na data dívám z jiného, tak to taky nejde.
Prioritou je však VBA řešení.
Děkuji.
Příloha: 
52506_svyhledat_vba.rar (492kB, staženo 20x)
52506_svyhledat_vba.rar (492kB, staženo 20x)
Není za co.
Nebylo by toto lepší?
Sub VlookUp2()
Dim wsZDROJ As Worksheet
Dim wsCIL As Worksheet
Dim POCET As Long
Set wsZDROJ = Worksheets("data")
Set wsCIL = Worksheets("EXPORT")
POCET = wsCIL.Cells(Rows.Count, "D").End(xlUp).Row - 1
wsCIL.Range("A2").Resize(POCET).Formula = "=IFERROR(VLOOKUP(D2,data!A:B,2,0),"""")"
wsCIL.Range("A2").Resize(POCET).Value = wsCIL.Range("A2").Resize(POCET).Value
End Subcitovat
Nebylo by toto lepší?
Sub VlookUp2()
Dim wsZDROJ As Worksheet
Dim wsCIL As Worksheet
Dim POCET As Long
Set wsZDROJ = Worksheets("data")
Set wsCIL = Worksheets("EXPORT")
POCET = wsCIL.Cells(Rows.Count, "D").End(xlUp).Row - 1
wsCIL.Range("A2").Resize(POCET).Formula = "=IFERROR(VLOOKUP(D2,data!A:B,2,0),"""")"
wsCIL.Range("A2").Resize(POCET).Value = wsCIL.Range("A2").Resize(POCET).Value
End Subcitovat
to je právě otázka, co je rychlejší. Těch 27 řádků je příklad. Data pro export se generují z jiné tabulky, kde se různě filtrují požadované hodnoty, takže 27 řádků není pevných, ale může jich být 0-x. Také jsem nechtěl přímo vkládat vzorec, přijde mi, že pokud by bylo řádků pro export např. 1000, tak by to vypisování vzorce trvalo déle.
Každopádně děkuji za ochotu a rozklíčování problému.citovat
Každopádně děkuji za ochotu a rozklíčování problému.citovat
Vyhledání ID pomocí dvou polí. Načtu obě tabulky do pole a pak vyhledávám v poli.
Příloha: 52514_svyhledat_vba.zip (494kB, staženo 14x)
citovat52514_svyhledat_vba.zip (494kB, staženo 14x)Hľadanie pomocou Collection bude veľmi rýchle. Ale ako chcete používať akékoľvek hľadanie kódu a ID, ak je to plné dupiel (pod jedným kódom sú rôzne ID) ?
Sub CollectionLookup()
Dim Data(), ID(), Kod(), Col As New Collection, i As Long, RowsData As Long, RowsExport As Long
RowsExport = wsEXPORT.Cells(Rows.Count, "D").End(xlUp).Row - 1
If RowsExport = 0 Then MsgBox "Chýbajú kódy v EXPORT.", vbExclamation: Exit Sub
If RowsExport = 1 Then ReDim Kod(1 To 1, 1 To 1): Kod(1, 1) = wsEXPORT.Range("D2").Value2 Else Kod = wsEXPORT.Range("D2").Resize(RowsExport).Value2
ReDim ID(1 To RowsExport, 1 To 1)
RowsData = wsData.Cells(Rows.Count, "A").End(xlUp).Row - 1
If RowsData = 0 Then MsgBox "Chýbajú data.", vbExclamation: GoTo KONIEC
Data = wsData.Range("A2:B2").Resize(RowsData).Value2
On Error Resume Next
For i = 1 To RowsData
Col.Add Data(i, 2), CStr(Data(i, 1))
Next i
For i = 1 To RowsExport
ID(i, 1) = Col(CStr(Kod(i, 1)))
Next i
On Error GoTo 0
KONIEC:
wsEXPORT.Range("A2").Resize(RowsExport).Value2 = ID
Set Col = Nothing
End Sub
Sub CollectionLookup()
Dim Data(), ID(), Kod(), Col As New Collection, i As Long, RowsData As Long, RowsExport As Long
RowsExport = wsEXPORT.Cells(Rows.Count, "D").End(xlUp).Row - 1
If RowsExport = 0 Then MsgBox "Chýbajú kódy v EXPORT.", vbExclamation: Exit Sub
If RowsExport = 1 Then ReDim Kod(1 To 1, 1 To 1): Kod(1, 1) = wsEXPORT.Range("D2").Value2 Else Kod = wsEXPORT.Range("D2").Resize(RowsExport).Value2
ReDim ID(1 To RowsExport, 1 To 1)
RowsData = wsData.Cells(Rows.Count, "A").End(xlUp).Row - 1
If RowsData = 0 Then MsgBox "Chýbajú data.", vbExclamation: GoTo KONIEC
Data = wsData.Range("A2:B2").Resize(RowsData).Value2
On Error Resume Next
For i = 1 To RowsData
Col.Add Data(i, 2), CStr(Data(i, 1))
Next i
For i = 1 To RowsExport
ID(i, 1) = Col(CStr(Kod(i, 1)))
Next i
On Error GoTo 0
KONIEC:
wsEXPORT.Range("A2").Resize(RowsExport).Value2 = ID
Set Col = Nothing
End Sub
Příloha: 52515_svyhledat_vba2.zip (497kB, staženo 17x)
citovat52515_svyhledat_vba2.zip (497kB, staženo 17x)Dobrý den,
velmi děkuji za pomoc, nečekal jsem tolik návrhů řešení.
Ohledně datového typu doplním, že typ dat upravuji přes Power Query.
Elninoslov má pravdu, že jsou v datech duplicity. Ty jsou způsobené dalšími podstavy jednotlivých kódů, ale každý podstav má i čas zápisu. V power Quesry si data ještě setřídím sestupně tak, aby mi SVYHLEDAT(VLOOKUP) našla nejnovější ID. Všechna data jsem sem nedával. Netušil jsem, že budete tak důslední.
Ještě jednou děkuji!citovat
velmi děkuji za pomoc, nečekal jsem tolik návrhů řešení.
Ohledně datového typu doplním, že typ dat upravuji přes Power Query.
Elninoslov má pravdu, že jsou v datech duplicity. Ty jsou způsobené dalšími podstavy jednotlivých kódů, ale každý podstav má i čas zápisu. V power Quesry si data ještě setřídím sestupně tak, aby mi SVYHLEDAT(VLOOKUP) našla nejnovější ID. Všechna data jsem sem nedával. Netušil jsem, že budete tak důslední.
Ještě jednou děkuji!citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články