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

• #8005 Delila_1 veterán Oly #8003

  Új Válasz 2010-08-26 18:35:58 #8005

  Ú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 Oly #8003 üzenetére

  A dátum végére is tegyél pontot a lapneveknél, mert a VB saját változója (Date) is így írja.

  Sub Lapok()
  Dim sheetnev As String
  sheetnev = Date
  On Error Resume Next
  Sheets(sheetnev).Select
  If Err.Number <> 0 Then Worksheets.Add.Name = sheetnev
  On Error GoTo 0
  End Sub

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