• Merhaba Ziyaretçi,

    Udemy üzerinde 1'er dakikalık eğitim videolarıkısa bir süreliğine ve sınırlı sayıda Ücretsiz kupon oluşturmuştum, kupon o gün tükendi.
    Yoğun Talep nedeniyle 5 gün içerisinde tükenecek 1.000 kişilik ücretsiz bir kupon daha oluşturmuştum o da aynı gün tükendi.
    Şimdi son olarak yine yoğun talep ve mesajlar üzerine 5 gün içerisinde tükenecek 1.000 kişilik ücretsiz bir kupon daha oluşturdum.

    Son Gün: 5 Aralık
    Fırsatı Kaçırmayın!

    Excel Hızlı Eğitim Seti Ücretsiz Kupon

  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Yardım CheckBox True da renklendirme alanı belirleme

Hüseyin

Yeni Üye
Katılım
16 Ağu 2018
Mesajlar
17
En iyi yanıt
0
Puanları
3
Yaş
51
Konum
Rize
Ad Soyad
Hüseyin Ferahlı
Office Versiyon
office 2010 tr
Merhaba Arkadaşlar,

Aşağıda ki koda CheckBox True olduğunda CheckBox ın olduğu satır "A13:R13" kadar renklendirmeyi nasıl yapabilirim ayrıca "R13" KONTROL EDİLDİ yazısını hücreye nasıl yazdırabilirim. Haliyle bu işlemi de sayfada bulunan bütün CheckBox larda olması gerekiyor. İlgileriniz için şimdiden teşekkür ediyorum.

For i = 13 To Cells(Rows.Count, 2).End(3).Row
If Cells(i, "b") <> "" Then
Set Hcr = Cells(i, "a")
Set Check = ActiveSheet.CheckBoxes.Add(Hcr.Left, Hcr.Top, Hcr.Width, Hcr.Height)
Check.Caption = ""
End If
Next
 

Ekli dosyalar

  • resim.PNG
    resim.PNG
    25.5 KB · Görüntüleme: 3

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
100
En iyi yanıt
3
Puanları
18
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba
1-Aşağıdaki kod ile tüm Checkbox'ların linkcell adresini kendi bulunduğu hücreye atayalım.
For Each Chckbox In ActiveSheet.CheckBoxes
Rowx = Chckbox.TopLeftCell.Row
Chckbox.LinkedCell = "$A$" & Rowx
Next


2-Koşullu biçimlendirmeden aşağıdaki kuralı oluşturalım
1668435380136.png

3- "R" sütununa da bu formülü yazalım EĞER(A2=DOĞRU;"Kontrol Edildi";"")
 
Üst Alt