محمد الورفلي1 قام بنشر سبتمبر 28, 2017 قام بنشر سبتمبر 28, 2017 السلام عليكم تفضل جرب الحل عن طريق الماكرو الصلاحيه1.rar
احمد عـــزام قام بنشر سبتمبر 30, 2017 الكاتب قام بنشر سبتمبر 30, 2017 ماشاء الله عمل اكثر من رائع بارك الله يبارك فيه بس انا مش لاقى دوال حتى دخلت على مايكرو. مش لاقى الخطوات On 29/09/2017 at 1:00 AM, محمد الخازمي said: السلام عليكم تفضل جرب الحل عن طريق الماكرو الصلاحيه1.rar
محمد الورفلي1 قام بنشر سبتمبر 30, 2017 قام بنشر سبتمبر 30, 2017 منذ ساعه, احمد عـــزام said: ماشاء الله عمل اكثر من رائع بارك الله يبارك فيه بس انا مش لاقى دوال حتى دخلت على مايكرو. مش لاقى الخطوات هو ماكرو واحد فقط يكون لاستدعاء الصلاحية التي 15 يوم ونفس الماكرو ياتي بالصلاحية المنتهية Sub ماكرو2() Sheets("البيانات").Range("B5:J38").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("K3:K4"), CopyToRange:=Range("E6:I6"), Unique:=True End Sub وهذه المعادلة موجودة في العمود j لتظهر كلمة انتهت الصلاحية =IF(H15="";"";H15+DATE(G15;F15+1;E15))
احمد عـــزام قام بنشر سبتمبر 30, 2017 الكاتب قام بنشر سبتمبر 30, 2017 انا زودت عامود جانب الصنف بالعربى لكتابه الصنف باللغه الانجليزيه وبحاول اظبطعا مش عارف امشى على خطواتك
محمد الورفلي1 قام بنشر سبتمبر 30, 2017 قام بنشر سبتمبر 30, 2017 (معدل) ارفق النسخة من الملف وسوف اعدلة لك ثم اوضح لك اين كانت الاضافة علي العموم غير هذا المجال الي .Range("B5:J38") الي .Range("B5:m38") تم تعديل سبتمبر 30, 2017 بواسطه محمد الخازمي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.