Sorgu için arama sonuçları: Commandbutton+backcolor

Private Sub UserForm_Layout() With Me.CommandButton1 .Left = Me.Frame1.Left + 5 .Top = Me.Frame1.Top + 5 End With MakeTransparentFrame Frame1, &H1, RGB(240, 240, 240) End Sub Yukardaki koduda userforma ekleyin. Bir commnadbutton ve bir frame ekleyip deneyin...

Merhaba, Dener misiniz? Dim i As Integer For i = 4 To 19 Me.OLEObjects("CommandButton" & i).Object.BackColor = RGB(255, 165, 0) Me.OLEObjects("CommandButton" & i).Object.ForeColor = RGB(0, 0, 0) Next

Merhaba.Aşağıda yazılı kod userformda çalışırken sayfa olayına yazıldığında koyu kısım(Me.controls) hata veriyor.Acaba sayfada kullanabilmek için bunun yerine nasıl bir komut yazabiliriz.?Teşekkür ederim. Dim i As Integer For i = 4 To 19 Me.Controls("CommandButton" & i).BackColor =...

Merhaba.Aşağıda yazılı kodu aktif sayfa için değilde userformdaki bir nesne için(commandbutton)nasıl yazabiliriz.?Yani tıklanmış olan commandbutton adına göre(caption) commandbuttonun rengini değiştirmek istiyorum. Private Sub CommandButton68_Click() For Each i In ActiveSheet.OLEObjects If...

Hocam bu kodları nereye uygulayacağım.

kod: form takvim için Private Sub CommandButton44_Click() Dim x, i, aranan, bulunan For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy") For i = 1 To 42 bulunan = Format(Format(Me.Controls("CommandButton" & i).Caption...

Hocam ilginize teşekkür ederim. Hocam, şöyle bir kod buldum ama. Tıkladıkça değişen diyor (denemedim) Private Sub CommandButton1_Click() Static RenkNo As Byte RenkNo = RenkNo + 1 If RenkNo > 4 Then RenkNo = 1 Select Case RenkNo Case 1 CommandButton2.BackColor...

Merhaba, Me.Controls ifadesi ile Userform üzerinde bulunan tüm kontrolleri (nesneleri) döngüye almış oluyorsunuz. Eğer formunuzun üzerinde çok fazla nesne varsa kod gereksiz yere uzun çalışmış olacaktır. Size sadece belli nesneler lazımsa aşağıdaki döngü işinize yarayacaktır. For X = 37 To...

Merhaba.Aşağıdaki kod ile üzerine tıklanan commandbuttonları renklendiriyorum.Ancak aynı caption'a sahip iki buton olduğundan ikisi birden renkleniyor.Sadece birini renklendirmek istesek mümkün mü?Yani commandbutton37 ile 56 arası commandbuttonlar için kod çalışamaz mı? Private Sub...

Merhaba, Deneyiniz. Dim i As Byte, s1 As Worksheet Set s1 = Sheets("Anasayfa") For i = 1 To 12 If Cells(i, "A") <> "" Then Controls("CommandButton" & i).BackColor = RGB(139, 0, 0) Else Controls("CommandButton" & i).BackColor = RGB(0...

Merhaba."A1" hücresi boşsa commandbutton1 arkaplan rengi yeşil doluysa kırmızı,yine aynı şekilde "A2" hücresi boşsa commandbutton2 arkaplan rengi yeşil,doluysa kırmızı olacak şekilde kod yazmak istiyorum.Toplam 12 adet commandbutton var.Aşağıdaki kod çalışmadı.Yardımcı olursanız sevinirim...

Sn.Kursun çalışmayan kodu aşağıda paylaşıyorum.Sizin düzeltme yaptığınız kod zaten çalışıyor.Fakat yine de dediğiniz düzeltmeleri yaptım ama çalıştıramadım Private Sub UserForm_Activate() Dim i As Variant Set s1 = Sheets("Anasayfa") For Each i In Me.Controls If TypeName(i) = "CommandButton"...

Aşağudaki kod Anasayfa'da bulunan commandbutton'ları renklendirdiği halde ilk paylaştığım kod userformdaki commandbuttonları renklendirmiyor.Halbuki her ikiside aynı kod.Acaba nerde hata yapıyorum? Dim i As Variant Dim s1 As Worksheet For Each i In ActiveSheet.OLEObjects If...

Merhabalar.Aşağıdaki kod ile userform1'de bulunan commandbuttonlar dan (Masa no'lar) herhangi birine tıkladığımda buton rengini değiştirmeye çalışıyorum ancak olmuyor.Bu commandbuttonları kalıcı olarak renklendirmek istiyorum yani userformu kapatıp açtığımda buton rengi orjinal rengine dönmemiş...

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)...

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

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

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?

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...

Merhabalar.Aşağıdaki kod ile commandbutton'a tıkladıkça iki kez rengini değiştirebiliyorum ama benim istediğim en az dört kez renk değişmesi.Nasıl yapabiliriz.Yardımcı olursanız sevinirim. Private Sub CommandButton2_Click() CommandButton2.BackColor = IIf(CommandButton2.BackColor = _...