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

Hirdetés

  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #33537 Delila_1 Topikgazda dfilpo #33535
    Új Válasz #33537
    Ú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

    Topikgazda

    válasz dfilpo #33535 üzenetére

    Az első lapon vannak az adatok. A makró egyenként átmásolja egy új lapra a címsort, alá az egyes sorokat, majd az új lapot lementi 1.xlsx, 2.xlsx, stb. néven abba a könyvtárba, ahol a makrós fájl van.

    Sub MentesFajlokba()
    Dim sor As Long, utvonal As String

    utvonal = ActiveWorkbook.Path
    sor = 2
    Do While Cells(sor, "A") <> ""
    With Sheets(1)
    .Rows(1).Copy Sheets(2).Range("A1")
    .Rows(sor).Copy Sheets(2).Range("A2")
    End With
    Sheets(2).Copy
    ActiveWorkbook.SaveAs utvonal & "\" & sor - 1 & ".xlsx"
    ActiveWorkbook.Close
    sor = sor + 1
    Loop
    Application.DisplayAlerts = False
    Sheets(2).Delete
    Application.DisplayAlerts = True
    End Sub

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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