Skvělá práce. To je ono. Díky

Ahoj
Jak změnit zápis
.Resize(, 2).value = Array(1, Now())

aby Now nepsal formát 1/9/2023 6:40:30 PM
ale 01.09.2023 18:40:30
Díky

//Upraven název tématu

//mmm

Zkusil jsem tu druhou verzi.
Naprosto úžasné. Vše proběhlo v momentě.
Elnino Děkuji jsi frajer. Beru tě na fórech za optravdu největšího borce. Nechci nijak osočit ostatní, a všem se omlouvám, ale asi to tak bude.
Moc mi to pomohlo.

Ahoj. Mistři, nešlo by tento zápis upravit? Pokud mám velké množství záznamů , tak je to pomalé. Dík Public Sub jedinecneHodnoty() Worksheets("RK").Range("K:K").ClearContents Dim hodnoty As Variant hodnoty = Worksheets("Datovepole").Range("C4:C200003").value D...

NO super. Je to tak, když se dělá moc věcí najednou.
Děkuju. moc jste mi pomohl. Supr

Dobrá, asi jsem se dost nepřesně vyjádřil. No nevadí už jsem to nějak vyřešil. Ale mám ještě jinou věc. Potřeboval bych však upravid kód (pokud je možno) takto: Při inventuře načítám kódy zboží (čtečkou), kde se mi do tabulky k jedotlivým položkám vypisuje 1 jako nalezeno. Vše v pořádku funguje poku...

Ahoj.
Šlo by napsat makro které:
Vyhledá v listu "sestava" ve sloupci Q všechny buňky které mají hodnotu 1, ty nakopíruje, pak mi nabídne v PC vybrat soubor kde je již list "V seznamu ANO" a tam do slouce Q vloží data ? Ostatní buňky zůstanou beze změny.

Děkuju. Funkce ifs bude vyhovovat. Jen si upravím podmínky.

Pořeboval bych vše do jednoho vzorce. Díky

Když I2=0 Vše ok, když je ale i K2=0 pak Prázdná sestava, když I1>0 ještě zbývá

No úplně supr. Přesně dle požadavku. Díky moc.

Zdravím, mám uvedený soubor a chtěl bych aby bylo možno zvolit (přepnout) zda budu chtít vyhledávat z Listu sestava ze sloupce N a nebo F (podle čárového kodu, nebo výrobního čísla).
Děkuji

A Makrem přes to tlačítko? Díky

Dodatečně přidáno po 3 hodinách 49 minutách 52 vteřinách:
Ano, tohle je přímo super. Děkuji moc za velkou pomoc.