• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Velmi jednoduché Makro

Zaslal/a vasekp 23.6.2015 12:23

Zdravím má tu někdo ochotný dvě minutky volného času? :) potřebuji poradit jak se ve VBA udělá:
- kopírovat označené
- posunout se z aktivní bunky o X sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)

Zaslat odpověď >

---

elninoslov(23.6.2015 13:29)#025687

Napr.:
Sub CopyTo()
Dim X As Long, Y As Long
Application.ScreenUpdating = False
X = 3
Y = 4
Selection.Copy
With ActiveSheet
.Cells(ActiveCell.Row, ActiveCell.Column + X).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

alebo

Sub CopyTo2()
Dim X As Long, Y As Long
Application.ScreenUpdating = False
X = 3
Y = 4
With Selection
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + Y + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + Y + Y + X)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Subcitovat

vasekp(23.6.2015 13:34)#025688

Jsem to vyřešil jako neandrtálec takto :D
Selection.Copy
ActiveCell.Offset(rowOffset:=0, columnOffset:=5).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=-28).Activatecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse