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

• #16853 Delila_1 veterán Bishop1 #16852

  Új Válasz 2013-02-23 09:27:55 #16853

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

  Az első kérdésre a makró:

  Sub Gomb80_Kattintás()
  Dim lap As Integer, szam, ujnev
  Sheets(1).Select
  lap = Worksheets.Count
  If Left(Sheets(lap).Name, 10) = CDate(Date) And Len(Sheets(lap).Name) > 11 Then
  szam = Right(Sheets(lap).Name, Len(Sheets(lap).Name) - 12)
  ujnev = szam + 1
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_" & ujnev
  Else
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_1"
  End If
  
  Sheets(1).Select
  Range("A1").Select
  Selection.CurrentRegion.Select
  lap = Worksheets.Count
  Selection.Copy Sheets(lap).Range("A1")
  Sheets(lap).Select
  Selection.AutoFilter
  Columns("A:A").ColumnWidth = 24
  End Sub

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