Příspěvky uživatele

Lugr moc a moc děkuji, funguje přesně podle zadání.
Skvělé

Pak tedy Poprosím, pokud bude ve sloupci K "1"(jednička jako hodnota) do sloupce L se zapíše do příslušného řádku datum a čas.
To by mělo fungovat od čtvrtého řádku níže (záhlaví).
Pokud jedničku smažu, odstraní se i datum a čas ze sloupce L.
Potřeboval bych zda by bylo možné aby makro fungovalo jak na jedničky vepsané klávesnicí, tak i na rozkopírování a vložení.
Je to možné. Moc děkuji

Lugr Děkuju. SUPR

Potřebuji datum a čas zápisu do buňky.
Tato funkce je ale dynamická a neustále se mi čas mění.

=KDYŽ(K5=1; NYNÍ(); "")

Děkuji

Zdravím, potřebuji pomocí VBA roztáhnout vzorec pod sebe do všech vyplněných řádků.
Vložení je jasné, ale potřebuji stáhnout vzorec dolů a nevím, kolik je celkem vyplněných řádků v listu.
Moc děkuji

Ok. Děkuji moc jste mi pomohl.

Elninoslov děkuji, od boku a skvělé. Šlo by ještě datum zarovnat vlevo?
Děkuji moc

Zdravím. Pánové od fochu, potřeboval bych upravit kód.
Do sloupce 15 se mi vzorcem zapisují data z jiného listu a pokud je ve sloupci 15 nějaká hodnota vyplní buňky vlevo sloupec 11 a 12 (11 vyplní 1 a 12 datum).
Bohužel mi to vymaže předchozí data v jiných řádcích, kde ani ve sloupci 15 nejsou žádná data. Potřebuji to ošetřit tak, aby v případě, že bude nějaká vyplněná hodnota ve sloupci 11-14, tak tento řádek ponechá beze změny, nebo prostě aby si to upravilojen ten řádek, kde je ve sloupci 15 nějaká hodnota (takto to přepíše všechny řádky, reaguje to i na řádky kde je ve sloupci 15 jen vzorec)
Omlouvám se že dávám bez přílohy.

Private Sub Odfiltrovat()

Dim Sledovana_oblast(), Datova_oblast()
Dim i As Long

With wsSouhrn 'Jméno listu
Sledovana_oblast = wsSouhrn.Range("O4:O100003").Value
ReDim Datova_oblast(1 To UBound(Sledovana_oblast), 1 To 2)

For i = LBound(Sledovana_oblast) To UBound(Sledovana_oblast)
If Sledovana_oblast(i, 1) <> "" Then
Datova_oblast(i, 1) = 1
Datova_oblast(i, 2) = Now
End If
Next i

With wsSouhrn.Range("K4")
.Resize(UBound(Datova_oblast, 1), 2).Value = Datova_oblast

End With
End With
Erase Sledovana_oblast
Erase Datova_oblast

End Sub

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

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje