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

• #44413 Fire/SOUL/CD félisten Brumi #44410

  Új Válasz 2020-06-30 09:57:37 #44413

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Brumi #44410 üzenetére

  ezt a sort
  ActiveWorkbook.SaveAs Filename:="SAP_booking.txt", FileFormat:=xlText

  módosítod erre
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "SAP_Booking.txt", FileFormat:=xlText

  Ez meg egy másik megközelítés, talán van/lesz hasznos dolog a későbbiekben számodra.

  Private Sub CommandButton1_Click()

Dim MyWorkBook As Workbook
Dim MySheet As Worksheet
Dim MyRange As Range
Dim MyFilename, TextFileLine As String
Dim MyFirstColumn, MyLastColumn As String

Set MyWorkBook = ThisWorkbook
Set MySheet = Sheets("input")
'Feldolgozandó adatok kezdőcellája
MyFirstColumn = "A4"
'Feldolgozandó adatok utolsó oszlopa
MyLastColumn = "Q"
'Fájlnév megadása, ami az adott Excel munkafüzettel egy könyvtárban kerül létrehozásra
MyFilename = MyWorkBook.Path & "\" & "SAP_Booking.txt"

'Adattartomány meghatározása
Set MyRange = MySheet.Range(MyFirstColumn & _
":" & _
MyLastColumn & _
MySheet.Range(MyLastColumn & Rows.Count).End(xlUp).Row)

'Fájl létrehozása (ha nem létezik létrehozza, ha létezik KÉRDÉS NÉLKÜL felülírja
Open MyFilename For Output As #1

'Végigszaladunk az adattartomány celláin
For i = 1 To MyRange.Rows.Count
'Ha az adattartomány kezdő oszlopában található cella nem üres(ha üres, akkor a sor is üresnek tekindendő),
'akkor feldolgozzuk az adott sorban lévő adatokat
If Not IsEmpty(MyRange.Cells(i, 1)) Then
For j = 1 To MyRange.Columns.Count
'Tabulátorral elválasztott szöveg létrehozása a sor celláinak feldolgozásával
TextFileLine = IIf(j = 1, "", TextFileLine & vbTab) & MyRange.Cells(i, j)
Next j
'Kiírás fájlba
Print #1, TextFileLine
End If
Next i

'Fájl lezárása
Close #1

End Sub

• #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.

• #44406 Fferi50 Topikgazda Brumi #44405

  Új Válasz 2020-06-30 07:59:13 #44406

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

  Szia!
  Ez a makró az egész munkalapot másolja. Milyen képlet van az A oszlopban? Oda kerül-e bármi, ha nincs már következő bizonylat? A fejlécet is kell másolni?
  Üdv.

• #44401 Fferi50 Topikgazda Brumi #44399

  Új Válasz 2020-06-29 19:20:19 #44401

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

  Szia!
  Szerintem csak meg kell nézned, hogy az A oszlopban levő cella értéke (a képlet eredménye) nem üres string és ott abbahagyni a kimásolást.
  Gondolom valamilyen ciklus végzi a másolást, akkor a következő másolás előtt (For Next ciklus esetén:
  pl. If Range("A" & sor+1).Value="" Then Exit For
  ahol a sor az aktuális sor száma
  vagy
  If Range("A" & sor).Offset(1,0).Value="" Then Exit For
  Más ciklusszervezésnél is hasonló lehet a vizsgálat.
  Üdv.

• #44400 Fire/SOUL/CD félisten Brumi #44399

  Új Válasz 2020-06-29 18:49:37 #44400

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Brumi #44399 üzenetére

  Látatlanban nehéz segíteni, ezért tisztázzunk pár alap dolgot, hogy így van-e avagy sem.

  tehát például:

  Excel munkafüzet 1-ben
  A1:A30 -> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
  A31 -> üres sor
  A32:A62-> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
  A63 -> üres sor
  A64:A94-> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
  A95 -> üres sor
  és így tovább...

  Ez így van?

  UI: Jobb lenne, ha egy képet dobnál a munkafüzet 1 és munkafüzet 2-ről is, hogy láthassuk, hogy milyen az alapfelépítése a munkafüzet 1-nek, meg mit gyárt le a makró a munkafüzet 2-be... (valami valótlan adatokkal töltsd fel a munkafüzetet, ne a valós személyes adatokat lássuk...)

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