Čau profíci,
potřeboval bych pomoct se sledováním změny buňky tak jako je u sdíleného sešitu pokud si dám zvýraznit změny. Sešit bude sdílený, bude mít několik sloupců a dva sloupce by měli obsahovat komentřář a kdo-kdy změnil. Políčko kdo-kdy změnil by se mělo samo aktualizovat po změně políčka komentáře na základě přihlášené osoby, tj. vyplněného uživatelského jména.
Díky za pomoc
Sledování změny buňky Vyřešeno
-
- nováček
- Příspěvky: 30
- Registrován: listopad 09
- Pohlaví:
- Stav:
Offline
Sledování změny buňky
- Přílohy
-
- vzor.xls
- (31 KiB) Staženo 81 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Sledování změny buňky
V editoru VBA (Alt+F11) vloz do modulu prislusneho listu (nutno predem zrusit sdileni sesitu) proceduru, plati pro zmeny v prvnim sloupci:
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
End Sub
-
- nováček
- Příspěvky: 30
- Registrován: listopad 09
- Pohlaví:
- Stav:
Offline
Re: Sledování změny buňky
Perfektní, díky. Jde tam přihodit ještě i datum a čas, kdy byla změna provedena?
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Sledování změny buňky Vyřešeno
samozrejme lze.
Pokud primo ke jmenu, pak takto:
do dalsi bunky takto (uprav si ve sloupci format bunky):
Pokud primo ke jmenu, pak takto:
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName") & " " & Now
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName & " " & Now
End Sub
do dalsi bunky takto (uprav si ve sloupci format bunky):
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
Target.Offset(0, 2).Value = Now
End Sub
-
- nováček
- Příspěvky: 30
- Registrován: listopad 09
- Pohlaví:
- Stav:
Offline
Re: Sledování změny buňky
Díky. uzavírám
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 2265
-
od jaojao
Zobrazit poslední příspěvek
26 bře 2024 12:41
-
-
Velké změny před námi! Update fóra a přechod na nový server
od Ltb » 15 dub 2024 12:23 » v PC-HELP -> NOVINKY - 0
- 5969
-
od Ltb
Zobrazit poslední příspěvek
15 dub 2024 12:23
-
-
-
Pruhy přes obrazovku při sledování YT, apod.
od jxdm » 10 bře 2024 10:39 » v BSOD (Blue Screen Of Death) - 1
- 3187
-
od ITCrowd
Zobrazit poslední příspěvek
11 bře 2024 09:56
-
-
-
Funkční a spolehliva aplikace pro mobil Android ,na sledovani detí
od Ketty02 » 01 dub 2024 22:09 » v Vše ostatní (sw) - 1
- 1933
-
od pikaso.andreas
Zobrazit poslední příspěvek
01 dub 2024 22:14
-
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 3311
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti