أبو حنــــين

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

السلام عليكم الأخ الحبيب : جمال دغيدي هل معنى هذا ان طرح الاخ ابو غريب خاطئ ؟

جزاك الله خيرا أخي الفاضلة : أم عبد الله

السلام عليكم ما رأيك في هذه الطريقة اختر من الخلية B1 و انظر الى المخطط road lvls.rar

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

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

السلام عليكم اجريت لك دالة مستحدثة جربها دمغة الحوافز.rar

السلام عليكم قمت بالكود في النطاق B1:B35 و يمكن تغييره ضع في شيت1 هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To 35 If Sheets("Sheet2").Cells(i, 2).Address = Target.Address And Target <> "" Then Sheets("Sheet2").Cells(i, 2) = Target Exit For End If Next End Sub و ضع في شيت2 هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To 35 If Sheets("Sheet1").Cells(i, 2).Address = Target.Address And Target <> "" Then Sheets("Sheet1").Cells(i, 2) = Target Exit For End If Next End Sub

السلام عليكم ضبط القائمة المنسدله.rar

السلام عليكم ان كنت تريد كتابة 1 و 2 للذكر و الاناث استعمل الدالة =LEFT(D3;1) ثم اسحبها للاسفل و ان كنت تريد كتابة ( ذ ) للذكر و ( م ) للاناث استعمل الدالة =IF(LEFT(D3;1)=1;"ذ";"م") ثم اسحبها للاسفل و بالنسبة لتاريخ الميلاد استعمل الدالة =MID(D3;2;4) ثم اسحبها للاسفل

السلام عليكم اخي ابراهيم قم بمسح السطريبن التاليين Application.ScreenUpdating = False Application.ScreenUpdating = True

السلام عليكم ضع هذا الكود في زر الطباعة Private Sub CommandButton1_Click() With ورقة1 Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 5 .Cells(Last, i) = Me.Controls("TextBox" & i).Value Next Unload Me .PrintPreview End With End Sub

السلام عليكم 2n2014_5.rar

السلام عليكم امسح الكود السابق و اكتب بدله الكود التالي Sub Hanine() NN = Sheets("movement").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To NN If Sheets("movement").Cells(x, 1).Value2 = "" Then last = Sheets("movement").Cells(x, 1).Row - 1 Exit For End If Next Sheets("movement").Range("A2:D" & last).Copy N = Sheets("moved").Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets("moved").Range("A" & N).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False For y = 1 To Sheets("UAEHeld").Cells(Rows.Count, "b").End(xlUp).Row If Sheets("UAEHeld").Cells(y, 2).Text = "complete" Then Sheets("UAEHeld").Rows(y).Delete Shift:=xlToLeft End If Next End Sub

السلام عليكم جرب المرفق و ذلك بالضغط على الزر Supprimer من فورم Opération de vent 2n2014_4.rar

بالنسبة للسؤال هل هذا في نفس الفورم المسمى Opération de vent او تريد فورم جديد

السلام عليكم جرب المرفق test_1.rar

السلام عليكم اعتقد ان الكود يعمل الآن رغم وجود نفس التسمية في المخزون لكن بسعر مختلف 2n2014_3.rar

السلام عليكم تضع في شيت1 الكود Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Sheet2").Range("B5") = Sheets("Sheet1").Range("B5") End Sub و تضع في شيت2 الكود Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Sheet1").Range("B5") = Sheets("Sheet2").Range("B5") End Sub

السلام عليكم ارسل ملفا تبين فيه تصورك للبرنامج من حيث البيانات والمعطيات و الحسابات و ستجد ان شاء الله الكثير من الخيرين الطيبين من يبادر بالمساعدة الملف يجب ان يضغط ببرنامج ضغط مثل وينرار لكي تستطيع رفعه للمنتدى

السلام عليكم بعد اذن اخي حمادة و بالنسبة للسؤال الاول يمكن تغيير الكود السابق بالشكل التالي Sub SAMA1() Dim LR As Long, MayRng As Range Dim SA As Worksheet, SA1 As Worksheet Set MayRng = Application.Union(Range("C12:C24"), Range("C26:C27"), Range("C29:C32"), Range("C34:C36")) Set SA = Worksheets("Archive"): Set SA1 = Worksheets("Formulaire") LR = SA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row If SA.Cells(LR - 1, 1).Value = SA1.Range("J6").Value Then GoTo 1 With SA .Cells(LR, 1).Value = SA1.[j6].Value: .Cells(LR, 2).Value = SA1.[c6].Value .Cells(LR, 3).Value = SA1.[c7].Value: .Cells(LR, 4).Value = SA1.[c8].Value .Cells(LR, 5).Value = SA1.[j7].Value: .Cells(LR, 6).Value = SA1.[j8].Value .Cells(LR, 29).Value = SA1.[c37].Value MayRng.Copy .Cells(LR, 7).PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False End With Exit Sub 1 MsgBox "عفوا . . هذا الرقم موجود مسبقا", vbExclamation + vbMsgBoxRight, "خطأ" End Sub

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

السلام عليكم لرفع الملف قم بضغطه ببرنامج ضغط مثل الونرار

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

السلام عليكم أخي ضاحي الغريب مبروك عليكم الترقية المستحقة و ان شاء الله ستكون هذه الترقية حافزا للعطاء المستمر الذي عهدناه فيك تقبل تحياتي اخوك ابو حنين