كود للبحث عن قيمة مع وجود شرطين

[احمد النكلاوي]

السلام عليكم الاخوة الكرام

مطلوب ملء عمود معبن بالبيانات من خلال كود بحث عن القيمة مع وجود شرطين

قمت بتوضيح المطلوب في الملف المرفق

علما باني قمت بعمل كود ضمن الملف الا انه لا يعمل

DATA ُ ENTRY.xlsm

[lionheart]

Replace "Sales Bill" in th code with the Arabic characters

Sub Test()
    Dim x, ws As Worksheet, sh As Worksheet, r As Long, lr As Long
    Set ws = Sheet5: Set sh = Sheet8
    For r = 5 To ws.Cells(Rows.Count, "G").End(xlUp).Row
        If ws.Cells(r, 7).Value = "Sales Bill" Then
            ws.Cells(r, 11).Value = "Sales Bill"
        Else
            x = Application.Match(ws.Cells(r, 8).Value, sh.Columns(3), 0)
            If Not IsError(x) Then
                ws.Cells(r, 11).Value = sh.Cells(x, 4).Value
            End If
        End If
    Next r
End Sub