PC-HELP.CZ

Zdravím,

mám menší problém potřebuji aby když zadám hodnotu do bunky B4 se v bunce C4 ukázalo datum a čas kdy byla hodnota zadána.

B4->C4
B5->C5
B6->C6
B7->C7

Ideálně do řádku 1000. Vím že na to není funkce a že se to dělá pomocí zdrojového kodu listu ,nicméně toto je pro mě vyšší dívčí

Potom bych potřeboval poradit s "rolováním řádků". Zadám hodnotu do B4 v C4 se ukáže čas a datum a řádek se schová. Nechci aby se muselo po každém otevření excelu listovat až na poslední zadanou hodnotu, ale aby se mohlo listovat po rozkliknutí. Jestě ideálnější by bylo vidět třeba 2 naposled zadané hodnoty + prázdné pole 3 řádky by se zobrazovali a při zadání nové hodnoty by se řádek nejvýše schoval.

Moc děkuji za pomoc

Zobrazit aktuální datum a pamatovat si ho neumím, ale to rolování bych řešila ukotvením druhého řádku (je v něm číslo 3318 214/123). Po zapsání hodnoty do sloupce B (a po načtení data zápisu, až to tam bude) jednoduše necháš vidět řádek, který potřebuješ a uložíš sešit. Při dalším otevření bude vidět přesně to, co jsi opustil.

Velice děkuji za odpověd ukotvení řádku vím ... nakonec sem to vyřešil jinak :) , ale i tak moc díky! :)

Poradil by mi někdo s tím datumem ?

Pro rekapitulaci potřebuji aby když zadám do bunky B4 se objevilo datum a cas v bunce C4 Kdy byla hodnota do bunky B4 zadána a aby to fungovalo do řádku minimálně tisíc nebo pro celé sloupce B - C.

Potřebuji tabulku do které se budou přebírat hodnoty z momentového klíče a vyskočí datum a čas kdy byla hodnota načtena :(

Už si opravdu nevím rady ... celkem to spěchá

Kdo mi pomůže tak má u mě flašku,ledvinu cokoliv ....

Kód vlož do listu. (Funguje to na celý sloupec B.) Formát datumu a času si můžeš upravit, syntaxe je zřejmá z kódu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 3).Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")
End If
End Sub

Jsem velkým dlužníkem
vše maká jak má
Díky !

OK, tak potřebuji podrbat záda...

Ještě přidávám verzi, kdy to zamkne sloupec C, aby ten datum nemohl nikdo přepsat.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Cells.Locked = False
Range("c:c").Locked = True
If Target.Column = 2 Then
Cells(Target.Row, 3).Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")
End If
ActiveSheet.Protect
End Sub