أبو حنــــين

السلام عليكم هذا مثال على ما طلبت ، لكن من الأحسن ارفاق ملف للعمل عليه مثال _.rar

اخي ابراهيم السلام عليكم ورحمة الله اشكرك على مرورك الطيب احبك الله و حفظك و رعاك وجعل الجنة مثواك

السلام عليكم جزاك الله خيرا اخي عبد السلام

السلام عليكم استعمل هذا الكود في الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long, MyRn As Range Dim x Lr = Cells(Rows.Count, "L").End(xlUp).Row Set MyRn = Range("L4:L" & Lr) If Target.Column = 12 Then For Each x In MyRn If Application.WorksheetFunction.CountIf(MyRn, x) = 14 Then GoTo 1 Next End If Exit Sub 1 MsgBox "يرجى الانتقال الى الحلقة الموالية", vbInformation, "تنبيه" ActiveCell = "" End Sub

السلام عليكم بعد اذن الاستاذ جمال هذه طريقة اخرى zmzm 1.rar

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

السلام عليكم حتى يعمل الكمبوبكس اكتب الكود التالي Private Sub UserForm_Initialize() ComboBox1.Clear Dim i As Long With Sheets("ورقة2") For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & i) <> "" Then ComboBox1.AddItem .Range("A" & i) End If Next i End With End Sub

الأخ الكريم : إبراهيم جزاكم الله خيرا على المرور الطيب حفظكم الله و رعاكم

السلام عليكم حسب علمي يكون التعريف كالتالي ' Dim عندما نستعمل كلمة ' i معناها اننا اردنا الإعلان عن متغير اسمه '===================================================================== ' Set عندما نستعمل كلمة 'Range("A1") معناها اننا استعملنا مرجعا لهذا المتغير و هو ' امثلة Private Sub CommandButton1_Click() Dim i As Range Set i = Range("A1") MsgBox i End Sub Private Sub CommandButton2_Click() Dim i As Integer i = 123 MsgBox i End Sub Private Sub CommandButton3_Click() Dim i As String i = "AAAA" MsgBox i End Sub Private Sub CommandButton4_Click() Dim i As Range, ii As Integer Set i = Range("A1") ii = i.Value MsgBox ii End Sub Private Sub CommandButton5_Click() Dim i As Range Set i = Range("A1") Let m = i.Value MsgBox m End Sub

السلام عليكم كما ذكر اخي عباد يمكن حماية الورقة بالكود و ليس يدويا ، و بذاك لم يتم تغيير الحماية الا من صاحب البرنامج مثل : Sheets("ورقة1").Protect "123"

السلام عليكم بالنسبة للحسابات غير مفهوم كيفية عملها في المرفق تجد فورم ادخال و بحث تعديل ( 2003) مثال1.rar

السلام عليكم جرب المرفق 2003 قائمة اسعار A.rar

السلام عليكم اغلب الظن ان الحساب يدوي و ليس تلقائي و للتأكد من هذا : في اوفيس 2003 خيارات --------> الحساب --------> ثم تفعيل الخيار تلقائي و الله اعلم

بالمعادلات =RIGHT(A2; 2) بالكود ActiveCell.Value = Right(Range("A3"), 2)

السلام عليكم جرب هذا الكود Private Sub CommandButton1_Click() TextBox1 = Format(Range("a1"), "dd-mm-yyyy") End Sub

السلام عليكم هذا مثال على الكود مثال.rar

و من يدري ربما ان قدر الله و شاء ان اشربه في البقاع المقدسة ( قل آمين ) و ادعو لنا و انت في سجودك ( وعد )

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

سبحان الله و الحمد لله و لا الاه الا الله و الله اكبر و لا حول و لا قوة الا بالله

السلام عليكم هذه العلامة تعني الأس او قوة عدد بمعني عندما نكتب 2^5 و كأننا قلنا 2×2×2×2×2

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

السلام عليكم و جمعة مباركة هذا الكود لسحب القيم من m الى n و هكذا Sub Macro1() Dim C As Integer For I = 4 To [N65000].End(xlUp).Row For C = 31 To 14 Step -1 Cells(I, C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub و هذا الكود للتراجع Sub Macro2() Dim C As Integer For I = 4 To [N65000].End(xlUp).Row For C = 14 To 31 Cells(I, C).Offset(0, -1).Value = Cells(I, C).Value Next Next End Sub

السلام عليم الحمد لله حمدا كثيرا لما نلناه من دعاء طيب من اخونا زمزم حفظه الله و جزاه كل الخير و هذا الدعاء هو مبتغانا

السلام عليكم حسب فهمي للسؤال استعمل هذه الدالة =IF(F11="لا";IF(ISERROR(DATEDIF(E11;G11;"y"));"";DATEDIF(E11;G11;"y"));"")

السلام عليكم أخي مجدي جزاك الله خيرا على المرور حفظكم الله