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

• #29375 Delila_1 veterán poffsoft #29372

  Új Válasz 2015-11-05 07:44:45 #29375

  Ú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

  

  Delila_1

  veterán

  válasz poffsoft #29372 üzenetére

  Poffsoft , Belnir és bsh

  Tegnap csak a lényeg maradt ki, a figyelt lapok változásának a követése.

  A megfigyelt laphoz kell rendelni a lenti 2 makrót, hogy az ezen történt változásokat is tárolják a Rejtett lapon. A "Rejtett" lap Visible tulajdonságát eleve xlSheetVeryHidden-re lehet állítani, azért a makró tud bele írni.

  Public aktualis
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lastrow As Long
  Dim akt_lap As String: akt_lap = ActiveSheet.Name
  If Target.Count <> 1 Then Exit Sub
  If aktualis = Target.Value Then Exit Sub
  
  Application.ScreenUpdating = False
  
  With Worksheets("Rejtett")
  lastrow = .Range("A" & Rows.Count).End(xlUp).Row + 1
  With .Range("A" & lastrow)
  .Offset(0, 0) = Target.Parent.Name 'A – hol volt változás
  .Offset(0, 1).Value = Target.Address 'B – Változás helye
  .Offset(0, 2).Value = Now() 'C – időpont
  .Offset(0, 3).Value = aktualis 'D – változás előtti adat
  .Offset(0, 4).Value = Target.Value 'E – változtatás utáni érték
  .Offset(0, 5).Value = Environ$("username") 'F – felhasználó neve
  .Offset(0, 6).Value = Environ$("computername") 'G – PC neve
  .Offset(0, 7).Value = Environ$("userdomain") 'H – felh. domain
  End With
  End With
  
  Worksheets(akt_lap).Activate
  Selection.Activate
  Application.ScreenUpdating = True
  End Sub
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub

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