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

• Metathrone csendes tag

  #19765

  #19763 Mutt

  2013-12-03 23:30:45

  Ú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

  

  Metathrone

  csendes tag

  #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

  Ez jól csinálja a dolgát. Köszönöm
  Át lehetne úgy alakítani, hogy a dátumot az F oszlopba írja, abban az esetben, ha a B,C,D,E oszlopok közül valamelyikben változás történik, tehát valamelyik értéket kap?

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