Plaka Numarasından İl Adını Yazmak

Plaka Numarasından İl Adını Yazmak

SORU:

Aynı hücrede, plaka numarasını seçip, il adının yazılmasını istiyorum.

YANIT:

Veri Doğrulama ile aşağıdaki gibi bir makro kodu kullanılmıştır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo HATA1
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 2 Then

If Target.Value = “” Then Exit Sub
Application.EnableEvents = False
Target.Value = Worksheets(“İLLER”).Range(“a1″) _
.Offset(Application.WorksheetFunction _
.Match(Target.Value, Worksheets(“İLLER”).Range(“ALAN”), 0), 0)
Application.EnableEvents = True
End If
HATA:
Application.EnableEvents = True
Exit Sub

HATA1:
If Err.Number = 13 Or Err.Number = 1004 Then
GoTo HATA
Else
Resume Next
End If

End Sub

 

Dosya:

plakadanil

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>