CommandButton [Archív]

ajax90

12.03.16,11:20

Dobrý deň.

V hárku1 v stĺpci A mám určité mená a chcel by som do buttonu nejaký kód, ktorý keď kliknem tak mi tie mená prenesie celý stĺpec do hárku2 stĺpca A. Potom keď vymažem v hárku1 stĺpec A, tak aby to ostalo v hárku2 v stĺpci A. A keď napíšem znovu do toho istého hárka1 stĺpec A tak zase aby to prenieslo do hárka2 stĺpca B. Niečo také existuje? Ak áno Ďakujem za každú radu...

Kabaka123

12.03.16,16:37

toto vidím na makro

Kabaka123

12.03.16,16:48

pozri súbor

nahrala som makro

Sub Makro3()
'
' Makro3 Makro
' Makro zaznamenané 12.3.2016, Marcel
'

'
ActiveCell.FormulaR1C1 = "meno1"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
Range("A1:A28").Select
Range("A1:A28").Select
Selection.Copy
Sheets("hárok2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("hárok1").Select
Range("A1:A28").Select
Range("A28").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "meno2"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
Range("A1:A28").Select
Range("A1:A28").Select
Range("A28").Activate
Selection.Copy
Sheets("hárok2").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("hárok1").Select
Range("A1:A28").Select
Range("A28").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "meno3"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
Range("A1:A28").Select
Range("A1:A28").Select
Range("A28").Activate
Selection.Copy
Range("B1").Select
Sheets("hárok2").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("hárok1").Select
Range("A1:A28").Select
Range("A28").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "meno4"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
Range("A1:A28").Select
Range("A1:A28").Select
Range("A28").Activate
Selection.Copy
Sheets("hárok2").Select
Range("D1").Select
ActiveSheet.Paste
Sheets("hárok1").Select
Range("A1:A28").Select
Range("A28").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "meno5"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
Range("A1:A28").Select
Range("A1:A28").Select
Range("A28").Activate
Selection.Copy
Range("B29").Select
Sheets("hárok2").Select
Range("E1").Select
ActiveSheet.Paste
Sheets("hárok1").Select
End Sub