VERİ DOĞRULAMA LİSTESİNDEKİ DEĞERE GÖRE DÜŞEY ARAMA

[Karamanli.70]

ÜSTADLAR KOLAY GELSİN. BENİM BİR SORUM OLACAKTI SİZE. ŞİMDİ EXCEL DOSYASINDA VERİ DOĞRULAMADAN BİRİM SEÇİYORUM. SEÇTİĞİM BİRİME AİT BİRİM KODU YANINDA BULUNAN HÜCREYE BAŞKA BİR SEKMEDE BULUNAN LİSTEDEN DÜŞEYARA FORMÜLÜ İLE GELİYOR

ÇALIŞMADA ÇOK FAZLA BİRİM VE DÜŞEYARA BULUNDUĞUNDAN KASILMA MEYDANA GELİYOR. MAKRO OLARAK BUNUN BİR KOLAY YOLU VARMI?

şİMDİDEN TEŞEKKÜR EDERİM.

 

[Ömer]

Merhaba,

Sayfa1 in kod bölümüne:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim S1 As Worksheet, son As Long, c As Range

    If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
   
    Set S1 = Sheets("SABİT")
    son = S1.Cells(Rows.Count, "B").End(xlUp).Row
   
    Range("B3") = ""
    Set c = S1.Range("B1:B" & son).Find(Target, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Range("B3") = S1.Cells(c.Row, "C")
    End If
   
End Sub

Not: Yazışmalarınızın tamamında büyük harf kullanmamanızı rica ederim. Forum kuralları gereği de sakıncalı bir durumdur.

 

[Karamanli.70]

ÇOK TEŞEKKÜR EDERİM ÖMER HOCAM ELİNİZE SAĞLIK

 

[Korhan Ayhan]

Klavyenizde sorun mu var?

 

[Karamanli.70]

Kusura bakmayın dikkat etmemişim.