ano funguje. Je dost mozne ze makro nespustate z spravneho sheetu tj. P-1.
skuste makro prepisat na:
Sheets("P-1").Range("A1:I222").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("P-2").Range("N1:O2"), Unique:=False
pretoze ste premenovali sheet:
Range("A1:I222").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("01 SELECTIVE SWITCH ").Range("N1:O2"), Unique:=False
ked si k svojmu ciselniku priradite nazvy z druheho ciselnika tak potom vam uz bude stacit pouzit len funkcia VLOOKUP.
tu je navod:
https://www.itlektor.eu/excel-funkcia-vlookup-a-hlookup?gclid=EAIaIQobChMIz5O5hey25QIVDbTtCh11NgjvEAAYASAAEgJgYvD_BwE
islo by to cez kniznicu "Microsoft CDO for Windows 2000 Library"
hadam vam to tu niekto prepise do vasho makra :)
navod je tu:
https://stackoverflow.com/questions/41697695/how-to-send-e-mail-through-vba-without-outlook
oblast tlace v exceli sa nemoze samovolne posunut.
Hladal by som chybu nie v exceli ale v tlaciarni
vela veci ste nevysvetlili tak odhadujem ze tab1 je ciselnik a tab2 je vyhladavane udaje
pouzil by som jednoduchu funkicu:
=IF(VLOOKUP(D2;$A$2:$B$16;2;1) =E2;"TRUE";"FALSE")
jo funkcia vlookup
https://support.office.com/sk-sk/article/vlookup-funkcia-0bbc8083-26fe-4963-8ab8-93a18ad188a1
myslim ze tu na stranke vela ludi poskytuje rady bez akejkolvek konpenzacii.
Ked tvrdite ze je to skuseny programator tak mu len poradim ze idealne bude pouzit ADODB a brat to cez SQL syntaxu. takto kazdy dokument ygeneruje asi za 1s. Tymto sposobom ale strati vyfarbenie buniek.
ta funkcia bola len nazorna bolo v nej vidiet kde porovnavala aktualny udaj a udaj po refresh tj. napr. ked stlpec A prepisete inou hodnotou .
a ked sa rovna tak prefarbi vzorec na zeleno
a ked sa nerovna prefarbi na cierno
toto pojde asi len cez makro. Skuste kuknut tuto funkciu
treba to odkrokovat z obrazku nieje jasne co funkcia exportpdf robi. Mala by vraciat string Path k suboru.
riesil by som to VBA funkciou:
Function aTest(aText As String) As String
aTest= aText
If aText = "bla bla" then MsgBox "bla bla"
End Function
podla prikladu presne netusim co potrebujete
ale pre pracu s XML je dobre pouzivat referenciu "Microsoft XML v3.0"
tam ked nacitate stranku/txt/xml tak uz je jednoducho sa pohybovat po xml strukture
pre lepsie znazornenie pozrite prilohu:
Dobry den,
urobil som nato makro. To makro podla mna nieje az tak dobre dalo by sa to urobit aj vzorcovo bez makra alebo SQL makrom ktoreje rychlejsie.
ale hadam vam ajtoto postaci
podla mna vznika chyba ze prepocet ste dali do eventu "worksheet_calculate".
skuste ju dat Rovno do comboboxu.
navod:
stlacite pravy cuplik na object "combobox" a z menu vyberete "priradit makro"
tak ako to je v prilohe
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.