Příspěvky uživatele

Pavle, ja Vám fakt čoraz viac nerozumiem

Nie je náhodou to, čo naposledy popisujete, typické pre VLOOKUP/SVYHLEDAT ???

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á ?

Ž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?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje