Plaka Çağırma

iplikci_80

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
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.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sayfanızın kod bölümüne uygulayıp deneyiniz.

Kod:
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

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Sayın Korhan Ayhan ilginize çok teşekkür ederim.
 
Üst