السلام عليكم
بارك الله بك
شرح موفق ومقيد
جزاك اله كل خير
بوركت جهودك
السلام عليكم
ولا أروع من شرح
جزاك الله كل خير
استاذ جمال انت من عمالقة هذا المنتدى وقد استفدت من حضرتك الكثير
أدامك الله ذخراً
السلام عليكم
أخي العزيز اعطاك الله العافية على هذا الجهد ارجو أن تعيد النظر بالسطر
If TextBox14.Text = WARED.Range("A", khh).Value Then
If TextBox14.Text = WARED.Range("A"& khh).Value Then
جرب هذا التعديل
وبالتوفيق
السلام عليكم
أعتقد والله أعلم أم المشكلة في السطر التالي:
last = Sheets("ناجح").Cells(Rows.Count, "a").End(xlUp).Row
هنا يجب التأكد أن آخر سطر في الداتا يتمثل في العمورد a وغلا يجب التعديل على هذا العمود ليتوافق مع الداتا الموجودة لديك
Sheets(xx).Cells(azsh, 1).PasteSpecial
Sheets("أمر شغل جديد").Range("A9:S20").SpecialCells(xlCellTypeConstants, 23).ClearContents
Application.CutCopyMode = False
السلام عليكم
أخي الغزيز فقط أضق الطر المبين بين السطرين المبينين
واتمنى أن يكون المطلوب
السلام عليكم
عدة أيام ولم تظهر أي مشاركة للأستاذ ياسر أبو البراء
مما أدى إلى تغير الصفحة الأولى في منتدانا القيم هذا
أصبح شكلها غريباً بعض الشيء!!!!
عسى يكون الأمر خيراً