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

• #11931 Delila_1 Topikgazda 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

  Topikgazda

  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.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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