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

• #8014 Delila_1 veterán Oly #8012

  Új Válasz 2010-08-26 19:32:22 #8014

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

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

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