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

• #16862 Delila_1 veterán artiny #16860

  Új Válasz 2013-02-23 17:07:35 #16862

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

  Úgy gondoltam, át tudod alakítani azt, amit írtam. Átírtam, hogy ne az első, hanem a t nevű lapról másolja az adatokat. Az A1:D66 terület fix? Ha nem, a

  Range("A1:D66").Copy Sheets(lap + 1).Range("A1")

  helyett ezt írd:

  Range("A1").Select
  Selection.CurrentRegion.Select
  Selection.Copy Sheets(lap+1).Range("A1")

  És akkor az átírt 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("t").Select
  Range("A1:D66").Copy Sheets(lap + 1).Range("A1")
  Sheets(lap + 1).Select
  Selection.AutoFilter
  Columns("A:A").ColumnWidth = 24
  Sheets("napi").Select
  End Sub

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