Úprava makra (vyřešeno)

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Úprava makra (vyřešeno)

Příspěvekod Axamith » 13 dub 2005 09:35

Udělal jsem si v Excelu makro. Vyberu nějaké buňky a někam je zkopíruji.
Zde je zdroják ve Visual Basicu :

Sub Vložit()
'
' Vložit Makro
' Makro zaznamenané 13.4.2005, Axamith
'

'
Range("A4:G4").Select
Selection.Copy
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Potřeboval bych ho upravit tak, aby nevkládalo do buňky A5, ale do jakékoliv právě vybrané buňky. Je to řešitelné. Děkuji za radu

Reklama
miras
Tvůrce článků
Level 5
Level 5
Příspěvky: 2159
Registrován: červenec 04
Pohlaví: Nespecifikováno
Stav:
Offline

Příspěvekod miras » 13 dub 2005 10:26

Nemám teď možnost vyzkoušet, takže ti to neřeknu úplně přesně, jen bych nadhodil nápad. Ty potřebuješ následující postup. Označit oblast A4:G4, zkopírovat ji, pak označit nějakou buňku a tam to vložit. Kdybys to chtěl provádět jedným makrem, musel bys nějakým způsobem počkat, než se změní označená oblast a pak teprve vložit. Neříkám že by to bylo nemožný, ale z hlavy to fakt nevymyslím :wink:. Mnohem jednodušší je rozdělit to na makra 2. První spustíš, to zkopíruje zadanou oblast, označíš buňku kam to chceš a druhý makro to tam vloží.
První by vypadalo takhle

Kód: Vybrat vše

Sub Kopiruj()
Range("A4:G4").Select
Selection.Copy

Druhý takhle:

Kód: Vybrat vše

Sub Vloz()
 ActiveSheet.Paste
Application.CutCopyMode = False
End Sub


Vím že to není úplně optimální, jestli budu mít čas a chuť zkusím vymyslet něco lepšího :wink:

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Re: Úprava makra

Příspěvekod mikel » 03 kvě 2005 17:54

Udělej to takhle:

Sub Vložit()
Range("A4:G4").Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Takhle napsané makro zkopíruje oblast A4:G4, aniž by ji vybral a zkopíruje ji do aktivní buňky.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Uprava vzorce
    od junis » 27 črc 2024 15:43 » v Kancelářské balíky
    6
    5225
    od junis Zobrazit poslední příspěvek
    02 srp 2024 18:02
  • Úprava pc pro Kingdome Come Deliverance 2
    od barryk10cz » 07 led 2025 17:00 » v Rady s výběrem hw a sestavením PC
    13
    3664
    od Hangli Zobrazit poslední příspěvek
    09 led 2025 22:42
  • Raspberry - M2 disk - uprava a zaloha oddilu Příloha(y)
    od L.L » 18 srp 2024 10:32 » v Problémy s hardwarem
    3
    3686
    od L.L Zobrazit poslední příspěvek
    19 srp 2024 14:39
  • bitmapová grafika - úprava fotografií, retuše, filtry.
    od zuzana3 » 10 kvě 2025 11:32 » v Design a grafické editory
    2
    5086
    od zuzana3 Zobrazit poslední příspěvek
    10 kvě 2025 17:31

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů