المساعدة في جعل الخلية خاوية يطبق عليها الدالة اذا كان هناك قيمة في خلية اخري

[وليد عبدالغني]

اريد اذا كان هناك  رقم في عمود الحساب تكون المعادلة الموجودة في عمود اسم العميل  واذا لم يكتب رقم حساب لا يكون هناك معادلة في صف العميل لاتكن من كتابة اسم العميل بدون إضافة الي قائمة VLOOKUP

عن طريق محرر الاكواد وليس الدوال

ولكم مني جزيل الشكر والتقدير                                      

المصنف1.rar

تم تعديل أغسطس 18, 2017 بواسطه وليد عبدالغني

[سليم حاصبيا]

جرب هذه المعادلة في F8 واسحب نزولاُ

=IF(OR(COUNTIF($I$8:$I$100,$E8)=0,$E8=""),"",VLOOKUP($E8,$I$8:$J$100,2))

 

[ياسر خليل أبو البراء]

جرب الكود التالي 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 7 And Target.Column = 5 Then
        Application.EnableEvents = False
            On Error GoTo Skipper
            If Target.Value = "" Then Target.Offset(, 1) = ""
            Target.Offset(, 1) = Application.WorksheetFunction.VLookup(Target, Range("I8:J20"), 2, False)
Skipper:
        Application.EnableEvents = True
    End If
End Sub

 

[سليم حاصبيا]

بعد اذن اخي ابو البراء هذا الكود(لا تدرج المعادلة اذا كانت الخلية فارغة)

Option Explicit

Sub create_formula()
Dim my_rg As Range
Dim Row%, i%
Set my_rg = Range("d7").CurrentRegion
Row = my_rg.Rows.Count + 6
my_rg.Offset(1, 0).Columns(3).ClearContents
For i = 8 To Row
 If Not IsEmpty(Cells(i, 5)) Then
  Cells(i, 6).Formula = "=IF(OR(COUNTIF($I$8:$I$100," & Cells(i, 5) & ")=0," _
  & Cells(i, 5) & "=""""),"""",VLOOKUP(" & Cells(i, 5) & ",$I$8:$J$100,2,0))"
End If
Next
End Sub

 

[وليد عبدالغني]

الف شكرا 

استاذي 

ياسر-خليل-أبو-البراء

سليم-حاصبيا

جزاكم اللة خيرا 

فعلا ذلك هو المطلوب 

الف شكر

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الكريم بمثل ما دعوت لنا 

تقبل تحياتي