Plaka Çağırma

[iplikci_80]

Arkadaşlar burada B sütunundaki plaka numaralarının son üç hanesi olan 420, 421, 422 'leri yazdığımda A sütunundaki hücrelere çağırmam mümkün mü? Bu hususta yardımlarınızı rica ediyorum. Örneğin A1 hücresine 420 yazdığımda " 80 BN 9420", A2 hücresine 421 yazdığımda " 80 BN 9422" gibi.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    On Error GoTo Son
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        Set Bul = Range("B:B").Find("*" & Target.Value, , , xlPart)
        If Not Bul Is Nothing Then
            Application.EnableEvents = False
            Target.Value = Bul.Value
        End If
    End If
Son: Application.EnableEvents = True
End Sub

 

[iplikci_80]

Sayın Korhan Ayhan ilginize çok teşekkür ederim.