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

• #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