ابو اسامة العينبوسي

السلام عليكم تفضل _____2.rar

السلام عليكم قمت بتغييرهما و الملف يعمل لان العمل بمنطق(1+1 = 2 ) الكود يتعامل مع كود الورقة و ليس اسمها Test_them_Again.rar

السلام عليكم ممكن ان نضيف قوائم منسدله باسماء الزبائن و تنبهات بتكرار الاسم الخ Bill_Form2.rar

السلام عليكم في اي شيت تريد حفظ البيانات ارفق تصور (رؤوس الاعمدة و عددها و الصفوف الخ)

السلام عليكم انا غيرتها و لم يحدث خطا لان الكود يتعامل مع كود الورقة و ليس مع الاسم كما انك لم تحدد في اى ملف غيرت في بوك2 ام بوك 3

السلام عليكم الحمد لله نال اعجابى

السلام عليكم نم اخى الكريم نم و خذ راحتك في النوم لانى مشغول (لا استطيع الشرح) اخوك عمر

السلام عليكم مجرد مثال اخى من الكود عدل ما تريد و ممكن نسند المتغير الى قيمه توضع في الخليه حسب المدرسه

السلام عليكم بهذا الكود z = 5 For i = 1 To ActiveSheet.UsedRange.Rows.Count x = Workbooks("book3").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 Workbooks("book3").Sheets(1).Cells(x, 1) = ActiveWorkbook.Sheets(1).Cells(z, 3) Workbooks("book3").Sheets(1).Cells(x, 2) = ActiveWorkbook.Sheets(1).Cells(z, 4) Workbooks("book3").Sheets(1).Cells(x, 6) = ActiveWorkbook.Sheets(1).Cells(z, 8) Workbooks("book3").Sheets(1).Cells(x, 7) = ActiveWorkbook.Sheets(1).Cells(z, 9) z = z + 1 Next i Test_Them.rar

السلام عليكم اليك مثال Test10.rar

السلام عليكم هناك طرق كثيرة Dim X As Long For Each cell In Range("a1:a10") X = Application.WorksheetFunction.Max(Range("a1:a10")) If cell = X Then cell.Interior.ColorIndex = 3 Next cell

السلام عليكم Salary_200999.rar

السلام عليكم انا قرات موضوعك مرتين المشكله انك لم توصل فكرتك و شكرا

السلام عليكم مرفق ملف لتكمله طبعا بالكود اسهل Salary_20099.rar

السلام عليكم اخى الكريم ارفق ملف لو تكرمت اذا سمحت اضفنى اريد ان انبهك لامر معين Omarhajy@hotmail.com

السلام عليكم اخى هذا البرنامج من الاشهر عالميا و ترتيبه الاول (SnagIt) http://screen-capture-software-review.topt...git-review.html هذا حسب تصنيف الموقع اعلاه

السلام عليكم Omarhajy@hotmail.com 12 ساعة متواجد اضفنى و نتحدث

السلام عليكم ان كان الهدف منع استخدام علامة الغلق ممكن بدون ذلك

السلام عليكم لا املك تصور ان كان لديك بعض الافكار ضمنها في ملف و ارسل

السلام عليكم بورك فيكم و الكل يتعلم ممكن استخدام Value لاستخدام الارقام المخزنه كنص(قد تشذ القاعدة احيانا) =SUM(VALUE(B2),VALUE(B1)) وهي تعمل

السلام عليكم اخى احمد تشرفنا بك

السلام عليكم ملفك محمى بكلمه مرور Private Sub Workbook_Open() Dim cell As Range For Each cell In Range("b12:l160") If cell = Date Then MsgBox " ÇáÚãíá " & Cells(cell.Row, 4) Next End Sub

السلام عليكم O_P_Q2.rar

اسلام عليكم ما هو الباسورد لملفك الذى ارفقته احل لك المساله على ملفك

السلام عليكم ليس هناك اى تاريخ بملفك