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

• #44409 Fferi50 Topikgazda Brumi #44408

  Új Válasz 2020-06-30 08:54:57 #44409

  Ú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

  

  Fferi50

  Topikgazda

  válasz Brumi #44408 üzenetére

  Szia!
  Próbáld ki ezt a makrót légy szíves:
  Sub mentes()
Sheets("input").Activate
Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Columns(1).Find(what:="", LookIn:=xlValues, lookat:=xlPart).Row - 1, ActiveSheet.UsedRange.Columns.Count)).Copy
Sheets.Add
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Move
ActiveWorkbook.SaveAs Filename:="SAP_booking.txt", FileFormat:=xlText
ActiveWorkbook.Close False
End Sub

  Üdv.

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