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

• #22378 gyu84 tag

  Új Válasz 2014-07-09 17:56:42 #22378

  Ú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

  

  gyu84

  tag

  Sziasztok!

  Segítséget szeretnék kérni makró témakörben.
  Adott egy munkafüzet kb 20-25 (változó) munkalappal, az egyes munkalapok felépítése ugyan az, 6 oszlop, ebből 3 képletezett.
  Ennek a 20-25 lapnak a tartalmát kellene egy lapra másolni egymás alá, úgy, hogy eltérő számú sor van mindegyikben, ami havonta változik.
  Találtam erre egy makrót, ami át is másolja, viszont fontos lenne, hogy értékként másolja át, mert a képletezett oszlopokban így nem azt látom ami az egyes munkalapokon van.
  Erről lenne szó:

  Public Sub copy()
  Dim ws As Worksheet, _
  LR1 As Long, _
  LR2 As Long
  Application.ScreenUpdating = False
  For Each ws In ActiveWorkbook.Worksheets
  If ws.Name <> "Junius" Then
  LR1 = Sheets("Június").Range("A" & Rows.Count).End(xlUp).Row + 1
  LR2 = ws.Range("A" & Rows.Count).End(xlUp).Row
  ws.Range("A5:H" & LR2).copy Destination:=Sheets("Június").Range("A" & LR1)
  End If
  Next ws
  Application.ScreenUpdating = True
  End Sub
  Próbáltam a beszúrni több helyre is az alábbit PasteSpecial Paste:=xlPasteValues
  de hibát dobott mindig. Már feladtam Aki ért hozzá, kérem szerkessze már át úgy, hogy értékként másolja egymás alá a lapok tartalmát. Nekem egy teljesen más megoldás is megfelel, a végeredmény lenne a lényeg.
  Köszönöm előre is!

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