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

• #41277 Fferi50 Topikgazda RAiN91 #41276

  Új Válasz 2019-07-03 10:44:03 #41277

  Ú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

  

  Fferi50

  Topikgazda

  válasz RAiN91 #41276 üzenetére

  Szia!

  Az alábbi makrót másold a munkalap kódlapjára. (Jobb egérgomb a fülön, majd kód megjelenítése.)

  Option Explicit
Public hol As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
Application.EnableEvents = False
Range("A1").Offset(0, hol).Value = Target.Value
If hol < 2 Then hol = hol + 1 Else hol = 0
Application.EnableEvents = True
End If
DoEvents
End Sub
  A makró az F1 cellában bekövetkező változásokat követi le, az általad leírt módon az A1-B1-C1 cellában. A $F$1 helyére írd azt a címet ilyen formában, ahol a változások végbemennek, az A1 helyére írd azt az első cellát, ahova a változásokat szeretnéd beírni. A hol változó 0 és 2 között változik, értékétől függően kerül az A1-B1-C1 cellába az érték az Offset tulajdonság alapján.
  Más cellákban bekövetkezett változásokra nem reagál.
  Azt nem tudom, hogy az általad jelzett gyakoriságú változások miatt a "villódzásokon" kívül fogsz-e látni bármit is.
  A DoEvents utasítás azért került bele, hogy a Ctrl+Break billentyűkkel le tud állítani a makró futását.

  Üdv.

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