2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #33051 Delila_1 veterán mormota #33050
    Új Válasz #33051
    Ú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 mormota #33050 üzenetére

    Egy üres füzetben modulba másold be a makrót.

    Sub Szetcincalas()
    Dim sor As Long, usor As Long
    Dim WSF As Worksheet, WSS As Worksheet
    Const utvonal = "D:\Tmp\" 'ide jön a saját útvonalad

    On Error Resume Next
    Workbooks.Open Filename:=utvonal & "Forrás.xlsx"
    On Error GoTo 0

    On Error Resume Next
    Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
    On Error GoTo 0

    Set WSF = Workbooks("Forrás.xlsx").Sheets(1) 'saját füzeted és lapod neve
    Set WSS = Workbooks("Sablon.xlsb").Sheets(1) 'saját füzeted és lapod neve

    usor = WSF.Range("F" & Rows.Count).End(xlUp).Row

    WSS.Activate
    For sor = 2 To usor
    Cells(1, "C") = WSF.Cells(sor, "F")
    Cells(2, "C") = WSF.Cells(sor, "G")
    Cells(3, "C") = WSF.Cells(sor, "L")
    Cells(4, "C") = WSF.Cells(sor, "H")

    ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Next

    MsgBox "Kész"
    End Sub

    Írd át a 3 jelzett sorban az útvonalat, a fájlneveket, és hogy hányadik lapon vannak az adatok a forrás és a sablon füzetekben. Adj rá mentést, Makrós.xlsm-ként.

    A makró megnyitja a sablon és forrás fájlokat, elvégzi a másolást, menti az aktuális C3 néven a fájlt.

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

Hirdetés