Excel - zaznamenání času změny hodnoty provedenou funkcí Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

ondra.baf
nováček
Příspěvky: 7
Registrován: únor 15
Pohlaví: Nespecifikováno
Stav:
Offline

Excel - zaznamenání času změny hodnoty provedenou funkcí

Příspěvekod ondra.baf » 05 úno 2015 15:05

Dobrý den,
potřeboval bych makro které zaznaméná časy do vedlejších buňek (E5:E34) změny hodnoty buňek (D5:D34) kterou provádí funkce(hodnota buňky se mění z neproběhlo na proběhlo). Našel jsem pouze toto ale to nezaznamenáva změnu funkcí.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$d$5" Then
Cells(5, 5) = Now
End If
If Target.Address = "$d$6" Then
Cells(6, 5) = Now
End If
atd.......
End Sub

Předem díky za odpověd.

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - zaznamenání času změny hodnoty provedenou funkcí

Příspěvekod cmuch » 14 úno 2015 18:34

Přilož nějakou ukázku.

ondra.baf
nováček
Příspěvky: 7
Registrován: únor 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - zaznamenání času změny hodnoty provedenou funkcí

Příspěvekod ondra.baf » 14 úno 2015 19:13

Tady je příklad jak to má fungovat. Doufám že to z toho bude jasnější :-D
Přílohy
Čas změny.xlsm
(13.55 KiB) Staženo 53 x

cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - zaznamenání času změny hodnoty provedenou funkcí  Vyřešeno

Příspěvekod cmuch » 14 úno 2015 21:06

Možná takto

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

  If Cells(Target.Row, 2).Value = "Proběhlo" And Cells(Target.Row, 3).Value = "" Then
    Cells(Target.Row, 3) = Now
  End If
End Sub

ondra.baf
nováček
Příspěvky: 7
Registrován: únor 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - zaznamenání času změny hodnoty provedenou funkcí

Příspěvekod ondra.baf » 15 úno 2015 01:00

Díky moc to sem přesně potřeboval :-D


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Počítač do 30k- změny Příloha(y)
    od Dejvik2323 » 18 bře 2025 15:32 » v Rady s výběrem hw a sestavením PC
    11
    5721
    od DragonX Zobrazit poslední příspěvek
    24 bře 2025 12:50
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4832
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12250
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4846
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3364
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů