< návrat zpět

MS Excel

Téma: Velmi jednoduché Makro rss

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
elninoslov
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
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje