Díky moc za pomoc. Teď je to již OK.
Ještě jednou díky.
Pepča
Ahojky. Bohužel jsem se radoval předčasně. Pokud doplním jména tak je to vše OK.Pokud odstraním data v v sešitu "baterie 1,5 V/AAA (mikrotužková)" sloupec "A" ř. 2-150 o ostatních listech se jeden vzorec stane duplicitním.Pokud vymažu buňku ve sloupci A ř.151-233 tak se data ve všech listech od ř 151 posunou o jeden řádek dolů. Opravdu nevím jak to vyřešit je to nad moje síly. Přikládám ještě jednou přílohu.
Děkuji všem za každou radu.
Pepča
Čauky.Díky za odpověď. Pochopil jsi to přesně. Zatím jsem se na to koukl jen letmo, ale zdá se ,že je to OK. Večer se na to kouknu a vyplním více řádků. Ještě jednou moc díky.
Pepča
Čauky.
Mám makro které mě po vymazání ve sloupci A listu "baterie 1,5 V/AAA (mikrotužková)"vyprázdní sloupce B-Y a opětovně seřadí dle abecedy. V jednom listu je to OK, ale potřeboval bych toto rozšířit pro zbývající listy, aby se vyprázdnily sloupce B-Y ve zbývajících listech a data ve sloupcích se seřadila.Jména se budou mazat pouze v listu "baterie 1,5 V/AAA (mikrotužková)" od řádku 2 do řádku 150. Ostatní řádky se vyplňují ručně a nejsou seřazena.
Jména jednotlivých listů se mohou přejmenovat.
Mám Ex 2016.
Děkuji za každou odpověď.
Pepča
Děkuji to je přesně to co jsem potřeboval. Ještě jednou děkuji a smekám pane mistr.
Děkuji
Děkuji za odpověď. Ale potřeboval jsem aby hodnoty se změnily v listu 2 sloupec B. Možná jsem se špatně vyjádřil.
I tak děkuji za odpověď.
Pepča
Ahojky.
Již dva dny se snažím o to, aby byl výsledek vzorce uložen jako E mailová adresa. Přikládám jednoduchý vzor. Ve skutečnosti se jedná asi o 100 sloupců a 300 řádků. Nemohu použít filtr v listu vzor, ale mohu filtr použít v listu 2. List vzor se stále mění doplňováním a mazáním jmen. Ve sloupci E je výsledek jaký bych požadoval ve sloupci B dosažen vzorcem ve sloupci B.
Bohužel jsem nenašel formát buňky jako E mail adresa.
Děkuji za každou odpověď.
Pepča
Děkuji všem za rychlou odpověď a vyřešení mého problému.
Děkuji
Pepča
Ahojky.
Potřebuji vypsat jedinečné hodnoty ze sloupce. Na to je funkce UNIQUE , ale až od Ex 2021. Bohužel v tabulkách mohu použít jen Ex 2016.Zkoušel jsem to nahradit vzorcem, který jsem stáhl z netu, ale nevím kde jsem udělal chybu.Ve sloupci T potřebuji zadat vzorcem pro Ex 2016 data jako pomocí vzorce UNIQUE.I když
budou data v jiném listu z téhož sešitu.
Díky za každou odpověď.
Pepča
Čauky.
Je to excelentní. Přesně to co jsem potřeboval. Jsi prostě borec. Mockrát děkuji za zpracování a bleskovou rychlost.
Ještě jednou moc díky.
Pepča

Čauky.
Jedná se o obyčejné tabulky bez hlavičky.Musí se porovnat text - text.Názvy listů jsou vždy v CZ. Data nejsou filtrované.Jména nejsou v seznamu a mohou se měnit.
Děkuji
Pepča
Čauky.
Potřeboval bych upravit makro stažené na tomto fóru:
Sub vymazatsměny()
jmeno = InputBox("Zadej Jméno", "Jméno pro smazání záznamů:", "")
For a = Cells(Rows.Count, 50).End(xlUp).Row To 1 Step -1
If Cells(a, 50) = jmeno Then Cells(a, 50).EntireRow.ClearContents
Next a
MsgBox "Vymazáno", vbInformation, "Přístup povolen"
Exit Sub
End Sub
Toto makro maže celý řádek , ale potřebuji aby vymazalo data jen ve sloupci E až AI které obsahují ve sloupci AX vyhledávané slovo. Makro se bude spouštět tlačítkem v každém listu. Listy jsou pojmenovány leden až prosinec. Pokud aktivuji tlačítko v lednu potřebuji, aby se vymazala data (sloupec E až AI) z příslušných listů leden až prosinec. Pokud např. aktivuji tlačítko v listu srpen tak srpen až prosinec, hodnoty buněk předcházejících měsíců musí být zachovány.Ještě by bylo vhodné pokud se zadá špatná hodnota (jméno) do vyhledávače, aby makro nahlásilo , že se jedná o chybu.
Děkuji
Pepča
Děkuji za pomoc.
Velmi děkuji Lugr. Je to přesně co jsem potřeboval. Kdo umí ten umí.
S pozdravem
Pepča
Ahojky.
Potřeboval bych poradit s makrem které uloží ne sešit, ale pouze aktivní list jako PDF do stejné složky a název dle textu v buňce BG1 .Pokud určím cestu je vše OK, ale nevím jak zadat stejnou složku a jméno.
Používám toto makro:
Sub Pokus()
Application.ScreenUpdating = False
Range("AK:AN").Select
Selection.EntireColumn.Hidden = True
Range("B793:B1048576").Select
Selection.EntireRow.Hidden = True
Range("B6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\Pokus\Export.pdf", _
OpenAfterPublish:=False
Range("AK:AN").Select
Selection.EntireColumn.Hidden = False
Range("B793:B1048576").Select
Selection.EntireRow.Hidden = False
Range("B6").Select
Application.ScreenUpdating = True
End Sub
Nevím jak změnit Filename.
Vím ,že na tomto fóru byly makra na uložení celého sešitu, ale bohužel celý sešit nejde uložit do PDF z důvodu velikosti.
Pokud by byla nutně potřeba příloha zašlu zjednodušenou.
Díky za každou odpověď.
Pepča
Děkuji za bleskovou odpověď.Je to OK. Oddělovač parametrů jsem opravil, ale nedal jsem správnou podmínku. A celkově jsem neuzavřel vzorec maticově.
Ještě jednou díky moc.
Pepča
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.