Úprava makra (vyřešeno)

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

Moderátor: Mods_senior

Odpovědět
Axamith
nováček
Příspěvky: 47
Registrován: 13 dub 2005 09:29
Bydliště: Zábřeh
Kontaktovat uživatele:

Úprava makra (vyřešeno)

Příspěvek od Axamith »

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
miras
Tvůrce článků
Příspěvky: 2159
Registrován: 13 črc 2004 11:45

Příspěvek od miras »

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: 03 kvě 2005 17:25
Bydliště: Karviná

Re: Úprava makra

Příspěvek od mikel »

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.
Odpovědět
  • Podobná témata
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Úprava pc pro Kingdome Come Deliverance 2
    od barryk10cz » » v Rady s výběrem hw a sestavením PC
    13 Odpovědi
    5326 Zobrazení
    Poslední příspěvek od Hangli
  • bitmapová grafika - úprava fotografií, retuše, filtry.
    od zuzana3 » » v Design a grafické editory
    2 Odpovědi
    7460 Zobrazení
    Poslední příspěvek od zuzana3
  • Oficiální úprava Windows 11 do podoby klasických Windows (Windows 7)
    od IMB » » v Windows 11, 10, 8...
    0 Odpovědi
    20240 Zobrazení
    Poslední příspěvek od IMB

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