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

• #26756 Fferi50 Topikgazda Zozzy #26753

  Új Válasz 2015-05-01 08:17:30 #26756

  Ú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 Zozzy #26753 üzenetére

  Szia!

  Az A1 cellát másolod és ugyanoda beilleszted értékként, de ez elég macerás minden adatbevitel után.
  Ezért javaslom a következő makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 2 Then Exit Sub
  If Target.Value <> "" Then
  Application.EnableEvents = False
  Target.Offset(0, -1).Value = Now()
  Application.EnableEvents = True
  End If
  End Sub

  Ezt úgy viheted be, hogy a munkalapfülre jobb egérgombbal rákattintasz, kód megjelenítése, majd a megjelent kódlapon az üres területre bemásolod.

  A makró azt csinálja, ha a B oszlop egy cellájába adatot írsz (vagy megváltoztatod az ott levő adatot), akkor beírja az A oszlopban mellette levő cellába a Most függvény értékét, ami természetesen nem fog a továbbiakban változni.

  Üdv.

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