Příspěvky uživatele
< návrat zpět
Príloha s makrom, teda XLSM, musí byť zabalená do ZIP a veľkosť max tuším 256 kb. Inak Vám ju nevloží. Ak je to väčšie, použite GoogleDrive alebo ine Free úložné služby.
Príklad:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U32")) Is Nothing Then
Select Case Range("U32").Value
Case "ANO": Shapes("Skupina 3").Visible = True
Sheets("VYKRES").Shapes("Skupina 133").Visible = True
Case " ": Shapes("Skupina 3").Visible = False
Sheets("VYKRES").Shapes("Skupina 133").Visible = False
End Select
End If
End Sub
No tak si do VLOOKUP zadajte číslo stĺpca z ktorého chcete čítať Name. My nevieme, ktorý stĺpec je ten "správny" a Vy ste nám o probléme určovania správnosti stĺpca nepovedal nič.
Alebo chcete spojiť všetky Name zo všetkých 20 stĺpcov ? Použite napr. CONCATENATE.
A ako posledná, ale najdôležitejšia veta:
Vložte prílohu vo forme súboru Excel, kde bude príklad toho čo máte, aj toho čo chcete aby bol výsledok.
Hmm ... aj tak neviem, čo presne chcete dosiahnuť ... fakt nerozumiem ... to bude asi prepečenou gebuľou od slnka ... :)
O pár znakov kratšie s použitím ISERROR namiesto IFERROR ...
Už vidím tú dlhú debatu :)
-čo ak je 31. vo štvrtok ? Môžem mať 5 hod nadčasov od 28. do 31., a 5 hod od 1. do 3. ?
-ak nie, ako sa to rozdelí do mesiacov ?
...
Skúste priložiť nejaký príklad (tabuľku).
V spojení s CHOOSE/ZVOLIT by to mohlo vyzerať aj takto:
Len poznámka z mobilu. Stĺpcov v rozsahu A:K je 11, Vy robíte potom Resize na 10. Skutočne Vám to funguje správne? Samozrejme potrebu prílohy spomínal Pavlus...
Čo myslíte tým "dostať sa na každý 10. riadok" ?
Vo vzorci počítať s každým 10-im?
Makrom prechádzať každý 10-ty?
Zmenou adresy bunky na napr. 3000:3000 skočiť kurzorom na nejaký riadok?
...
Priložte príklad formou súboru.
Na mobile vidím prd, ale myslím, že prvé YT video to ukazuje. Možno je na to aj nejaká skratka.
Presne takto nejako som to myslel. Ja si to tu pár krát denne pri pivečku čeknem, ale kódovať to na mobile v krpatom okne ... PC zapnem len po vyhlásení výnimočného stavu.
Stalker ľavou zadnou ... 
No to si asi fakt počkáš. Som na dovče, a teda furt v "akcii". Book mám, akurát ho neotváram :)
Zamieňate si premenné counter a i. Pri adresácii bunky použite counter, a nie i. Tak isto použite odkaz na bunku v inom stĺpci, odkiaľ chcete hodnotu. Teda napr.:
Rng.Cells(counter).Offset(0, -2).Value2 = Rng.Cells(counter).Offset(0, -6).Value2
Celé by som to ale urobil cez polia, alebo priamou adresáciou. Ale som len na mobile...
Máte na mysli .Interior.Color každej bunky v "N" ? Tá farba je pomocou PF ? Ak áno, aký je vzorec v PF ? (to sa riešilo v minulom vlákne).
Ak by mal byť vzorec PF napr. iba porovnanie s inou bunkou, tak by bolo pre makro rýchlejšie si interne znovu vyhodnotiť všetky podmienky (teda dôjsť k rovnakému výsledku ako PF) cez naraz načítané pole, ako čítať postupne farbu z každej bunky. Prechodov medzi listom a VBA je dobré mať čo najmenej.
To makro to robí bunku po bunke = pomalé. Toto makro s názvom "Makro" to robí hromadne. Navyše dosť pochybujem o nutnosti použitia zmeny režimu zobrazenia na začiatku, rovnako ako o hľadaní prvého riadku. Prvý riadok dát bude u Vás predpokladám vždy riadok 3.
Otestujte, lebo príliš som to neskúmal...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články