أبو حنــــين

انظر اخي ابراهيم المرفق نسخ مع تبديل الموضع.rar

استعمل هذه الماكرو Sub pastee() LR = Range("K" & [K10000].End(xlUp).Row - 1) With Range("K7:" & Range("K" & [K10000].End(xlUp).Row - 1).Address) .Select: .Copy End With Range("A5").PasteSpecial Transpose:=True Application.CutCopyMode = False End Sub

أنظر الصورة أخي 2.rar

جرب المرفق جمع الخلايا الملونة.rar

جرب أخي المرفق Book1.rar

أخي ابو الحسن ما رأيك في هذه الطريقة بعد اذن اخي عباد تلوين.rar

نفس كود الاخ الحبيب عبد الله باقشير مع تعديل بسيط جمع الخلايا الملونة.rar

السلام عليكم بحث بخلية 1.rar

الملف جمع.rar

استعمل هذا الماكرو Sub total() LR = Sheets("ورقة1").Cells(Rows.Count, "a").End(xlUp).Row Sheets("ورقة1").Range("N12") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("D7:D" & LR)) Sheets("ورقة1").Range("N13") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("G7:G" & LR)) Sheets("ورقة1").Range("N14") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("J7:J" & LR)) Sheets("ورقة1").Range("N15") = Application.WorksheetFunction.Subtotal(9, Sheets("ورقة1").Range("K7:K" & LR)) End Sub

أخي الحبيب : الأستاذ محمود

استبدل هذا السطر If D = False Or D = "" Then GoTo XX بهذا السطر If D = False Or D = "" Then Exit Sub

السلام عليكم جرب اخي المرفق بحث بخلية.rar

بعد إذن أخي الحبيب : عبد الله هذا تعديل بسيط لكود الأخ عبد الله ، و هو يخص اللون الاصفر فقط : Sub kh_SumCellColor() Dim Cel As Range Dim v As Double ''''''''''''''''''''''''' For Each Cel In Range("b4:c20") If Cel.Interior.ColorIndex = 6 Or _ Cel.Interior.ColorIndex = 19 Or _ Cel.Interior.ColorIndex = 36 Then v = v + Val(Cel) End If Next ''''''''''''''''''''''''' Range("C21").Value = v End Sub

جرب أخي المرفق Classeur3.rar

العفو و

بعد اذن اخي ابو نصار بالنسبة لإلغاء للحماية نصع السطر كالتالي : Sub hh() Sheets("المشتريات").Unprotect Dim m As Range الى السطر التالي ليتم حماية الملف With Sheet6 .Range(Cells(2, 17), Cells(A_S, 35)).Copy Sheets("المشتريات").Cells(LR1, 5).PasteSpecial xlPasteValues End With Application.ScreenUpdating = True: Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "ترحيل" Sheets("المشتريات").Protect '-------------------------------------------------------------------------------------- For i = Sheets("المشتريات").Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1 و البقية لا يتغير

جرب هذه المحاولة xxxx.rar

هذه محاولة غير كاملة لضيق الوقت يمكنك البحث بالاسم او الرقم من خلال الكمبوبكس الاول او الثاني ثم الضغط على طباعة ليكتب في الخانة : ثم الدفع هو غير كامل لكن جربه و أخبرني الحركة11.rar

أخي يوسف جرب هذا الكود : Sub SaveIt() On Error Resume Next Sheets("الرئيسية").Copy With ActiveWorkbook .SaveAs Filename:="C:" & "\" & Sheets("الرئيسية").Name & Minute(Now) & ".xls" .Application.DisplayAlerts = False .Close End With End Sub

أخي الكريم : ريان أحمد مروركم شرفني و كلماتكم أخجلتني شكرا جزيلا و

أخي الملف الذي أرسلته غير واضح فمثلا رؤوس الأعمدة لا تحتوي على بيانات العمود الاحمر الذي ذكرته فارغ من البيانات يرجي رفع ملف يحتوي على بيانات حتى و إن كانت وهمية و تبين فيه المطلوب بالضبط ليتمكن الاخوة من المساعدة

أخي ابراهيم ظهور الفورم أعلى الصفحة يتطلب التالي : اليمين و اليسار له علاقة مع الخاصية Left اي : UserForm1.Left = 10 غير العدد 10 الى اي قيمة و سترى كيف يغير الفورم من مكانه الأعلى و الأسفل له علاقة مع الخاصية Top أي : UserForm1.Top = 10 غير ايضا العدد 10 الى اي قيمة و سترى كيف يغير الفورم من مكانه مع الملاحظة أن الكود يكتب في الحدث : Private Sub UserForm_Activate فيكون كالتالي : Private Sub UserForm_Activate() UserForm1.Left = 10 UserForm1.Top = 10 End Sub

أخي لكي يعمل الكود يجب ان تقوم يالتالي : ـ 1 ) تحديد كل الخلايا ـ 2 ) تضغط في اي مكان بعد التحديد بيمين الفأرة لتظهر نافذة تنسيق خلايا ـ 3 ) من التبويب حماية تمسح علامة الصح من مؤمنة و مخفية بعدها يعمل الكود بطريقة عادية

أخي يوسف و الله لم استوعب السؤال الخلية A1 تحتوي علبى القيمة 1000 الخلية C3 تحتوي على القيمة 500 و انت تريد ان يظهر العدد 0 في الخلية C4 كذلك بالنسبة للخلية D3 فهي تحتوي على العدد 300 و عند الخصم تصبح الخلية D4 تساوي 0 و للخلية E3 تحتوي على العدد 100 و عند الخصم تصبح الخلية E4 تساوي -100 في الحقيقة لم افهم كيف تمت هذه العملية رجاءا الشرح اكثر لتتضح المسألة