Metin arama

[hb3102]

Merhaba arkadaşlar benim sorum şu;
Excel de veri girişi sayfasında d2 ile d20 hücreleri arasında firma bilgisi girmem gerekiyor.
Firma bilgileri diye bir excel sayfam var.
Veri girişi sayfası d2 hücresine örneğin ÖRNEK yazdığım zaman firma bilgileri sayfasında örnek ile başlayan firmayı seçerek d2 hücresine yazmasını istiyorum.
Şimdiden yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Veri Girişi sayfasnın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range, S1 As Worksheet
    If Intersect(Target, Range("D2:D20")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Set S1 = Sheets("Firma Bilgileri")
    Set Bul = S1.Range("B:B").Find(Target.Value & "*", , , xlPart)
    If Not Bul Is Nothing Then Target = Bul.Value
    Application.EnableEvents = True
End Sub

 

[hb3102]

Çok teşekkürler