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

    IT café

    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

  • #32481 lappy őstag userguru #32480
    Új Válasz #32481
    Ú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

    lappy

    őstag

    válasz userguru #32480 üzenetére

    Az első problémád nagyon hasonlít egy körlevélhez ott is hasonló módon kell elvégezni a műveletet.

    Bámulatos hol tart már a tudomány!

  • #32482 Delila_1 Topikgazda userguru #32480
    Új Válasz #32482
    Ú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 userguru #32480 üzenetére

    Lappy jól írta, nagyon hasonlít a feladat a Word körlevél funkciójához, csak ott nem lehet *.xlsb-be menteni az elkészült dokumentumokat.

    Elkészíted a Sablon.xlsb fájlt. A makrót a tab.xls moduljába viszed be. A két fájl azonos mappában legyen.
    A makróban a csillagos sorok közötti részt értelemszerűen a saját fájljaid szerint írd meg.
    Címsort feltételezve a tab füzetben, a sab változó (aktuális sor) értékét 2-ről indítom.

    Sub Sablonok()
    Dim sab As Long, utvonal As String
    Dim WSInnen As Worksheet, WSIde As Worksheet

    utvonal = ActiveWorkbook.Path & "\"
    Set WSInnen = Workbooks("tab.xls").Sheets("Munka1")

    sab = 2
    Do While WSInnen.Cells(sab, 1) <> ""
    'A Sablon.xlsb megnyitása
    Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
    Set WSIde = Workbooks("Sablon.xlsb").Sheets("Munka1")
    WSIde.Activate
    '***********************************************************************
    WSIde.Cells(2, 2) = WSInnen.Cells(sab, 1) 'B2-be a tab aktuális sor A-ja
    WSIde.Cells(5, 4) = WSInnen.Cells(sab, 2) 'D5-be a tab aktuális sor B-je
    WSIde.Cells(8, 2) = WSInnen.Cells(sab, 3) 'B8-ba a tab aktuális sor C-je
    '...
    '...
    '***********************************************************************
    WSIde.SaveAs Filename:=utvonal & "sab_" & sab - 1 & ".xlsb"
    ActiveWindow.Close
    sab = sab + 1
    Loop
    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