Új hozzászólás Aktív témák

• #50275 RAiN91 őstag

  Új Válasz 2023-01-16 18:07:07 #50275

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  RAiN91

  őstag

  Sziasztok,

  Az alábbi kódot hogyan lehetne úgy megcsinálni, hogy hasonlóan egyszerű felépítésű legyen? A cél, hogy AH10 cellába írja be K9 tartalmát, ha F4 cella változott. F4 cellában egyébként egy másodpercenként változó óra van, külső adatforrásból. Szeretném, hogy állandóan fusson az egész, ezért választottam worksheet_calculate-t, illetve még más kódok is vannak benne, ezért ehhez ragaszkodnék.

  A hiba ott van, hogy megadtam, hogy k=10, és mindig innen indul. De nekem csak az eleljén kéne tudni, hogy 10, utána már léptethetné.

  Sub worksheet_calculate()
Application.EnableEvents = False
k = 10
If Range("F4") <> Range("AH9") Then
Range("AH9") = Range("F4")
Range("AH" & k) = Range("K9")
k = k + 1
End If
Application.EnableEvents = True
End Sub

Új hozzászólás Aktív témák