Příspěvky uživatele

Jak si s tím poradit. Půjde to mistři? Moc Děkuji

With seznam
MaxR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
With .Cells(MaxR, 1).Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
FormulaHidden = True

End With

Tohle řešení je mnohem lepší. Máte pravdu. Funguje super.
Mnohokrát děkuji.

Jak by pak vypadal vzorec. Díky

Zdravím.
Chtěl bych makrem porovnat sloupce a u shody vypsat 1.
Chci porovnat sloupec F na listu Data, se sloupcem F na listu Seznam. U shodných položek vypsat do Listu Data sloupce Q číslo 1.
Moc děkuji za případnou pomoc.

Zkusím to ještě nějak jinak pořešit. Ale přesto děkuji za vysvětlení.

Ještě mi napadlo, zda by to šlo jinak. Bohužel si stím nevím rady. Proto se ptám odborníků.
Má představa je taková, zda by šlo provést Import dat způsobem, že vyberu soubor z kterého budu načítat data, ten otevřu (tam je jich samozřejmě spousta), v automatickém filtru vyberu které data chci importovat, kliknu ok, vypíše mi kolik řádků bude importovat, zkontroluje sloupce C, zda v importovaném souboru není shoda s listem sestava (kam chci importovat data) a data se mi načtou.

Díky

jedná se o množství záznamů, Excel 2019, import ze zavřeného sešitu. Omlouvám se jsou tam citlivá data

Zdravím.
Mám tlačítko pro vkládání dat. Potřeboval bych ho doplnit o Msgbox s ověřením
Ověření by spočívalo v kontrole dat sloupců C. Pokud při vkládání dat z jiného souboru, VBA zjistí, že tato hodnota již ve sloupci C existuje, Procedura se ukončí s hláškou "Tyto produkty byli již importovány a data se nebudou kopírovat.
A pokud by šlo rozšířit i na to aby to pohlídalo maximální množství řádků. V listu Inventura v bunce D2 se mi zobrazuje kolik řádků je již obsazeno a v listu PF v buňce D1 se mi zobrazuje kolik je ještě volných řádků. To znamená, že pokud by se vkládali data, kde bude obsazeno více řádků než je možno vložit vypíše hlášku a nebude vkládat data. (Prostě max je 10 000 položek). Kód psal Elninoslov, za což mu děkuji.

Díky teď už si s tím snad dokážu poradit a upravit. Člověk se musí taky něco naučit sám a zkoušet :-)
Díky

Prostě ten kod opravy v 11 sloupci v Listu1 se načítá z jiného listu.Jen sloupec 11
Nebo to pojmout tak, že to co je v opravě, tedy prázdné pole 11 (je tam jen ten vzorec, který doplní kod opravy podle kritéria závad) to nakopíruje do třeba listu3 (V Opravě), a vše ostatní, kde je vyplněno ve sloupci hodnota větší než 1 a má textovou poznámku ve sloupci 12 nebo 13 nakopíruje do třeba Listu4 (Soupis). V každém listu kam by se generoval výstup by byl první řádek záhlaví
Nepotřebuji vzorec ponechat, jen mi to prostě nevykopíruje ty prázné bunky, protože je v nich vzorec

No omlouvám se zapomněl jsem že v 11 sloupci se používají vzorce. Moje chyba

Ano pochopil jste to přesně.

Jen vykopírovat data při kliknutí na tlačítko, v případě , že už na listu2 některá data budou samozřejmě přepsat novýmí daty (aktuálními). Ze zdrojové tabulky nemazat. Jedná se jen o data. Prohledává tak max 7000 řádků.Jedná se o Office 365
Prostě:
1.pokud bude prázdná buňka ve sloupci 11,
nebo
2.Ve sloupci 11 bude 1 a zároveň bude nějaká textová poznámka ve sloupci 12 nebo 13 nakopíruje mi to příslušné řádky do nového listu "List2" (v kterém je záhlaví, tak vkládat od druhého řádku)
Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje