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

  • #13675 Bocimaster csendes tag
    Új Válasz #13675
    Ú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

    Bocimaster

    csendes tag

    Egy kis programozói véna kellene :)

    feladat:

    Sub Makró1()
    '
    ' Makró1 Makró
    '

    '
    For n = 1 To 60
    a = n + 3
    b = "d" + Str(a)
    Windows("Gyerek és subspec ágyak végl.xlsx").Activate
    Rows("1:3").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    'ide meg kell keresni a munkafüzet neve lekérdezőfüggvényt változóba tenni
    Windows("Gyerek és subspec ágyak végl.xlsx").Activate
    Rows(a).Select
    Application.CutCopyMode = False
    Selection.Copy

    Windows(munkafüzet neve változó).Activate
    Range(b).Select
    ActiveSheet.Paste
    Windows("Gyerek és subspec ágyak végl.xlsx").Activate
    Range(b).Select
    'nev=kiválasztott cella tartalma
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Mohács Városi Kórház-Rendelőin"
    'létre kell hozni a mentéshez a nevet
    Windows("Munkafüzet2").Activate
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Miklos\'12\Mohács Városi Kórház-Rendelőin.xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Gyerek és subspec ágyak végl.xlsx").Activate

    Next n
    End Sub

    - van egy táblázatom , sorok száma 1-61 ( ami fontos 1-3 címsor ez mindig másolandó, a 4 től a 60 ig sorig intézmények)
    A D oszlopban az intézeteket egyesével kimásolni minden egyes intézet külön fájlba és az intézet névvel elmentve......

    makró rögzítő után elakadtam.....

    előre is köszi

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