Farenin Sağ tıkına eklenen menü

[DemirBilek57]

Arkadaşlar merhaba,

Farenin sağ tıkına eklemiş olduğum menülerinin başlığını aktif hücereye yazdırma hakkında yardımlarınızı beklemekteyim.

Örnek çalışmayı kontrol ederseniz sanırım daha iyi anlayabilirsiniz. Şimdiden yardımlarınız için çok teşekkür ederim.

Hayırlı akşamlar.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("cell").Reset
For g = 1 To Application.CommandBars("cell").Controls.Count
Application.CommandBars("cell").Controls(g).Visible = False
Next
Set a = Application.CommandBars("cell")
say = Range("a65536").End(xlUp).Row
c = 1
For araç = 1 To say
eğersay = WorksheetFunction.CountIf(Range("b1:b" & araç), Range("b" & araç))
If eğersay = 1 Then
Set b = a.Controls.Add(msoControlPopup)
b.Caption = Range("b" & araç)
b.Controls.Add.Caption = Range("a" & araç)
c = c + 1
Else
b.Controls.Add.Caption = Range("a" & araç)
End If
Next
End Sub

 

[galips26]

güzel bir örnek ama sonuçlandırabilecek üstadlarımız bir el atması lazım.

gerçekten farklı alanlarda geliştirilebilinir örnek bence .

yardım edeceklere şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Bu konu daha önce işlenmişti. Aşağıdaki linkteki örnekleri inceleyiniz. Aradığınız cevap örnek dosyalarda bulunmaktadır.

Sağ tuş özel menü uygulaması

 

[DemirBilek57]

Sayın Korhan Ayhan öncelikle ilginiz için teşekkür ederim.

Site içinde bir kaç örneği incelediğimde tam olarak yapmak isteğime ait bir örnek bulamamıştım. Kendi çabalarımla ve formdaki diğer örneklerle sorunu hallettim. Ama bugün yazdığınız cevaba istinaden aradığım örneği bulana kadar bütün dosyaları indirdim ve aradığımı buldum.

İnanın sayın Korhan Ayhan sizin zamanınızı almamak için elimden geleni yaptım ama çözemeyince mecburen yardım istemek zorunda kaldım.