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

• #17494 Delila_1 veterán m.zmrzlina #17491

  Új Válasz 2013-03-31 17:47:05 #17494

  Ú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

  

  Delila_1

  veterán

  válasz m.zmrzlina #17491 üzenetére

  Lapnévből dátum a cellákba:

  Sub mm()
  Dim lap As Integer
  For lap = 2 To 3
  Sheets(1).Cells(lap, 1) = CDate(Sheets(lap).Name)
  Next
  End Sub

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