Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #42368 Delila_1 veterán logitechh #42365
    Új Válasz #42368
    Ú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 logitechh #42365 üzenetére

    Az eredeti füzetek nevét beírod a Célfüzet.xlsm Céllap T oszlopába T1-től T15-ig, kiterjesztéssel együtt. Ebbe a füzetbe másold be modulba a Beilleszt makrót. Tehetsz ki hozzá egy gombot.
    A makró abban a sorrendben, ahogy a T oszlopba beírtad a neveket, megnyitja az eredeti fájlokat, majd bemásolja belőlük a Célfüzet megfelelő helyére az A1:M12 tartományt. A megnyitott füzeteket mentés nélkül bezárja.

    Sub Beilleszt()
    Dim usor As Integer, fuzet As Integer, utvonal As String, FN As String

    utvonal = "F:\Eadat\Excel fórumok\PH\" 'Ezt írd át!
    ActiveSheet.Protect Password:="Jelszo01", UserInterfaceOnly:=True

    For fuzet = 1 To 15
    FN = Cells(fuzet, "T")
    On Error Resume Next
    Workbooks.Open Filename:=utvonal & FN
    Workbooks("Célfüzet.xlsm").Activate
    Sheets("Céllap").Activate

    usor = Range("A" & Rows.Count).End(xlUp).Row
    If usor > 1 Then usor = usor + 3

    Range("A" & usor & ":M" & usor + 11).Value = Workbooks(FN).Sheets("Munka1").Range("A1:M12").Value
    Workbooks(FN).Close False
    Next
    Application.CutCopyMode = False
    End Sub

    A Torol makróid szerepét nem látom át. Nem tudom, melyik füzetben torlik az adatokat.

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