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
CommandButton