MATCH = POZVYHLEDAT
A ešte chyba bude asi v tom "+" vo vzorci.
A vzorec v poli "Odkaz na:" musí začínať znakom "=".
Čo znamená "nejde mi to. Pořád mi to hlásí chybu" ? Text chyby ? Príloha ? Dávate ako oddeľovače čiarky "," alebo bodkočiarky ";" ? Nechce sa mi to hľadať, ale sem na fórum som aj ja dával určite konkrétne tento prípad s vlajkami...
Ja som normálne vo VBA (E2016 Pro) klikol pravým na ToolBox - Additional Controls - zaškrtol Microsoft Web Browser - OK. A vložil som prvok WebBrowser do formu. Potom mi čudlík načíta animované GIF normálne.
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "Z:\pokus.gif"
End Sub
Šmarjá, veď sem dajte prílohu, aby sa vedelo, ako sa tie Vaše listy volajú, alebo si to List2 zmente na Code názov Vašeho listu. V editore VBA keď kliknete na list, tak je to v okne Properties položka "Name". Alebo to List2... nahraďte za Worksheets("názov listu na jeho ušku")...
Tak príklad...
Ale s kopírovaním listu do nového zošitu už bolo popísaných veľa problémov. Nevysvetliteľných chovaní. Treba s tým počítať. Aj tu sme už viedli siahodlhú debatu na túto tému, ale nechce sa mi to hľadať...
Inak aj bunka Vám to zistí:
=LEFT(CELL("filename";$A$1);2)
=ZLEVA(POLÍČKO("filename";$A$1);2)
Ak by to nechcelo prepočítavať, tak to obalte do IF/KDYŽ napr:
=IF(NOW()<>0;LEFT(CELL("filename";$A$1);2))
=KDYŽ(NYNÍ()<>0;ZLEVA(POLÍČKO("filename";$A$1);2))
Iba typ: Máte v nastavení to zaškrtávacie políčko ? Rovnako mrknite na syncho s internetovým časom. A pozrite v services.msc či máte spustenú službu "Windows Time".
Predpoklad vrátenia správneho písmena disku je:
-uložený súbor (nie iba nový a neuložený)
-neotvárať z archívu (ten sa rozbalí do Tempu - predvolene C:)
Tu máte už uvedené príklady v súbore, a mne fungujú.
Nie. Použite teda spojenie pomocou pomocného skrytého stĺpca. Vymyslite si podobne koncipovaný vzorec, ktorý bude vždy pridávať daný riadok k už spojeným, a Vy budete čítať iba poslednú hodnotu, ktorej pozíciu vhodne umiestnite.
Vygooglené-upravené
Ďalší príklad:
Function SPOJTEXT(rng As Range) As String
Dim ADR As String
ADR = rng.Columns(1).Address
SPOJTEXT = Replace(Replace(Join(Evaluate("=TRANSPOSE(IF(" & ADR & "<>""""," & ADR & ",""""))"), "•°"), "°•", vbNullString), "•°", ",")
If Right$(SPOJTEXT, 1) = "," Then SPOJTEXT = Left$(SPOJTEXT, Len(SPOJTEXT) - 1)
End Function
Napríklad:
Sub pokus()
Dim Subor As String, Bodka As Long
Subor = "Z:\Pokus súbor.xls"
Bodka = InStrRev(Subor, ".")
If Bodka > 0 Then
If LCase(Right$(Subor, Len(Subor) - Bodka)) <> "xlsm" Then Subor = Left$(Subor, Bodka) & "xlsm"
Else
Subor = Subor & ".xlsm"
End If
ThisWorkbook.SaveAs Filename:=Subor, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
Ktorá časť tabuľky sa má kopírovať ? Tú ktorú si práve označíte, alebo nejaká stále rovnaká časť ?
Kam sa má vložiť, pod ktorú tabuľku? Pod tabuľku v liste "ADAMCOVÁ Karla" ? Alebo na akomkoľvek liste, kde bude to tlačítko (predpokladám viac listov) ?
Čo si predstavujete pod pojmom "Kopírovať časť tabuľky" ? Kopírovanie formátu, okrajov, farieb, hodnôt, vzorcov, overenia dát ... ? Alebo iba hodnôt ?
Označte v prílohe pôvodný stav a na kópii listu výsledok aký chcete mať po stlačení čudlíku.
Toto vzorcom nepôjde. Musíte použiť makro. Tu sú 2 príklady. Jeden vypíše zoznam a počet obrázkov "*.jpg", a druhý robí opačnú vec, kontrolu existenciu súboru cez UDF. Pozor, ak treba zaradiť do zoznamu aj "*.jpg" aj "*.JPG" alebo aj "*.jpeg" či "*.JPEG", treba to urobiť inak.
Rozhodne 2. možnosť. Inak by to bolo veľké riziko. Nezabudnite, že operácie makrom nemajú Undo. Čo ak poseriete iný súbor ? Určite Open dialog.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.