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

• #16615 Mutt senior tag GoZoL #16604

  Új Válasz 2013-02-06 20:14:45 #16615

  Ú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

  

  Mutt

  senior tag

  válasz GoZoL #16604 üzenetére

  Hali,

  Plusz tartományt kellene másolni (E9:E26) ami a 9-14 sorba illesztené be és utána jönne a fent látható tartomány de a 15. sortól illesztené be. Egy kijelöléssel és egy másolással nemigen lehetséges.

  Az E9:E26-os tartomány 17 soros, nem fog beleférni a 9-14 sorok közé!

  A kódod magját kell duplikálnod az új tartomány másolásához.

  For lap = 1 To Worksheets.Count
  'az újabb tartomány másolása
  Sheets(lap).Range("E9:E26").Copy
  ActiveWindow.ActivatePrevious
  Cells(9, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  
  'a régi tartomány másolása a 15. sorba
  Sheets(lap).Range("G5:G197").Copy
  ActiveWindow.ActivatePrevious
  Cells(15, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  
  oszlop_gy = oszlop_gy + 1
  Next

  üdv

• #11946 Delila_1 veterán GoZoL #11944

  Új Válasz 2011-11-09 16:32:40 #11946

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

  Ennek örülök.
  Igen érdemes, és jó figyelni a különféle fórumokat, no meg a YouTube-on is találsz sok jó bemutatót.

• #11939 Delila_1 veterán GoZoL #11935

  Új Válasz 2011-11-09 07:34:04 #11939

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

  Nem a sok kérdéssel van baj, hanem azzal, hogy nem gondoltad át a kérdés feltevése előtt, mit is szeretnél elérni.

  Először a lapok teljes utolsó oszlopának a másolását kérted, utána egy-egy meghatározott tartományét más helyre, végül azt, hogy ezek értékét vigyük be az új füzetbe. Az utolsó verziót már az első alkalommal is tudhattad.

  Nyugodtan tedd fel a más témára vonatkozó további kérdéseidet.

• #11931 Delila_1 veterán GoZoL #11929

  Új Válasz 2011-11-08 15:28:08 #11931

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

  Jó, hogy így apránként csepegteted az óhajokat, nem hagysz ellustulni.
  Az új kívánságaid alkalmával mindig létre kell hoznom 3 füzetet, különböző lapszámmal, és különböző adatokkal a makró próbájához.

  Sub Osszevon_()
  Const utvonal = "E:\Eadat\Excel fórumok\Próba\"
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer
  
  Application.ScreenUpdating = False
  
  oszlop_gy = 3
  Set WBGy = Workbooks("Gyűjtő_FrostyBoy84.xls")
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Range("H28:H80").Copy
  ActiveWindow.ActivatePrevious
  Cells(9, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Application.ScreenUpdating = True
  End Sub

  Bugizozi
  Lehet, hogy a képletek külső hivatkozásokat tartalmaznak, új füzetbe való másoláskor felborulnak.

• #11930 bugizozi őstag GoZoL #11929

  Új Válasz 2011-11-08 15:20:40 #11930

  Ú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

  

  bugizozi

  őstag

  válasz GoZoL #11929 üzenetére

  kijelölöd --> másolás --> jobb klikk --> irányított beillesztés --> értéket

• #11926 Delila_1 veterán GoZoL #11925

  Új Válasz 2011-11-08 11:40:07 #11926

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

  Sub Osszevon()
  Const utvonal = "E:\Eadat\Excel fórumok\Próba\" 'Itt írd át az útvonalat
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer
  
  oszlop_gy = 3
  Set WBGy = Workbooks("Gyűjtő.xls") 'Itt írd át a gyűjtő füzeted nevét
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Range("H28:H80").Copy WBGy.Sheets(1).Cells(9, oszlop_gy)
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

• #11921 Delila_1 veterán GoZoL #11920

  Új Válasz 2011-11-08 07:01:02 #11921

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

  Az lehet a baj, hogy a lapokon az első sorban nincs adat. Az

  oszlop = Cells(1, Columns.Count).End(xlToLeft).Column

  sorban a kiemelt 1-es adja, hogy az első sorba írt adatok alapján nézze meg a makró, melyik az utolsó oszlop. Ezt a számot írd át akkorára, ahol már biztosan van minden lapodon adat.

• #11910 Delila_1 veterán GoZoL #11909

  Új Válasz 2011-11-07 17:06:26 #11910

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

  Szívesen.

• #11905 Delila_1 veterán GoZoL #11901

  Új Válasz 2011-11-07 16:09:18 #11905

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

  Az útvonalat, és a füzet nevét kell átírnod.

  Sub Osszevon()
  Const utvonal = "E:\Eadat\Excel fórumok\Próba\" 'Itt írd át az útvonalat
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer
  
  oszlop_gy = 1
  Set WBGy = Workbooks("Gyűjtő.xls") 'Itt írd át a gyűjtő füzeted nevét
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  oszlop = Cells(1, Columns.Count).End(xlToLeft).Column
  Columns(oszlop).Copy WBGy.Sheets(1).Cells(1, oszlop_gy)
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

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