commandbutton önceliği

[muratozmenler]

commanbutton1 ve commandbutton 2 var 2 nci butona tıkladığımda ilk önce 1 nci butona basınız diye uyarı verip 1 e bastıktan sonra 2 nci butona tekrar bastığımızda 2 nci butondaki kod çalışacak.

 

[Orion1]

Boş bir modüle aşağıdaki kodu yazınız

Global kontrol As Boolean

butonlarada aşağıdaki kodu yazınız.

Sub Düğme1_Tıklat()
kontrol = True
End Sub
Sub Düğme2_Tıklat()
If kontrol = False Then
    MsgBox "Önce !nci butona basınız..!!"
    Else
    kontrol = False
    MsgBox "Kodlar Çalıştı..!!"
End If
End Sub

Ekli dosyayı inceleyiniz.

 

[muratozmenler]

ilginiz için teşşekür ederim fakat ben tam açıklama yapmadığım için kusura bakmayın
bu butonlar userform üzerinde 2 tane buton ve 1 nci butonun veri alma komudu var 2 nci komut ise başka bir user form açıyor bu user form açılmadan önce 1 nci butona basıp 2 nci butondaki userforma veri alıyor daha sonra 2 nci butona basıncada user form açılacak....

 

[muratozmenler]

Exceli açınca bir form açılıyor ve işler butonuna tıkladığımızda ilk önce işler için veri al butonuna bas yazacak . Işler için veri al butonuna bastıktan sonra işler butonuna tıkladığımızda userform2 çıkacak.

 

[Orion1]

Dosyanız Ekte.

 

[muratozmenler]

sayın Evren Gizlen çok teşekkür ederim ellerine sağlık .....
iyi çalışmalar dilerim.

 

[Orion1]

sayın Evren Gizlen çok teşekkür ederim ellerine sağlık .....
iyi çalışmalar dilerim.

Rica ederim,hemşehrim.;-)
İyi çalışmalar.

 

[muratozmenler]

Rica ederim,hemşehrim.;-)
İyi çalışmalar.

tanıştığıma sevindim hemşerim....
bu işlemi başka bir dosyaya uyguluyorum ilk önce diğer butona basmalısınız diyor basıyorum kayıt yapıyorum sonra tekrar bastığımda bana tekrar aynı butona basmamı söylüyor ve böylelikle diğer userforma girmiyor ne yapmalıyım..

 

[Orion1]

Kontrol değişkenini userformun general kısmında public ile tanıtmalısınız.
Yolladığım dosyada userformun Kod sayfasının en üst kısmına bakınız ve aynisini yapınız.

 

[muratozmenler]

yok beceremedim ya baktığım dosyada puclic ile yapmışın evet ama bende kopyalıyorum aynısını yapıştırıyorum olmuyor yada o dosyadada tanıtmak mı gerekiyor çyle ise nasıl yapabilirim bu işlemi.....

 

[Orion1]

yok beceremedim ya baktığım dosyada puclic ile yapmışın evet ama bende kopyalıyorum aynısını yapıştırıyorum olmuyor yada o dosyadada tanıtmak mı gerekiyor çyle ise nasıl yapabilirim bu işlemi.....

O zaman dosyayı yollayın.

 

[muratozmenler]

dosyanın tamamı çok fazla olduğu için buraya almıyor ... ya

 

[Orion1]

dosyanın tamamı çok fazla olduğu için buraya almıyor ... ya

Benim yolladığım dosyada oluyormuydu?

 

[muratozmenler]

evet oluyor

 

[muratozmenler]

Public kontrol As Boolean
Private Sub CommandButton4_Click()
If kontrol = False Then
MsgBox "Önce İşler İçin Veri Al Butonuna Basmalısınız..!!", vbCritical, "UYARI"
Else

UserForm2.Show
kontrol = False
End If
End Sub

senin yolladığın dosyada bu şekil kopyalayıp yapıştırıyorum olmuyor

 

[Orion1]

evet oluyor

O zaman ona bakarak aynisini yapabilmelisiniz.
Değişken adlarını kontrol edin değişik bir ad olmasın public ile tanıttığınız değişkenin adı heryerde ayni olsun.

 

[Orion1]

tanıştığıma sevindim hemşerim....
bu işlemi başka bir dosyaya uyguluyorum ilk önce diğer butona basmalısınız diyor basıyorum kayıt yapıyorum sonra tekrar bastığımda bana tekrar aynı butona basmamı söylüyor ve böylelikle diğer userforma girmiyor ne yapmalıyım..

Peki yine ayni butona basınca userform2 açılıyormu?

 

[muratozmenler]

mail adresinize yollama imkanım varmı acaba....dosyanın tamamını yollayım size siz bir baksanız

 

[Orion1]

mail adresinize yollama imkanım varmı acaba....dosyanın tamamını yollayım size siz bir baksanız

Bence siz istediğiniz tam anlatamadınız.Benim yollladığım dosyayı tekrar deneyin balkalım orjinal dosyaya uyguladıklarınızın aynisini onada uygulayın olacakmı bakalım.

 

[muratozmenler]

userform da açılmıyor sadece diğer butona basmam için uyarı veriyor