Listbox'a veri ekleme ve buton rengi değiştirme

[seddur]

Merhabalar.Ekli dosyada Anasayfa'da bulunan Sipariş ekle butonuna basıldığında listbox1'den seçilen siparişler ve Listbox2'den seçilen adet miktarı listbox3'e ve Liste sayfasına eklenmektedir.Ancak masa no'yu listbox3'e ekleyemiyorum.Yapmak istediğim Masa no'lardan birini seçtikten sonra sipariş ekle butonuna tıklayınca Masa no'yu listbox3 sıfırıncı sutununa yazsın ve Masa no'nun rengi kırmızıya dönsün ve daha sonra hesap kapatma butonuna bastığımda masa no'nun rengi yeşil olsun.Yardımcı olacak Teşekkür ederim.

 

[seddur]

Listbox'a yazdırma sorununu çözdüm.Sormak istediğim bir husus var.Commandbutton'ları for each döngüsü ile nasıl kullanabiliriz.20 adet commandbutton var ve bunların rengini A13 hücresindeki değere göre renklendirmek istiyorum.Aşağıya yapmak istediğimi gösteren bir şeyler yazdım ama çalışmıyor tabi.

If S1.Range("a13") = CommandButton1.Caption Or CommandButton2.Caption Then
CommandButton.BackColor = RGB(139, 0, 0)
End If

 

[AdemCan]

Merhaba, CommandButton.BackColor kısmında hangi butonun olduğu belli olmadığı için renklendirme işlemi olmaz.
Dosyanızı yeniden paylaşır mısınız?

 

[EmrExcel16]

Merhaba aşağıdaki gibi deneyiniz..

For Each i In Me.Controls
    If TypeName(i) = "CommandButton" Then
        If i.Caption = [A13] Then i.BackColor = RGB(255, 0, 0)
    End If
Next

 

[seddur]

Renkli alan hata verdi.Tanımlamak mı gerekiyor acaba?

Private Sub CommandButton4_Click()
Dim i As Variant
For Each i In Me.controls
If TypeName(i) = "CommandButton" Then
If i.Caption = [A13] Then i.BackColor = RGB(255, 0, 0)
End If
Next
End Sub

 

[EmrExcel16]

Merhaba , #1 nolu mesajınızda eklediğiniz dosyaya bakmadan "userform" kullandığınızı varsayarak ezbere yazmıştım kodları , ama sizin butonlar sayfa üzerindeymiş , sayfa üzerindeki butonlar için de aşağıdaki gibi kullanabilirsiniz..

For Each i In ActiveSheet.OLEObjects
    If TypeName(i.Object) = "CommandButton" Then
        If i.Object.Caption = [A13].Value Then i.Object.BackColor = RGB(255, 0, 0)
    End If
Next

 

[seddur]

Kod çalışıtı ama commandbuttonlar renklenmedi.Dosyadan bakabilir misin?

 

[EmrExcel16]

Buyrun..