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

• Mutt senior tag

  2013-12-03 22:54:50 #19763

  Új Válasz

  Ú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

  

  Mutt

  senior tag

  válasz Metathrone üzenetére #19759

  Hello,

  Az ilyen feladat tipikusan a lap Change eseményével oldható meg.
  Jobb klikk a lapon és "Kód megjelenítése" opcióval a laphoz rendelhetsz makrót. A lenti kódot másold be.

  Annyi pluszt tettem bele hogy ha üres a cella akkor mellőle kiveszi a dátumot.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cell As Range
  
  'csak a második, a B-oszlop esetén fusson
  If Target.Column = 2 Then
  'ha egyszerre több cella keül módosításra,
  'akkor egyenként végigpörgetjük őket
  For Each cell In Target
  'ha nem üres akkor jobbra 1-el aktuális dátum, különben töröljük
  If cell.Value <> "" Then
  cell.Offset(, 1).Value = Date
  Else
  cell.Offset(, 1).Value = ""
  End If
  Next cell
  End If
  End Sub

  üdv

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