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: 1544
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 52 x

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
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
  • Super změny
    od jaojao » 24 bře 2024 19:10 » v PC-HELP - připomínky k fóru
    1
    422
    od jaojao Zobrazit poslední příspěvek
    26 bře 2024 12:41
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    3
    1787
    od Melvidor Zobrazit poslední příspěvek
    21 črc 2023 08:41
  • Wi-Fi router pro dům s možností funkcí Mesh
    od P1X3L » 05 bře 2024 20:12 » v Sítě - hardware
    30
    2409
    od nl635 Zobrazit poslední příspěvek
    08 bře 2024 18:48
  • Poraďte GPU+Zdroj+Casu
    od ttomasek » 20 led 2024 20:00 » v Rady s výběrem hw a sestavením PC
    7
    1153
    od Gerete Zobrazit poslední příspěvek
    23 led 2024 21:27
  • Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
    od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8...
    0
    1050
    od Grander Zobrazit poslední příspěvek
    29 čer 2023 17:34

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

Kdo je online

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