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

• #19763 Mutt senior tag Metathrone #19759

  Új Válasz 2013-12-03 22:54:50 #19763

  Ú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

  

  Mutt

  senior tag

  válasz Metathrone #19759 üzenetére

  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

• #19760 bandus veterán Metathrone #19759

  Új Válasz 2013-12-03 22:23:52 #19760

  Ú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

  

  bandus

  veterán

  válasz Metathrone #19759 üzenetére

  Sub datum()
  
  Dim i as Integer '32ezer akárhány sorig
  
  For i = 1 To 100
  If Worksheets("Munka1").Cells(i, 2).Value <> "" Then
  Worksheets("Munka1").Cells(i, 3).Value = Date
  End If
  Next i
  
  End Sub

  a Munka1 helyére a kívánt munkalap nevét írhatod, a 100-at meg annyira írod át, ahány sorig a ciklust futtatni szeretnéd.

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