Ahoj vsem

Mam problem chcel by som urobit krasnu vec ze spojim vsetky svoje makra do jednej tabulky a tam si vyberem prave to makro ktore potrebujem. Ale skusam a skusam nedari sa.



Pouzivam takyto prikaz:

------------------------

ActiveSheet.CheckBoxes.Add(1000, 12, 60, 20).Select
Selection.Characters.Text = "kopirovanie"
Selection.OnAction = ""
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 24
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.CheckBoxes.Add(1000, 42, 60, 20).Select
Selection.Characters.Text = "format"
Selection.OnAction = ""
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 51
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.CheckBoxes.Add(1000, 72, 60, 20).Select
Selection.Characters.Text = "zalomenie"
Selection.OnAction = ""
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Buttons.Add(1000, 102, 60, 20).Select
Selection.Characters.Text = "START"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Normálne"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "Makro2"

ActiveSheet.Shapes.Range(Array("Check Box 1", "Check Box 2", "Check Box 3", "Button 4")).Select
Selection.ShapeRange.Group.Select

------------------------------------------------

ale tato formulacia mi nevyhovuje, lebo ked davam makro na vymazanie aktivnych buniek tak sa mi stane ze mi vyhodi aj tieto umelo vytvorene prikazy. Chcel by som to riesit s useform ale neviem aktivovat okno a ani s boxami pracovat .... nenasiel som to ani v manuali pre blbych :P

vedel by mi niekdo poradit?? bol by som velmi vdacny