• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Karışık excel vba işlemleri

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sebo34

Yeni Üye
Katılım
9 May 2022
Mesajlar
4
Aldığı beğeni
2
Excel V
Office 365 TR
Konu Sahibi
MERHABA,
iyi akşamlar
Öncelikle; "yeşil" düğmesine basıldığında tüm komut düğmelerinin
renginin yeşil, "sarı" düğmesine basıldığında tüm komut düğmelerinin
renginin sarı, "Kırmızı "düğmesine basıldığında tüm komut düğmelerinin
renginin kırmızı olmasını sağlayan komutları nasıl yazabiliriz?
"Tamam" düğmesine basıldığında Excel A1 hücresindeki veriyi,
oluşturduğum etiketin içine yazdıran komutları da ardından yazıp, Etiket içerisindeki
yazı rengini (ForeColor) komutla mavi yapmam gerek.( Renk kodları, vbBlue,
vbYellow, vbGreen, vbRed) olacak şekilde. "İptal" düğmesine basıldığında
programdan çıkmasını nasıl sağlayabilirim?
(Attığım dosyada 5 adet komut tuşu ve 1 adet etiket vardır)
Yardımcı olursanız sevinirim.Teşekkürler.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
excelcozum.com

Çözüldü - renk ataması

Excel de VBA ile bir kullanıcı formu (UserForm) oluşturunuz. Bu form üzerinde 5 adet komut düğmesini oluşturup, her bir düğme üzerine ayrı ayrı Sarı, Yeşil, Kırmızı, Tamam ve İptal yazınız. Sarı düğmesine basıldığında tüm komut düğmelerinin renginin sarı, Yeşil düğmesine basıldığında tüm komut...
excelcozum.com excelcozum.com
galiba aynı hocadan ders alıyorsunuz
 
Olumlu oy 0 Negatif oyla
Askan hocam çözmüş birde kendinizi geliştirmeniz açısından çözümü ekliyorum

HTML:
C-like:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
Askan hocam çözmüş birde kendinizi geliştirmeniz açısından çözümü ekliyorum
Private Sub CommandButton1_Click()
renkli vbYellow
End Sub

Private Sub CommandButton2_Click()
renkli vbGreen
End Sub

Private Sub CommandButton3_Click()
renkli vbRed
End Sub

Private Sub CommandButton4_Click()
renkli &H8000000F

End Sub

Private Sub CommandButton5_Click()
Unload Me
End Sub
Sub renkli(renk As Variant)
For Each ctl In UserForm1.Controls
ctl.BackColor = renk
If TypeName(ctl) = "Label" Then
If ctl.Name = "Label1" Then
Label1.Caption = Sayfa1.Range("A1")
Label1.ForeColor = vbBlue
End If
End If
Next ctl
End Sub
Genişletmek için tıkla...
teşekkürler.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst