auto_open prosedürü

[beyaz34]

Option Explicit
-auto_open prosedürü İle çalıştırmak iştiyorum modülede kullanıyorum .

Option Explicit

Sub MENÜ()

Dim X As Integer, Menü1 As Object, Menü2 As Object, Menü3 As Object, Menü4 As Object, Menü5 As Object


Set Menü1 = Application.CommandBars("Cell").Controls.Add
With Menü1
.BeginGroup = True
.Caption = "SARI"
.OnAction = "RENK"
End With
Set Menü2 = Application.CommandBars("Cell").Controls.Add
With Menü2
.Caption = "KIRMIZI"
.OnAction = "RENK"
End With
Set Menü3 = Application.CommandBars("Cell").Controls.Add
With Menü3
.Caption = "TURKUAZ"
.OnAction = "RENK"
End With
Set Menü4 = Application.CommandBars("Cell").Controls.Add
With Menü4
.Caption = "PORTAKAL"
.OnAction = "RENK"
End With
Set Menü5 = Application.CommandBars("Cell").Controls.Add
With Menü5
.Caption = "DOLGU YOK"
.OnAction = "RENK"
End With

Application.CommandBars("Row").Reset
Set Menü1 = Application.CommandBars("Row").Controls.Add
With Menü1
.BeginGroup = True
.Caption = "SARI"
.OnAction = "RENK"
End With
Set Menü2 = Application.CommandBars("Row").Controls.Add
With Menü2
.Caption = "KIRMIZI"
.OnAction = "RENK"
End With
Set Menü3 = Application.CommandBars("Row").Controls.Add
With Menü3
.Caption = "TURKUAZ"
.OnAction = "RENK"
End With
Set Menü4 = Application.CommandBars("Row").Controls.Add
With Menü4
.Caption = "PORTAKAL"
.OnAction = "RENK"
End With
Set Menü5 = Application.CommandBars("Row").Controls.Add
With Menü5
.Caption = "DOLGU YOK"
.OnAction = "RENK"
End With

Application.CommandBars("Column").Reset
Set Menü1 = Application.CommandBars("Column").Controls.Add
With Menü1
.BeginGroup = True
.Caption = "SARI"
.OnAction = "RENK"
End With
Set Menü2 = Application.CommandBars("Column").Controls.Add
With Menü2
.Caption = "KIRMIZI"
.OnAction = "RENK"
End With
Set Menü3 = Application.CommandBars("Column").Controls.Add
With Menü3
.Caption = "TURKUAZ"
.OnAction = "RENK"
End With
Set Menü4 = Application.CommandBars("Column").Controls.Add
With Menü4
.Caption = "PORTAKAL"
.OnAction = "RENK"
End With
Set Menü5 = Application.CommandBars("Column").Controls.Add
With Menü5
.Caption = "DOLGU YOK"
.OnAction = "RENK"
End With
End Sub

Sub RENK()
Select Case Application.CommandBars.ActionControl.Caption
Case Is = "SARI": Selection.Interior.ColorIndex = 6
Case Is = "KIRMIZI": Selection.Interior.ColorIndex = 3
Case Is = "TURKUAZ": Selection.Interior.ColorIndex = 8
Case Is = "PORTAKAL": Selection.Interior.ColorIndex = 45
Case Is = "DOLGU YOK": Selection.Interior.ColorIndex = xlNone
End Select
End Sub