Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Keresés
  • 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

  • #37541 Delila_1 veterán logitechh #37539
    Új Válasz #37541
    Ú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 logitechh #37539 üzenetére

    Sok helyen használod a Select utasítást, amik lassítják a program futását. Pl. a

    Range("D2:T" & usor).Select
    Selection.Copy

    sorok helyett elég a

    Sheets("bevitel").Range("D2:T" & usor).Copy

    Ha itt nem értéket, hanem teljes tartományt kellene beilleszteni, ugyanebben a sorban megadhatod a célt is.

    Sheets("bevitel").Range("D2:T" & usor).Copy Sheets("ÖSSZESÍTÉS").Range("C" & Bsor)

    Azt már írtam Tgumis-nak is, hogy a

    Lapneve.Protect Password:="pw", UserInterfaceOnly:=True

    sor a makró részére írhatóvá teszi a lapot, nem kell külön a makró elején feloldani, majd a végén újra levédeni.

    Msgbox a folytatáshoz:

    Sub Kerdes()
    Dim valasz

    valasz = MsgBox("Futtassam a Másik makrót?", vbYesNo + vbQuestion, "Futtatási kérdés")
    If valasz = vbYes Then Masik_Makro ' itt hívjuk meg a feladat végrehajtó makróját
    End Sub

    Sub Masik_Makro()
    MsgBox "Ez itt a Másik makró"
    End Sub

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