İban numarasında yer alan hesap numarasını renkli yazma

[erkanerbas]

Bir hücreye iban yazdığımda ya da bir sütunda yer alan iban numaralarının içinde yer alan hesap numaralarını kırmızı renkte belirgin hale getirmemiz mümkün mü?

TR370006400000153050336031

 

[turist]

VBA Editör'de Sayfa Kodu kısmına aşağıdakiKodu yazıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Characters(Start:=15, Length:=8).Font
    .FontStyle = "Bold"
    .ColorIndex = 3
End With
End Sub

 

[erkanerbas]

Sayın turist kod çalışıyor. Yalnız sayfanın tamamında etkili. D1 : D10 şeklinde sınırlama yapabilir miyiz? Ek olarak daha önce girilen hücreleri de düzenlemesi mümkün mü?

 

[turist]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1:D10")) Is Nothing Then
With Target.Characters(Start:=15, Length:=8).Font
    .FontStyle = "Bold"
    .ColorIndex = 3
End With
End If
End Sub

şeklinde D1: D10 aralığında işlem yapacaktır.

Daha önce girilenler hangi hücreler, aralıklar için ise ;
Kodun, "D1: D10" bölümünü ona göre değiştirin. Ve eski hücrelerde iken F2 tuşuna ve ENTER tuşuna basın.

 

[erkanerbas]

Şimdi daha kullanışlı oldu.

 

[turist]

Kolay gelsin.

 

[gazolay]

BEN BUNU YAPAMAM