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

• bandus veterán

  #19764

  #19763 Mutt

  2013-12-03 23:09:15

  Ú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

  

  bandus

  veterán

  #19763 Mutt

  #19763 Mutt

  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

  mennyivel szofisztikáltabb megoldás látszik, hogy csak most járok éppen ilyen tanfolyamra

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