• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Ano, moc děkuji. To je přesně ono. Super

Zdravím.
Přátelé, mám zápis co mi vytvoří a uloží záložní soubor do stejného adresáře a pojmenuje ho: den-měsíc-rok-hodina atd.
Potřeboval bych, zda by šlo upravit tak, aby mi vyzval k tomu abych si sám zvolil cestu, kam soubor uložím.

Sub Zaloha()
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & _
"\" & Format(Now, "yyyy-mm-dd hh-mm-ss") & " " & _
ActiveWorkbook.name
End Sub

Už vyřešeno. Ale přesto díky

V listu 3 třeba asi takto

Tak se tedy omlouvám. Asi svůj problém řeším špatně a složitě. Chtěl jsem to kontrolovat přes další skrytý list v tabulce, protože si s tím nevím rady. Nechme tedy plavat můj příspěvek.

Popíšu o co mi jde. Snad srozumitelně.
Mám soubor s inventurními položkami a jednotlivými sklady (sklady ve sloupci C). Každé číslo skladu má X položek (řádků). Vložil jsem si modul na možnost doplnění stávající sestavy skladu o další sklad. To funguje a přidá mi sklad s x položkami od prvního volného řádku níže a vypíše hlášku kolik položek (řádků)bylo přidáno. Chybí mi však nějaká funkcionalita (asi kolekce) na pohlídání toho, abych omylem nenačtl číslo skladu, který už v inventuře mám. Prostě před načtením zkontroluje sloupce C a pokud zjistí shodu v nějakém skladu, MsgBox ohlásí sklad ... máte již v Inventuře a ukončí proceduru. V tu chvíli prostě zruší vložení dat do inventury.
Soubor co se načítá má hlavičku a čísla skladů jsou od C2 níže a načítají se do souboru s Inventurou, který má také hlavičku a zde se zobrazují od C4 níže.
Posílám kód (modul), který načítá soubor.
Lopotím se stím už nějakou dobu a vůbec nevím jak potchytit tu proceduru ještě před vložením dat

Mnohokrát děkuji

Ahoj mistři programátoři.
Předně přeji všem krásné svátky a hodně zdraví a pohody do Nového roku 2023.
Obracím se sprosbou. Potřeboval bych ve VBA porovnat dva sloupce C ve dvou listech a do listu 3 zapsat do buňky F3 Výsledek (1 v pořádku,0-duplicita a do F4 zapíše tu duplicitní hodnotu, případnou další do F5)
List-1 oblast (C4-C20000)
List-2 oblast (C2-C20000)
Pokud v se v Listu-2 najde stejná hodnota, jako je již v Listu-1, zapíše do listu-3 buňky F3 výsledek

Tak se mi to povedlo rozchodit. Asi by to šlo i jinak, ale funguje.
Před načtení jsem dal
' Počet nových položek, před načtením podle sloupece A:A
Pocet1 = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3

po načtení
' Počet nových položek, po načtení A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3 - Pocet1
' MsgBox hlášení
MsgBox "Import byl proveden." & vbNewLine & "Tímto je přidáno " & Pocet & " nových položek do Sestavy.", vbInformation

Tak buď dělám něco špatně, nebo je to to samé. Spočítá všechny řádky. Potřebuji počítat od prvního volného řádku. Data přidávám taky od prvního volného řádku.

' Počet nových položek, řídí se podle sloupece A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
MsgBox "Zapsáno " & Pocet & " nových položek do Sestavy.", vbInformation

Spočítá mi to ale všechny i se starými položkami

Ahoj.
Přátelé řeším MsgBox, který by mi vypsal, kolik jsem importem přidal, (řádků) do tabulky
Dokonce se mi i případně v E2 zobrazuje počet stávajících řádků v tabulce.

Lugr děkuji, naved jsi mi na dobrou cestu.
Vložil jsem tam
Range("oblast").NumberFormat = "# ##0"
a mám co potřebuji. Díky

Omlouvám se všem. Nechci spamovat příspěvek, odhlásilo mi to zde a příspěvěk se mi vložil jako Anonym. Proto vkládám znova s přílohou

Mistři svého oboru. Mám takovou věc. Prosím nekamenovat :-)
Mám soubor, kde se zapisují data a mám nastaveno automatické ukládání. Pokud je dat málo, je vše ok, ale pokud soubor je velký zdržuje to. Šlo by vyřešit aby se mi ukládal automaticky jen po zaškrtnutí formuláře (tlačítka)?
Může hlídat každou změnu, nebo jen změnu ve sloupci D

Moc a moc díky.

Hezký večer mistři.
Bylo by možné upravit tuto část kodu,kdy načítám data ale
sloupec Q (data se načítají od 4 řádku)bych potřeboval v číselném formátu a ne v textovém? Děkuji.

With wssoucty.Range("A4").Resize(r, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A4,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse