CommandButton Macro ile çalışmıyor

[tevfikdemir]

Merhaba Arkadaşlar

Programda L3L6 adında bir tuş var.Benim istediğim belli şartlar oluştuğunda bu tuşun macro ile çalıştırılması.

Kodum aşağıdaki gibi fakat çalışmıyor ;

Dim Okhareket as Object
Okhareket = kim & Kritik 'Tuş ismi Tanımlanıyor
If komsu = blg & hrk Then 'blg ve hrk sonucu L3L6 çıkıyor bu tuş isimleri değişken
Okhareket.TakeFocusOnClick

Ben burda As değişkeni olarak Dim Okhareket As CommandBarButton şeklindede denedim fakat sonuç alamadım.Bu tuşu nasıl çalıştırabilirim macro içersinden.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Kendinize göre bazı kodlar oluşturmuşsunuz fakat benim gibi diğer arkadaşlarda sorunuzu anlamadığı için büyük ihtimalle cevap yazamadılar. Lütfen sorunuzu örneklermisiniz.

 

[tevfikdemir]

Syn Cost Control ilginiz için öncelikle tşk ederim.

Kısaca anlatmak istediğim Bir Commandbutton tuşum var ve ismi L3L6
Bu tuşunüzerine mouse ile bastığımda çalışıyor ben bunu belli şartlar oluştuğunda üzerine mouse ile basmışım gibi çalışmasını istiyorum.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Mesela ne gibi şartlar açıklarmısınız ?

 

[Ali]

Sorunuz COST_CONTROL, 'un dediği gibi kapalı;

ben bunu belli şartlar oluştuğunda üzerine mouse ile basmışım gibi çalışmasını istiyorum.

Sn tevfikdemir, bunu sayfanın change olayına yazmanız gerekir.

Mesela

Butona bastığınızda çalışan bu kod
Sub yaz()
If Range("A1") > Range("B1") Then
Range("C2") = "A1 hücresi B1 hücresinden büyüktür"
Else
Range("C2") = ""
End If
End Sub

Butona basmadan çalıştırmak için

Sayafanın change olayının içine yazmak gerekir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") > Range("B1") Then
Range("C2") = "A1 hücresi B1 hücresinden büyüktür"
Else
Range("C2") = ""
End If
End Sub

 

[tevfikdemir]

Syn Costcontrol ;

Şartların olmadığını varsayın.Benim istediğim Belli bir isme sahip bir tuşun ,Ben mouse ile basmadan mouse ile basmısım gibi macro ile çalıştırılması.

Ama illede şartlar gerekli ise bunu açamak bir hayli zor ancak dosyayı gönderebilirim.

Saygılar

 

[tevfikdemir]

Syn fructose Kodlar sizin dediğiniz gibi Private Sub Worksheet_SelectionChange(ByVal Target As Range) içersinde yazılı fakat sizin dediğiniz gibi hücredeki şartlara bağlı değil.Bu kodlar bir oyun içersindeki kodlar.Doalyısı ile yapayzekada oluşturduğum kodlara bağlı çalışması gerekiyor.

Saygılar

 

[tevfikdemir]

Daha açıklayıcı olması bakımından dosyayı gönderiyorum.Açıklamalar Sayfa1 in kod bölünde yapıldı.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyayı incelermisiniz.

 

[Levent Menteşoğlu]

Bir butona bağlı prosedürü çalıştırmak için makro içinden o prosedürün adını çağırmak yeterlidir. Örneğin;

userform üzerindeki bir buton için

commandbutton1_click

sayfa üzerindeki bir buton için

sheets("sayfa1").commandbutton1_click

 

[tevfikdemir]

Syn Cost control gerçekten güzel ;Aslında sorduğum soruya cevap verdiniz.Çok teşekkür ederim

Fakat Benim gönderdiğim dosyayı incelediğiyseniz Tuş ismini yapay zeka olusturuyor.Okhareket adına tuş ismini atıyor.
Yani Okhareket =L3L6 oluyor.Dolayısı ile Okhareket_click yapmak lazım fakat bu şekilde olunca hata uyarısı veriyor.Bunu ne şekilde halledebilir bir öneriniz varmı ?

Saygılar.

 

[gunaygergin]

sn.tevfihdemir,

okhareket değişkeninin değeri bir hücreye yazdırılabilirmi acaba

 

[tevfikdemir]

ewet yazdırılabilir.

Range("Hücreadı").value=okhareket

saygılar