İsim Makrosu

[hb3102]

Merhaba arkadaşlar sipariş teyid formu dosyamda daha önce forumdaki arkadaşların yardımıyla firma ünvanının başını girdiğim zaman sonraki tam firma ünvanını getiren makro yapmışlardı.
Bu makronun Veri Girişi sayfasında firmaların tam adını getiren makronun E sütunundaki Mamül Kodu bölümüne de uygulanmasını istiyorum.

 

[Korhan Ayhan]

Merhaba,

Sayfadaki kodu aşağıdaki gibi değiştirip deneyiniz.

Stoklar sayfanızda benzer isimler var. Kod bu haliyle ilk bulduğu veriyi getirir. Size sonraki veriler lazımsa daha önce forumda yayınladığımız otomatik anımsatıcı örneğini kullanmanız daha uygun olacaktır.

Linkteki dosyayı inceleyin. https://www.excel.web.tr/threads/huecrede-otomatik-tamamlama.112308/

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

    If Not Intersect(Target, Range("E3:E20")) Is Nothing Then
        Application.EnableEvents = False
        Set S1 = Sheets("Stoklar")
        Set Bul = S1.Range("B:B").Find(Target.Value & "*", , , xlPart)
        If Not Bul Is Nothing Then Target = Bul.Value
        Application.EnableEvents = True
    End If
End Sub

 

[hb3102]

Korhan Bey çok teşekkür ederim.Ellerinize sağlık