MS Excel

Dobrý den,
prosím o radu. Do souboru Evidence načítám do listu KS data z externího souboru KS_data_konzultace (např. uloženém na ploše).
Když si v listu mezikrok do A2 napíšu číselný kód (např. 10.09.01.01) tak se mi v C2 zobrazí popis.
Problém je v tom, že v datech, které potřebuji vyhledat je v externím souboru jako text číslo 11. Funkce svyhledat tuto jedenáctku nevyhledá, ale umí ji vyhledat tak, že v načtených datech v listu KS do buňky s jedenáctkou vstoupím klávesou F2 a dám enter. Jde to nějak obejít, abych to nemusel dělat?
Data z externího souboru se mi mohou měnit a potřebuji je tedy načítat při každém spouštění souboru Evidence. To mám v Dotazech a připojeních zaškrtnuto.
Napadá mě udělat makro, které při spuštění data načte a pak "odentruje" tu jedenáctku, ale přijde mi to krkolomné.
Děkuji předem za nápady.

Zaslat odpověď >

Lugr(17.2.2022 10:13)#052120

něco takového?

Sub Import()

Dim CESTA As String
Dim SOUBOR As String
Dim LIST As String
Dim ZDROJ As String
Dim NAZEV As String

CESTA = "C:\Users\evidence" & "\"
NAZEV = "KS_data_konzultace.xlsx"
LIST = "List1"

SOUBOR = CESTA & NAZEV

If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub

ZDROJ = "'" & CESTA & "[" & NAZEV & "]" & LIST & "'!"

With Sheets("mezikrok").Range("C2").Resize(10, 1)
.Formula = "=IFERROR(VLOOKUP(" & "A2" & "," & ZDROJ & "$A$2:$C$10" & "," & "3" & "," & "0" & ")" & "," & """""" & ")"
.Value = .Value
End With

End Subcitovat

MilaF(17.2.2022 10:21)#052121

Děkuji, vyzkouším, ale jde to ošetřit i bez makra?citovat

Lugr(17.2.2022 10:29)#052123

Já PQ neumím.citovat

veny(17.2.2022 12:23)#052126

a když si dáte
=IFERROR(SVYHLEDAT(HODNOTA.NA.TEXT(A2;0);KS!A2:C15;3;NEPRAVDA);"")???

Edit:
ještě jsem vyzkoušel:
když si naformátujete buňku s číselným kódem který chcete vyhledávat jako Text tak ani nemusíte upravovat vzoreccitovat

MilaF(17.2.2022 12:51)#052127

Veny, díky moc, to je přesně ono!

citovat

Téma: načtení externích dat a SVYHLEDAT

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje