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

• #37541 Delila_1 veterán logitechh #37539

  Új Válasz 2018-03-18 08:24:05 #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