menü ekle

[aydgur]

Sub MENÜ_EKLE()
On Error Resume Next
Dim Sayfa As Worksheet
For Each Yeni_Menü In MenuBars(xlWorksheet).Menus
If Yeni_Menü.Caption = "KLEOPATRA" Then
Yeni_Menü.Delete
End If
Next
Workbooks(ThisWorkbook.Name).Sheets("Menu").Activate
MenuBars(xlWorksheet).Menus.Add Caption:="KLEOPATRA", Before:=100
For Each Sayfa In Worksheets
MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _
Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ"
Next
End Sub **** Bu kod ile araç çubuğuna "KLEOPATRA" menüsü ekleyip,menüden sayfa adını tıklayıp o sayfaya gidiyorum.
((Sub SAYFA_SEÇ()
Dim Sayfa_Adı As String
Sayfa_Adı = CommandBars.ActionControl.Caption
Sheets(Sayfa_Adı).Select
[A1].Select
End Sub*******Buda sayfa seç makrosu.))
Benim AKTAR adında bir sayfam var ve menüde AKTAR a basınca AKTAR sayfasına gidiyor.Merak ettiğim ; menüde AKTAR a tıklayınca AKtar sayfasına gitmesinde "AKTAR" makrosunu çalıştırsın.Bunu nasıl yapabilirim

 

[Korhan Ayhan]

Selamlar,

SAYFA_SEÇ isimli makroyu aşağıdaki şekilde değiştirip denermisiniz.

Sub SAYFA_SEÇ()
    Dim Sayfa_Adı As String
    Sayfa_Adı = CommandBars.ActionControl.Caption
    If Sayfa_Adı = "AKTAR" Then
    AKTAR
    Else
    Sheets(Sayfa_Adı).Select
    [A1].Select
    End If
End Sub

 

[aydgur]

Teşekkür ederim ;tamam AKTAR a basınca AKTAR sayfasına gitmiyor fakat ben AKTAR sayfasına gitmeyip AKTAR adlı makroyu çalıştırsın istiyorum ne yapabilirim

 

[aydgur]

Pardon çok özür dilerim AKTAR ı görmeden kodu yazmışım çok teşekkür ederim...

 

[aydgur]

Sub SAYFA_SEÇ()
Dim Sayfa_Adı As String
Sayfa_Adı = CommandBars.ActionControl.Caption
If Sayfa_Adı = "AKTAR" Then
sontamam
Else
If Sayfa_Adı = "ALACAKSAYFASI" Then
ALACAKSAYFASI
Else
If Sayfa_Adı = "BORÇSAYFASI" Then
BORÇSAYFASI
Else
If Sayfa_Adı = "ÜRÜN_CİNSİ_EKLE" Then
ÜRÜN_CİNSİ_EKLE
Else
If Sayfa_Adı = "KASA_CİNSİ_EKLE" Then
KASA_CİNSİ_EKLE
Else
Sheets(Sayfa_Adı).Select
[A1].Select
End If
End Sub*****Yukarıdaki gibi ekleme yapabilirmiyim ? Aynı AKTAR sayfası gibi ALACAKSAYFASI,BORÇSAYFASI,ÜRÜN_CİNSİ_EKLE,KASA_CİNSİ_EKLE isimli sayfalara da gitmesin aynı adlı makroları çalıştırsın istiyorum ??

 

[aydgur]

Tekrar teşekkür ederim ** Else ** yerine End If yapınca sorun çözüldü..