Kamera Aracının Görevini Düğmeye Atamak

[EKREM1661]

Saygı değer forum öğretenleri..!

Excelin standart menüleri dışında yer alan Kamera aracını, (özelleştirme yapmadan) makro ile bir düğmeye atayarak menü paletine ilave etmek konusunda sayın Seyit Tiken'den aşağıdaki kodları almıştım..

Sub Düğme1_Tıklat()
Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlButton, ID:=280, Before:=11
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 1 Then Application.CommandBars("Worksheet Menu Bar").Controls(11).Enabled = 1
If [a1] = "" Then Application.CommandBars("Worksheet Menu Bar").Controls(11).Enabled = 0
End Sub

Şimdi farklı olarak şöyle diyorum..
Kamera aracını excel menüleri içerisine çağırmadan, sadece bir düğme yardımı ile bu aracın görevini yaptırabilirmiyiz..

Eğer bu mümkün olmaz ise menü paletine almış olduğumuz kamera aracını tekrar kaldırma işini düğme ile nasıl yaparız..

 

[dEdE]

Ekli dosyayı incelermisiniz.

 

[EKREM1661]

sayın dEdE.!
gerçekten teşekkür ediyorum..tam istediğim ipucunu bana vermiş oldun, eline ve zihnine sağlık..

şimdi son olarak önceden belirlenmiş bir aralığı değilde, mause ile seçtiğim bir aralığı kameraya alırsa hedefime ulaşmış olacağım..

 

[dEdE]

Aşağıdaki satırı silerseniz istediğinizi yapar.

Range("H10:J15").Select

 

[EKREM1661]

Sayın dEdE.! sayenizde konu çözülmüş oldu..tekrar teşekkür ederek sağlıklı günler diliyorum..hayırlı çalışmalar..