KI50NG

السلام عليكم . انا عملت فورم وعملت فيه ترقيم تلقائي يتبع اخر ترقيم . ولكن المشكلة لمن اكون على صفحة الصادر فرضا ً يديني الترقيم , ولمه ما اكون عليه يديني 0 يبداء الترقيم من 0 . هاذا الكود . Private Sub TextBox2_Change() If TextBox2.Value <> "" Then ks = WorksheetFunction.CountA(Range("a1:a50000")) TextBox1.Value = ks Else TextBox1.Value = "" End If End Sub المطلوب . اضافة امر يتبع احداثات الشيت المطلوب الية .

السلام عليكم . انا عملت فورم وعملت فيه ترقيم تلقائي يتبع اخر ترقيم . ولكن المشكلة لمن اكون على صفحة الصادر فرضا ً يديني الترقيم , ولمه ما اكون عليه يديني 0 يبداء الترقيم من 0 . هاذا الكود . Private Sub TextBox2_Change() If TextBox2.Value <> "" Then ks = WorksheetFunction.CountA(Range("a1:a50000")) TextBox1.Value = ks Else TextBox1.Value = "" End If End Sub المطلوب . اضافة امر يتبع احداثات الشيت المطلوب الية .

السلام عليكم . شونكم اخواني الاعزاء . ان شاء الله الكل بخير فيه مجموعه من الاختيارات . ولكن اريد بعض الاضافات لانه انا جديد في الاكسال وحابب اتعلمها من اجل ان اصدر برامج مجانية . المطلوب : 1- عمل صلاحيات للملف . مشاهدة - حذف - اضافة 2- عمل مربع بحث من حرف واحد . انا حاولت اعمله ولكن ما عرف . المربع يكون في خانة العملاء المنبثقة . عندما اكتب احمد يظهرلي فقط احمد . وشكرا ً 1.rar