اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

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

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

المصنف1.rar

تم تعديل بواسطه وليد عبدالغني
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information