أبو حنــــين

السلام عليكم أخي الحبيب ياسر

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

بالنسبة للطلب الثاني انظر الشكل الطريقة.rar

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

أخي الحبيب : أبو نصار ( حفظهما الله ) لقد أعطيت لمسة رائعة على الكود ، إنها ولا شك لمسة محترف حقا

أخي يوسف

العفو أخي : رعد الغزالي العفو أخي : خالد

حسب فهمي للسؤال تضع هذا الكود و ان كنت على خطأ يرجى التوضيح أكثر مثال تعطي الارقام قبل العملية ثم تعطي الناتج المتوقع من الكود Private Sub CommandButton1_Click() Dim cl As Range For Each cl In Range("C3:G3") cl.Value = Val(cl.Value - Range("A1").Value) Next End Sub

أخي يوسف شكرا على مروركم

ضع هذا الكود في حدث الورقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) R = Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False For c = 1 To R Do If Cells(c, 1).Value <> "" Then With Cells(c, 1) .Offset(0, 1) = Cells(c, 1) + 2: .Offset(0, 2) = Cells(c, 1) + 2: .Offset(0, 3) = Cells(c, 1) + 2 End With: Exit Do: End If Loop Until Cells(c, 1).Value = "" Next Application.ScreenUpdating = True End Sub

السلام عليكم ربط الصفحات عن طريق فورم.rar

أخي رعد الغزالي جزاكم الله خيرا على مروركم و كلماتكم الطيبة التي توحي بنبل أخلاقكم

أخي رعد الغزالي : جزاك الله خيرا على مروركم الطيب و كلماتكم التي توحي بنبل أخلاقكم

أخي رعد الغزالي جزاكم الله خيرا على مروركم و كلماتكم الطيبة التي توحي بنبل أخلاقكم

أخي الحبيب : أبو ردينة ( حفظها الله ) جزاك الله خيرا على المرور

ما أروع هذه الطلة من أخي الحبيب : دغــيدي أرجو أن تكون في تمام الصحة جزاك الله خيرا على المرور

أخي الكريم : هشام ريان أخي الكريم : أبو تميم جزاكم الله خيرا على المرور الطيب

جرب المرفق أخي اعتقد انه يعمل حذف صفوف.rar

إستعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) If CheckBox1.Value = True And Target.Value <> "" Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub

جزاك الله خيرا أخي الحبيب مجدي

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

أخي الحبيب عباس أخي الكريم admbrk جزاكم الله خيرا على المرور

يمكن استعمال الكود السابق بتعديل آخر Dim a As Integer Private Sub CommandButton2_Click() a = a + 1 With [A13:A24] If a = 1 Then For R = 1 To .Rows.Count If Not IsEmpty(.Cells(R, 1)) Then .Cells(R, 1).Select: Exit For End If: Next: a = 2 Else If a = 3 Then For R = 1 To .Rows.Count If Not IsEmpty(.Cells(R, 1)) Then .Cells(R, 1).Select End If Next: a = 0: End If: End If: End With End Sub مع الملاحظة أن المتغير a يوضع في قسم General

نفس الكود الذي وضعه أخي عباد مع تعديل بسيط و هو حذف : Exit For

استعمل هذا الكود Sub Printe() ورقة1.PrintPreview For s = 1 To 10 Cells(s, 1) = Cells(10, 1) + s Next End Sub