أبو حنــــين

السلام عليكم و رحمة الله أخي أبو إياد : بداية ادعو الله العلي القدير بالرحمة و المغفرة للوالدة و الابن و أسأل الله ان يتغمدهما برحمته و ان يسكنهما فسيح جنانه و سائر المؤمنين و المؤمنات انه على ذلك لقدير كما اود ان اعتذر عن تأخري في ابداء الرأي في هذا العمل الجبار و و الله لم اره الا الآن و اود ايضا من خلال هذه الكلمات ان اعبر عن اعجابي الشديد بهذا العمل الذي يرقى الى الاحترافية و و الله لقد انبهرت بالتنسيق الذي قمت به على الملف و اختيار الالوان التي توحي بالذوق الرفيع لصاحبها و ليس مجاملة ، انه عمل يستحق كل الثناء جزاكم الله خيرا و جعله صدقة جارية و السلام عليكم

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

اخي ضاحي لغريب جزاكم الله خيرا على هذا العمل

السلام عليكم ارسل النموذج و الحقول التي تحتوي عليها قاعدة البيانات

السلام عليكم اخي سعد اخي احمد ريان جزاكم الله خيرا على المرور و الكلمات الطيبة حفظكم الله و رعاكم ------------------------------------------ اخي احمد المرفق 2003 كما طلبت مساعدة2.rar

أخي الحبيب وليد فتحي جزاكم الله خيرا على المرور و الدعاء و لكم باضعافه ان شاء الله

السلام عليكم جرب هذه المحاولة مساعدة.rar

السلام عليكم ارجو ان تجرب المرفق و تتأكد من الكود هل يعمل بطريقة سليمة او لا 2n2014_62.rar

السلام عليكم أخي الفاضل : سمو الشوق أخي الفاضل : أبو محمد أخي الفاضل : سعد الأخت الفاضلة : أم عبد الله ------------------------------ جزاكم الله خيرا على الكلمات الطيبة و الدعاء الطيب ولكم باضعافه ان شاء الله ------------------------------ أخي سعد بالنسبة لسؤالكم حول علامة الصح هي متعلقة بنوع الخط لو اخترت نوع الخط Marlett ثم كتبت الحرف a لظهرت العلامة بدل الحرف a كما لو اخترت نوع الخط مثلا Wingdings و جربت بعض الاحرف لوجدت ان بدل الاحرف رموز و علامات يمكن استغلالها

السلام عليكم يصبح كود الحفظ كالتالي Private Sub EnregistrerA_Click() With Sheet2 Application.ScreenUpdating = False If TextBox5 = "" Then MsgBox "Vous devez écrire la date", vbExclamation, "" Exit Sub End If LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 9 .Cells(LR, i + 1).Value = Me.Controls("TextBox" & i).Value .Range(.Cells(LR - 1, 1), .Cells(LR - 1, 10)).Copy .Range(.Cells(LR, 1), .Cells(LR, 10)).PasteSpecial (xlPasteFormats) .Cells(LR, 6).Value = CDate(TextBox5): .Cells(LR, 1).Value = LR - 11 .Range(.Cells(LR, 1), .Cells(LR, 10)).Borders.Value = 1 If CStr(TextBox9) = "A terme" Then .Range(.Cells(LR, 1), .Cells(LR, 10)).Interior.ColorIndex = 3 Next End With LR1 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row With Sheet2.Range("A12:J" & LR1) .Sort .Columns(2), xlAscending End With j = LR1 - 11 With Sheet2.Range("A12") .Value = 1 .Resize(j, 1).DataSeries End With A_terme Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

السلام عليكم ثم عمل الطلب الاول بالضغط مرتين على العمود P allied.rar

السلام عليكم جرب المرفق مسح محتوى 22.rar

و تم استدراك الخطأ الثاني ترحيل إلى ورقتين مع تلوين سطر 4444.rar

السلام عليكم تم استدراك الخطأ ترحيل إلى ورقتين مع تلوين سطر 333.rar

اخي السؤال غير واضح ان كنت تريد مسح الناتج مع ترك المعادلة فيكفي مسح القيم الموجودة في A و B و يكون الكود بالشكل Sub sClear() Dim cel As Range For Each cel In Range("C1:C10") cel.Offset(0, -1) = "": cel.Offset(0, -2) = "" Next End Sub و ان كان هناك توضيح آخر فارجو طرحه

السلام عليكم تفضل اخي مسح محتوى+.rar

او هذا التعديل =IF(AND(A27<11;A27>2);NumtoTxt(A27;"دنانير جزائرية";"سنتيماً");NumtoTxt(A27;"دينار جزائري";"سنتيماً"))

السلام عليك اخي زاكي و بعد اذن الفاضلة ام عبد الله تصبح المعادلة بالشكل =IF(A27<11;NumtoTxt(A27;"دنانير جزائرية";"سنتيماً");NumtoTxt(A27;"دينار جزائري";"سنتيماً"))

السلام عليكم اخي هذا هو التعديل Private Sub TextBox1_Change() Dim lastrow As Long lastrow = Range("b65536").End(xlUp).Row If ActiveSheet.TextBox1.Text <> "" Then Range("a3:c3").AutoFilter Range("$A$3:$C$" & lastrow).AutoFilter Field:=2, Criteria1:= _ "=" & TextBox1.Text & "*", Operator:=xlOr Else Range("$A$3:$C$" & lastrow).AutoFilter Field:=2, Criteria1:= _ "=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr End If End Sub

السلام عليكم الأخت الفاضلة أم عبد الله جزاكم الله خيرا على المرور

السلام عليكم اخي جرب المرفق ترحيل إلى ورقتين مع تلوين سطر222.rar

اخي محمد تفضل المرفق مسح محتوى .rar

اخي سليم تفضل المرفق مسح محتوى خلايا بعد ثواني.rar

السلام عليكم اخي هناك أمور غير واضحة ـ 1 هل الترحيل يكون الى ورقة Stocks و هل يكون في صف جديد اي آخر خلية يرحل لها ـ 2 المبلغ الموجود في الخانة باللون البنفسجي قلت يرحل الى ورقة Fournisseurs هذه الورقة لا تحتوي على عمود باسم Fournisseurs

بالفعل