Tak se mně to podařilo nakonec zprovoznit s funkcí NEPŘÍMÝ.ODKAZ dvěma způsoby viz příloha, kdyby se někomu hodilo. Má to ale jeden pro mě zásadní háček a to ten, že NEPŘÍMÝ.ODKAZ zřejmě neumí fungovat pokud jsou zdrojové sešity zavřené a to pro má ostrá data obsahující stovky zdrojových sešitů je nemožné. Napadne někoho jak s tím NEPŘÍMÝ.ODKAZem vydrbat aby to načítalo i ze zavřených?
Díky
S VBA ani Power Query si bohužel netykám. Název listu je v každém souboru jiný, protože je shodný právě s názvem souboru. Finální data, kde to potřebuji použít jsou vygenerovaná z excelu přes Kutools, kterým jsem celkovou databází jen rozhodil na dílčí soubory a teď z těch souborů potřebuju dotáhnout do databáze zase zpět data, které do souborů byly doplněny.
Vygenerovaná cesta je jak píšu funkční, potřebuji ji jen do vzorce Svyhledat vložit jako prostý text z určité buňky a to je ta záhada jak na to.
Mohlo by, posílám opravené, ale to by fungovalo se soubory ve složce Novák.
Nevíte prosím někdo co s tím a zkusil by to někdo rozchodit?
Ten nepřímý odkaz jsem zkoušel, ale nefungovalo mně to.
Asi špatně zapsáno, končilo to vždy s chybou #ODKAZ!
Ahoj,
potřeboval bych dohledávat hodnoty v různých souborech, kdy se mění cesta k oblasti hledání na základě 1.proměnné, název souboru na základě 2.proměnné a název listu na základě 3.proměnné.
Odkaz na tabulku resp. oblast vyhledávání jsem zkoušel poskládat přes CONCAT, ale nevím jak dostat do vzorce SVYHLEDAT výsledek toho složení. Když tam vygenerovanou cestu vložím ručně jako text, tak to funguje, ale potřebuju ji vkládat jako hodnotu buňky. Děkuju
Tak jsem vyzkoušel, kód jsem napsal přesně jako ve videu, jen s drobnou úpravou oblasti na (C4:C9). Obrázek to vloží jen jeden a vůbec ne tam kam má tedy do buňky C4 a velikost taky nezmění. Borcovi to ve videu krásně šlape, ale i dle diskuze pod videem s tím má spoustu lidí problémy. Logiku kódu jsem pochopil, ale kde je chyba netuším, prostě si to dělá co chce. :-)
Díky za řešení
Ahoj,
potřeboval bych prosím napsat VBA na základě kterého se mně budou do buněk dotahovat z webu fotky produktů. Konkrétní představa je tato dle přiloženého vzoru:
- dle kódu uvedeného v buňce A2 si dohledá přes SVYHLEDAT odkaz z listu databáze odkazů a obrázek vloží do buňky C2 a přizpůsobí ho velikosti této buňky. To stejné samozřejmě bude platit i pro ostatní řádky ve formuláři A3 (kód) C3(foto) atd.
- Buňky pro obrázky budou všechny stejné, tak lze formát obrázku pro vložení ve VBA pevně nastavit.
- Web ze kterého se budou obrázky stahovat vyžaduje přihlášení, tak aby bylo možné do VBA zadat pevný login a heslo.
Děkuji moc
Můžu poprosit ještě o vzorec, který mně vrátí hodnotu (cenu) na základě splnění dvou podmínek (IČ a kód)? Respektive to samé co nyní, ale teď to porovnávalo kód a cenu a vracelo pojmenování sloupce. Já teď potřebuji aby mně to vracelo cenu na základě shody IČ a kódu.
Děkuji za úpravu, předěláno do ostrých dat a funguje perfektně.
Použil a upravil jsem tento vzorec do svých ostrých dat a funguje.
Původní:
=VYHLEDAT(B2;POSUN(Ceník!$B$1:$H$1;POZVYHLEDAT(A2;Ceník!$A$2:$A$8;0););Ceník!$B$1:$H$1)
Upravený:
=VYHLEDAT(J2;POSUN('[Zásoby 8.4.2021.xlsx]List1'!$K$1:$BO$1;POZVYHLEDAT(C2;'[Zásoby 8.4.2021.xlsx]List1'!$A:$A;0););'[Zásoby 8.4.2021.xlsx]List1'!$K$1:$BO$1)
Vypadá to, ale že hledá jen přibližnou nikoli přesnou shodu.
Co s tím?
Díky
Ahoj, prosím o radu jak sestavit vzorec pro vrácení hodnoty na základě dvou podmínek.
Příklad:
V tabulce Prodeje mám ve sloupci A kód zboží a ve sloupci B cenu zboží. V tabulce Ceník je zboží s cenovými hladinami kde ve sloupci A je vždy kód zboží a v dalších sloupcích B - H jsou ceny dle slevových hladin.
No a já bych potřeboval do sloupce C v listu Prodeje napsat vzorec tak, aby našel v listu Ceník např: kód 123456 (Prodeje A5 s cenou 42 (Prodeje B5), kterou najde v ceníku v D5 a vrátí hodnotu pojmenování sloupce z buňky D1 (Cena 3) atd. když vzorec rozkopíruju aby mně to za splnění podmínky shody kódu a ceny vždy vrátilo název cenové hladiny)
Děkuji
elninoslov napsal/a:
Skúste. Je to aj s popisom (ignorujte pls gramatické chybky).Příloha: 49958_reporting-nakup-2.zip (90kB, staženo 2x)
Přehodil jsem makro do svého souboru, ale nefunguje, seklo se to bohužel hned na začátku. Bude asi nejlepší když pošlu svůj soubor na kterém to budete moct odladit a budete moct potom i s makrem poslat zpět.
Děkuji a soubor je v příloze
Omlouvám se za komplikace, ale netušil jsem ze mně toto vyřeší jedno makro.
Ad 1) nee nebude, už není potřeba, vyřešil jste to makrem kde se list pojmenuje podle toho z jaké buňky je makro spuštěno.
Ad 2) V seznamu je to co půjde jako název listu z buňek ve sloupci C (např: abcde) a do buňky B10 v novém makrem vytvořeném listu se dotáhne buňka ze sloupce A stejného řádku (dle příkladu abcde = 12345).
Děkuji za čas a úpravu
elninoslov napsal/a:
Spravil som to takto:
-overuje existenciu listu
-ak list existuje, overí či odkaz v tej bunke sedí s textom v bunke a prípadne odkaz opraví
-ignoruje prázdne bunky
-funguje na multioblasť
-spúšťa sa skratkou Ctrl+M
Sub Vytvor_list()
Dim Are As Range, Bunka As Range, H(), x As Integer, y As Long, idx As Integer
If TypeName(Selection) <> "Range" Then MsgBox "Vyberte oblast buněk.", vbExclamation: Exit Sub
idx = Worksheets.Count
Application.ScreenUpdating = False
For Each Are In Selection.Areas
If Are.Cells.Count = 1 Then ReDim H(1 To Are.Rows.Count, 1 To Are.Columns.Count): H(1, 1) = Are.Value Else H = Are.Value
For y = 1 To UBound(H, 1)
For x = 1 To UBound(H, 2)
If Not IsEmpty(H(y, x)) Then
Set Bunka = Are.Cells(y, x)
With Bunka
If Kontrola_NeExistence(CStr(H(y, x))) Then
If .Hyperlinks.Count > 0 Then
If Not Range(.Hyperlinks(1).SubAddress).Parent.Name = H(y, x) Then .Hyperlinks.Add Anchor:=Bunka, Address:="", SubAddress:="'" & H(y, x) & "'!A1", ScreenTip:=H(y, x)
End If
Else
wsVZOR.Copy After:=Worksheets(idx)
ActiveSheet.Name = H(y, x)
ActiveSheet.Range("A3") = H(y, x)
.Hyperlinks.Add Anchor:=Bunka, Address:="", SubAddress:="'" & H(y, x) & "'!A1", ScreenTip:=H(y, x)
idx = idx + 1
End If
End With
End If
Next x
Next y
Next Are
wsSeznam.Activate
Application.ScreenUpdating = True
End Sub
Function Kontrola_NeExistence(sName As String) As Boolean
On Error Resume Next
Kontrola_NeExistence = Len(Worksheets(sName).Name)
End Function
Vy tam máte ale ešte makro, ktoré Vám pri zmene bunky A3 v ktoromkoľvek liste zmení jeho názov na zmenenú hodnotu.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then Exit Sub
ActiveSheet.Name = Range("a3").Value
End Sub
Tu vidím veľký problém v tých odkazoch. Vy keď zmeníte názov listu zmenením tej bunky A3, tak Vám prestane správne odkazovať link v liste Seznam.Příloha: 49948_vytvareni-listu-ze-vzoru-s-hyperlinkem.zip (21kB, staženo 2x)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.