• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım CheckBox True da renklendirme alanı belirleme

Hüseyin

Yeni Üye
Katılım
16 Ağu 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
52
Konum
Rize
Ad Soyad
Hüseyin Ferahlı
Office Vers.
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
131
En iyi yanıt
5
Puanları
28
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Vers.
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