Bez makra to bude o dobrom prstoklade. Pr.:
Chcem dátový riadok 1 a 3 (teda riadok 5 a 7):
1. Označím si Názvy. Mám označené C4:F4
2. Označím k tomu pomocou Ctrl aj bunku C5. Mám označené C4:F4,C5
3. Ctrl+Shift+šípka vpravo. Mám označené C4:F4,C5:F5
Ďalšie oblasti pridávam opakovaním bodov 2. a 3., pričom môžem označiť aj viac riadkov, a po klávesovej skratke sa označia všetky riadky v stĺpcoch vpravo.
Potom už iba Ctrl+C...
Ak chcete makro, tak potom by sa mohlo napr. na klávesovú skratku Ctrl+G nastaviť
Sub Makro1()
' Klávesová skratka: Ctrl+g
Dim RNG As Range
With ActiveSheet
Set RNG = Intersect(Selection.EntireRow, .Range("C4:F4").EntireColumn)
If RNG Is Nothing Then MsgBox "Nevybrali jste sloupce C:F", vbCritical: Exit Sub
Union(.Range("C4:F4"), RNG).Copy
End With
End Sub
Musíte mať v Outlooku nastavené a funkčné Vaše mailové konto, a hlavne si aktivujte jeden z riadkov
.Display
.Send
odstránením apostrofu na začiatku riadku. Význam je jasný, aj popísaný v makre.
Takže poznáte či nepoznáte počet a názvy všetkých tlačítok?
Takže sa musí z "Datum zaúčtování" zistiť rok a mesiac, a v riadku daného roku a mesiaca pripočítať k už doteraz naspočívavanej sume? Teda napr. v.r. 5614843 patrí do listu "NB 2" čo je vlastne inak pomenovaný "NE 2". V ňom pre záznam z 3.11.2022 platí, že prepíšeme bunku C19 na 3.11.2022 a bunku D19 na 1375,00. A nemôže nastať situácia, že v bunke C19 alebo D19 už budú dáta? Ak môže, a dáta tam už budú, "částka" sa má zrátať/prepísať? A čo v prípade rozdielneho dňa v mesiaci, to fakt neviem. Alebo ako to teda. To pole "platba č." neznamená mesiac? V tom prípade je strašne nevhodné v prílohe použiť pre každý rok čísla 1-12.
=LEN(A2)-LEN(SUBSTITUTE(A2;"|";""))
=DÉLKA(A2)-DÉLKA(DOSADIT(A2;"|";""))
V tom prípade som Vás zase nepochopil. Tu sú 2 príklady pomocou COUNTIF a SEARCH/HLEDAT. (maticové vzorce: Ctrl+Shift+Enter)
=IFERROR(INDEX(VYROBCI;MATCH(TRUE;COUNTIF(A1;"*"&VYROBCI&"*")>0;0));"")
=IFERROR(INDEX(VYROBCI;POZVYHLEDAT(PRAVDA;COUNTIF(A1;"*"&VYROBCI&"*")>0;0));"")
=IFERROR(INDEX(VYROBCI;MATCH(FALSE;ISERROR(SEARCH("*"&VYROBCI&"*";A1));0));"")
=IFERROR(INDEX(VYROBCI;POZVYHLEDAT(NEPRAVDA;JE.CHYBHODN(HLEDAT("*"&VYROBCI&"*";A1));0));"")
Je to iba príklad, určite existujú ďalšie možnosti poskladania funkcií (napr. s pomocou MIN() a ROW()/ŘÁDEK().
Takže to nie je táto téma. Mali ste dať otázku do danej témy, alebo pridať odkaz na danú tému alebo prílohu. Automaticky som predpokladal nasledovné:
-Pod exportom si v drvivej väčšine predstavujem export dát a iba dát. Teda bez tlačítok, bez makier. Teda mažem všetky tlačítka. Preto
Dim btn As Button
For Each btn In ActiveWorkbook.Worksheets(1).Buttons
btn.Delete
Next btn
-Predpokladám, že hovoríte o tejto téme, a teda predpokladám tlačítka spomínané v tejto téme. Preto
ActiveWorkbook.Worksheets(1).Buttons(Split(NAZVY & ",btnReset", ",")).Delete
-Export listu sa robí väčšinou (záleží prípad od prípadu) pomocou .Copy listu, a následnom mazaní ovládacích tlačítok z aktívneho novovytvoreného zošitu. Preto
ActiveWorkbook...
Vy ale obchádzate všetky predpoklady, neupozorníte na inú tému, neodkážete na prílohu, nespomeniete názvy tlačítok.
Takže.
1. Ak poznáte názvy tlačítok (Nájsť a vybrať - Tabla výberu)
NejakýZošit.NejakýList.Buttons(Array("Button 1", "Button 2")).Delete
2. Ak nepoznáte názvy tlačítok, alebo neviete ich počet
Dim btn As Button
For Each btn In NejakýZošit.NejakýList.Buttons
If btn.name<>"toto tlačítko nemazať" Then btn.Delete
Next btn
Čo znamená ?
nicméně dělá mi to pak chybu při použití jiného tlačítka
Žiadny export sme predsa neriešili. Každopádne buď vymažte menný zoznam (ak ho viete):
ActiveWorkbook.Worksheets(1).Buttons(Split(NAZVY & ",btnReset", ",")).Delete
alebo vymažte všetky nájdené tlačítka na liste (ak neviete ich názvy a počet):
Dim btn As Button
For Each btn In ActiveWorkbook.Worksheets(1).Buttons
btn.Delete
Next btn
???
Takže to nie je dátum. Je to text uložený vo formáte Všeobecný. A ten sa snaží Excel rozpoznať. A rozpozná ho ako dátum. Buď text naformátujte ako Text, alebo namiesto
.Value = .Value
použite
.Copy
.PasteSpecial Paste:=xlPasteValues
Môžete priložiť nejaký príkladový súbor? Mne to s formátom nič nerobí (mena, desatinné číslo, dátum, ...).
Ctrl+H, zaškrtnúť "Hľadať zhodné bunky", Nájsť všetky, Ctrl+A, Zavrieť, Delete
Ak to prenášate vzorcom, prázdna proste nezostane.
Maličká zmena...
A na ktorom riadku to zostane stat?
OT: V tomto príspevku som naspodu v časti OT vysvetlil prečo mi radšej nick neskoňujte. To "slov" vynechajte, použite iba Elnino - to sa dá skloňovať
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.