Cümle İçinde TC Renklendirme Yapma

SilinenUye8231 · 18 Mar 2020

Merhaba, hayırlı günler.

Ekte gönderdiğim excel dosyamın 1.sayfasında D2 sütunundan aşağıya doğru verilerim mevcut, veriler arasında 11 rakam olan T.C. lerin göze çarpması için buton bastığımda kalın kırmızı renklenmesini istiyorum. Bu işlem, koşullu biçimlendirme ile oluyorsa da olabilir.
Yardımcı olur musunuz?

Ömer BARAN · 18 Mar 2020

Sayın @SilinenUye8231 .

Koşullu biçimlendirme, HÜCREye uygulanabiliyor, hücredeki metnin belli bir bölümüne değil malesef.
Bu nedenle istediğiniz işlem için makro kullanmak gerekecek.

NOT: Verdiğim kodun ilk iki satırını, başka bir makro olarak kaydederseniz, bu makro da biçimlendirmeyi SİLER.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(18 satır)

SilinenUye8231 · 18 Mar 2020

Sayın Ömer Bey, ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı günler diliyorum.

Ömer BARAN · 18 Mar 2020

TC Kimlik numarasını ayrı bir hücreye yazdırmak isterseniz;
If say = 11 Then
satırının altına aşağıdaki satırı eklemeniz yeterli olur.

Cells(XD, "G")=Mid(Cells(XD,4),k,11)

.

tahsinanarat · 18 Mar 2020

Sn. @Ömer BARAN hocam, satırlardaki tc no lardan birinin eksik rakam olması halinde alt satırlarda kalan diğer doğru olan tc numaralarını renklendirmiyor, eksik olan satıra kadar renklendiriyor, bilginize.

Ömer BARAN · 18 Mar 2020

tahsinanarat' Alıntı:
Sn. @Ömer BARAN...satırlardaki tc no lardan birinin eksik rakam olması halinde alt satırlarda kalan diğer doğru olan tc numaralarını renklendirmiyor.....

Sayın @SilinenUye8231 .

İlave durumla ilgili olarak, önce bundan önceki cevabımı okuyunuz.

Verdiğim önceki kod cevabını, Sayın @tahsinanarat 'ın uyarısı üzerine güncelledim.
Değişiklik sadece, k = tc - 1: say = 0 satırının yeriyle ilgilidir.

.

gicimi · 19 Mar 2020

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(15 satır)

SilinenUye8231 · 20 Mar 2020

Sayın Ömer Bey, bilgisayarın başına yeni geçtim, ilginiz için çok teşekkür ediyorum, ellerinize sağlık, tam istediğim gibi çalışıyor
Konu çözülmüştür.
Hayırlı günler diliyorum.