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

• #16604 GoZoL senior tag

  Új Válasz 2013-02-06 08:36:29 #16604

  Ú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

  

  GoZoL

  senior tag

  Sziasztok!

  A következő makrót szeretném módosítani:
  Sub Osszevon_()
  Const utvonal = "adat"
  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("adat.xlsm")
  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("G27:G197").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

  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.

  Köszönöm a segítséget!

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