DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
A1:O25
hücreleri seçin koşullu biçimlendirme, Yeni Kural, Listeden"....Formül Kullan" seçin.=A1=$T$5
formülünü kopyalayın.Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sayfa1.Cells.Interior.Color = xlNone
End Sub
Private Sub CommandButton1_Click()
Dim son As Long, hucre As Range
Cells.Interior.Color = xlNone
son = Range("A" & Rows.Count).End(3).Row
For Each hucre In Range("A1:O" & son)
If hucre = Range("T5") Then hucre.Interior.Color = vbYellow
Next
End Sub
Teşekkürler.Merhaba.
A1:O25
hücreleri seçin koşullu biçimlendirme, Yeni Kural, Listeden"....Formül Kullan" seçin.
Formül kutusuna=A1=$T$5
formülünü kopyalayın.
İstediğiniz biçimlendirmeyi yapın.
T5 hücresine yazdığınız değer ile aynı olanlar renklenecektir.
Yazdırmadan önce T5'i silersiniz biçimlendirme kaybolur.
Merhaba.
A1:O25
hücreleri seçin koşullu biçimlendirme, Yeni Kural, Listeden"....Formül Kullan" seçin.
Formül kutusuna=A1=$T$5
formülünü kopyalayın.
İstediğiniz biçimlendirmeyi yapın.
T5 hücresine yazdığınız değer ile aynı olanlar renklenecektir.
Yazdırmadan önce T5'i silersiniz biçimlendirme kaybolur.
=VE($T$5<>"";MBUL($T$5;A1))
Koşullu biçimlendirme FORMÜL bölümüne aşağıdaki formülü uygulayıp deneyiniz.
C++:=VE($T$5<>"";MBUL($T$5;A1))
Bu konuda uzmansınız teşekkürler hocam. EĞERSAY ile filan yapmaya çalıştım olmuyor. Birde kaç adet bulduğunun sayısını başka hücreye aldırabilirmiyiz?Koşullu biçimlendirme FORMÜL bölümüne aşağıdaki formülü uygulayıp deneyiniz.
C++:=VE($T$5<>"";MBUL($T$5;A1))
=EĞERSAY(A1:O25;"*"&T5&"*")