combobox.text dolu ise commandbutton1 boş ise commandbutton2 click

[mustim1547]

arkadaşlar commandbuton1 e , combobox1.value yada .text dolu ise commandbuton2 nin komutunu , boş ise commandbutton1 in komutunu nasıl verebiliriz..?
If ComboBox1.Text = "" Then
CommandButton1_Click
Else
CommandButton2_Click
End If


Ben böyle yaptım ama olmadı iki butonun komutunuda yerine getiriyor o zaman..Nasıl yapmam gerek acaba ?

 

[Orion1]

arkadaşlar commandbuton1 e , combobox1.value yada .text dolu ise commandbuton2 nin komutunu , boş ise commandbutton1 in komutunu nasıl verebiliriz..?
If ComboBox1.Text = "" Then
CommandButton1_Click
Else
CommandButton2_Click
End If


Ben böyle yaptım ama olmadı iki butonun komutunuda yerine getiriyor o zaman..Nasıl yapmam gerek acaba ?

If ComboBox1.Text <> "" Then
CommandButton2_Click
Else
msgbox "makronuz"
End If

 

[mustim1547]

If ComboBox1.Text <> "" Then
CommandButton2_Click
Else
msgbox "makronuz"
End If

Olmadı! Başka alternatif var mı acaba ?

 

[Orion1]

Olmadı! Başka alternatif var mı acaba ?

Ne istediğiniz anlayamadım.Tersine çevirip deneyin.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
If ComboBox1.Text <> "" Then
CommandButton2_Click
Else
MsgBox "Commandbuton1 deki makro çalıştı."
End If

End Sub

 

[mustim1547]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
If ComboBox1.Text <> "" Then
CommandButton2_Click
Else
MsgBox "Commandbuton1 deki makro çalıştı."
End If

End Sub

ekdeki dosyayı incelermisiniz.Bu dosyayı da sizin bana yolladığınız gibi yaparsanız sevinirim.

2003 formatında eklenmiştir

 

[Orion1]

Bende (Çoğu kişide) 2007 yok.2003 formatında eklerseniz bakabilirim.

 

[mustim1547]

Bende (Çoğu kişide) 2007 yok.2003 formatında eklerseniz bakabilirim.

dosya 2003 olarak eklenmiştir

 

[Orion1]

dosya 2003 olarak eklenmiştir

Eklenmemiş.xls formatında eklemniz lazım.

 

[mustim1547]

Ekleyememişmiyim..!Neyse ilginize çok teşekkür ederim ben sizin o gönderdiklerinizle biraz daha uğraşayım..

 

[mustim1547]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
If ComboBox1.Text <> "" Then
CommandButton2_Click
Else
MsgBox "Commandbuton1 deki makro çalıştı."
End If

End Sub

Gönderdiğiniz ekli dosya sayesinde halletim sorunu.İlgi ve yardımınız için teşekkür ederim..Zaten biz burda hepimiz sevginin,paylaşmanın ve mutluluğun makrosunu yazmıyormuyuz..!.Sağolun