Hirdetés

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

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

  • #21069 alfa20 senior tag
    Új Válasz #21069
    Ú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

    alfa20

    senior tag

    Sziasztok,

    Van egy makróm ami magában szépen működik, de szeretném egy UserFrom-ba tenni az űrlap részét, az UserFrom kész van a működő makrót is áthelyeztem, viszont rögtön az elején el is akadtam, mert az alábbi résznél hibára fut:
    Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
    forras_nev = ActiveWorkbook.Name
    A forras_nev nem tetszik neki, pedig az nagyon kellene, mert a fülnév minden nap változik, ez miatt viszont fontos lenne egy váltózóban tárolni a további képlet hivatkozások miatt (és persze mind a 6 táblában vannak fülnevek amiket szintén tárolni kellene)).

    A makró eleje így néz ki most:
    Sub xy_rnd()
    Dim forras_allnev As Worksheet, keszlet_allnev As Worksheet, _
    ab_allnev As Worksheet, felt_allnev As Worksheet, kert_allnev As Worksheet

    forras_allnev = UserForm1.Label1.Caption
    keszlet_allnev = UserForm1.Label2.Caption
    ab_allnev = UserForm1.Label3.Caption
    felt_allnev = UserForm1.Label4.Caption
    kert_allnev = UserForm1.Label5.Caption
    Unload UserForm1

    Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
    forras_nev = ActiveWorkbook.Name
    forras_fulnev = ActiveSheet.Name

    Workbooks.Open Filename:=forras_allnev
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

    Range("A1:AA1").Value = Array("1", "2", "3", "4", "5", _
    "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "15", "16", "17", "18", "19", _
    "20", "21", "22", "23", "24", "25", "26", "27")

    eredetiben meg így nézett ki, ami működik is:
    Sub xy_rnd()
    forras_allnev = Range("c3").Value
    keszlet_allnev = Range("c4").Value
    ab_allnev = Range("c5").Value
    felt_allnev = Range("c6").Value
    kert_allnev = Range("c7").Value
    aktnev = ActiveWorkbook.Name

    Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
    forras_nev = ActiveWorkbook.Name
    forras_fulnev = ActiveSheet.Name

    stb...

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