mr omar قام بنشر سبتمبر 22, 2021 مشاركة قام بنشر سبتمبر 22, 2021 السلام عليكم ورحمة الله وبركاته ارجوا منكم مساعدتي في الملف المرفق تم شرح المطلوب داخل ملف الاكسل المصنف (1).xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر سبتمبر 22, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 22, 2021 Sub Test() Dim c As Range, s As String For Each c In [F4,H4,I4] If IsEmpty(c) Then s = s & IIf(s > "", ", ", "") & c.Address(False, False) Next c If s > "" Then MsgBox "You Must Fill " & s, 48, "Officena": Exit Sub For Each c In Range("A4:A" & Cells(Rows.Count, 1).End(xlUp).Row) If c.Value = [F4] And c.Offset(, 2).Value2 > [I4].Value2 Then [J4].Value2 = c.Offset(, 2).Value2: Exit For End If Next c End Sub 1 1 رابط هذا التعليق شارك More sharing options...
mr omar قام بنشر سبتمبر 23, 2021 الكاتب مشاركة قام بنشر سبتمبر 23, 2021 مع جزيل الشكر .. لعدم معرفتي في استخدام الاكواد ارغب منكم مساعدتي عن طريق دوال الاكسل . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.