Soru Hücredeki Metni Başka sayfada ara ve değiştir.

[bulentkars]

Arkadaşlar Merhaba,

Ek teki tabloda detaylıca anlattım, yapmak istediğim bazı araç plakaların önünde 0 var, onları başka sayfada arayarak eğer varsa araç bilgileri sayfasındaki karşılığı ile değiştirmek istiyorum, Konu ile ilgili yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[Muzaffer Ali]

Merhaba.
Başka sayfadan kontrol etmeye gerek yok.
Her plakanın ilk iki karakteri rakam olmak zorundadır. Buna göre kontrol sağlayıp eğer ilk üç karakter rakamsa en soldaki karakter silinecek şekilde yazdığım aşağıdaki kodu kullanabilirsiniz.

Sub test()
    Dim Bak  As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsNumeric(Left(Cells(Bak, "A"), 3)) Then
            Cells(Bak, "A") = Right(Cells(Bak, "A"), Len(Cells(Bak, "A")) - 1)
        End If
    Next
End Sub

 

[bulentkars]

Muzaffer Ali Bey,

Çok Çok Teşekkür ederim. elinize sağlık süper olmuş