CommandButton Macro ile çalışmıyor

Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki dosyayı incelermisiniz.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
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.
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
sn.tevfihdemir,

okhareket değişkeninin değeri bir hücreye yazdırılabilirmi acaba
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
ewet yazdırılabilir.

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

saygılar
 
Üst