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

• #47026 Telda addikt Mutt #47024

  Új Válasz 2021-06-23 10:29:14 #47026

  Ú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

  

  Telda

  addikt

  válasz Mutt #47024 üzenetére

  Köszi!
  Közben találtam rá egy makrót.

  Sub munkafuzetmasolas()

Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select


For i = 1 To Sheets.Count - 1

Sheets(i).Select

Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next i

End Sub

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