2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #11931 Delila_1 veterán GoZoL #11929
    Új Válasz #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.

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