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

    Fototrend

    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

  • #5042 Delila_1 veterán core1113 #5029
    Új Válasz #5042
    Ú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 core1113 #5029 üzenetére

    Írtam egy makrós megoldást a 2. kérdésedre.
    A munka1 kiinduló lapon az A oszlopban vannak az irányítószámok, B oszlopban a megyék nevei, a többiben bármilyen adat.
    A többi lap neve pontosan egyezzen meg a B oszlop adataival.
    Minden lapon van címsor.
    A "Sheets(Array(" kezdetű sorban írd át a megyék nevét.

    Sub Irszám()

    Application.ScreenUpdating = False 'Képernyő frissítés tiltása

    'Előző adatok törlése a megyék lapjain.
    Sheets(Array("Pest", "Borsod", "Hajdú", "Zala", "Szolnok")).Select
    Rows("2:6000").Select
    Selection.Delete Shift:=xlUp
    Range("A2").Select

    'Sorok másolása a lapokra
    Sheets("Munka1").Select
    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
    megye = Cells(sor, 2)
    Rows(sor & ":" & sor).Copy
    Sheets(megye).Select
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
    ActiveSheet.Paste
    Sheets("Munka1").Select
    Next
    Sheets("Munka1").Select: Range("A2").Select
    Application.CutCopyMode = False

    Application.ScreenUpdating = True 'Képernyő frissítés engedélyezése
    End Sub

  • #5031 Cuci3 tag core1113 #5029
    Új Válasz #5031
    Ú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

    Cuci3

    tag

    válasz core1113 #5029 üzenetére

    A másodikra tudok makrót küldeni/beszúrni.
    Csináltam nemrég egy ilyet, ahol egy makró egy munkafüzetben ömlesztett adatokat egy másik munkafüzetbe szétszedi végrehajtók nevei alapján külön munkalapokra.
    Kérdés:
    1. Milyen sorrend legyen az irányítószámokra? Tehát ha Excel sorbarendezővel sorba rakom, akkor az elég-e?
    2. Ugyanabba a munkafüzetbe kell szétszedni, vagy külön munkafüzetbe?
    3. Gondolom az irányítószámnak meg kellene jelnnie a munkalap nevénél. Kell valami buherálás az irányítószámokkal? Pl nálam a neveknél kellett, mivel egy munkalap neve max 31 karakter hosszú lehet. :N

    De ezt csak délután tudom küldeni, mivel délelőtt szaladgálok két iroda között. ;)

    Ja és persze az első is megoldható makróval, de meg lehet úgy is oldani, hogy külön munkalapra beképletezed, majd onnan kimásolod. :P

  • #5030 wjani tag core1113 #5029
    Új Válasz #5030
    Ú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

    wjani

    tag

    válasz core1113 #5029 üzenetére

    Szia!

    Ezeket, gondolom egy gombnyomásra akarod indítani, ugye?

    Az elsőnél, még megoldható valami hivatkozás képletekkel, de a törlés, szerintem már nem megy, így lehetséges, hogy inkább az egészet egy makróval kell megcsinálni.
    A másodiknál az a kérdés, hogy neked annyi munkalap fül lesz, amennyi irányítószám van, vagy csoportosítod. Ezt pedig csak makróval lehetne megoldani.

    Üdv
    Wjani

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