Macro Ya da Koşullu Biçimlendirme İle Buldurma

[incsoft]

Sorum ektedir arkadaşlar.

Teşekkürler.

 

[Muzaffer Ali]

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.

 

[AdemCan]

Makro örneği.
Bu çalışma kitabı bölümüne

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sayfa1.Cells.Interior.Color = xlNone
End Sub

Sayfa1 bölümüne

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

 

[incsoft]

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.

Teşekkürler.

 

[incsoft]

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.

Peki hocam T5 e eşit olan değilde T5 dekini içeren için ne yapabiliriz? Adını Soyadını yazmak yerine mesela Ufuk İNCE değilde Ufuk yazacam

 

[Korhan Ayhan]

Koşullu biçimlendirme FORMÜL bölümüne aşağıdaki formülü uygulayıp deneyiniz.

=VE($T$5<>"";MBUL($T$5;A1))

 

[incsoft]

Koşullu biçimlendirme FORMÜL bölümüne aşağıdaki formülü uygulayıp deneyiniz.

=VE($T$5<>"";MBUL($T$5;A1))

Çok teşekkür ederim hocam allah razı olsun

 

[incsoft]

Koşullu biçimlendirme FORMÜL bölümüne aşağıdaki formülü uygulayıp deneyiniz.

=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?

 

[Korhan Ayhan]

Deneyiniz.

=EĞERSAY(A1:O25;"*"&T5&"*")