هل يمكن اخفاء صفوف في الكمبوبكوس

[خالد القدس]

السلام عليكم أساتذتي الأكرام اذا عندي كمبوبكوس في فورم ومثلا كتبت نطاق ليظهر الاسماء التي بهذا النطاق مثل B3 : B1003 واذا قمت بعملية تصفية يتم فيها اخفاء جزء من تلك الصفوف التي داخل النطاق المذكور فهل يمكن جعل الأسماء التي تظهر في الكمبوبكوس فقط الاسماء الظاهرة بعد التصفية أي الغير مخفية لكم من الشكر أجزله ومن الدعاء أسمعه

[عبدالله باقشير]

السلام عليكم

عند اظهارك للفورم تتغير القائمة

Private Sub UserForm_Activate()

Dim myCell As Range, myRange As Range

Set myRange = Range("B5:B200")

For Each myCell In myRange

    If myCell = "" Then GoTo 1

    If myCell.EntireRow.Hidden = False Then ComboBox1.AddItem myCell

1 Next myCell

End Sub

شاهد المرفق

خالد القدس.rar

[خالد القدس]

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

[أبوعبد الله]

أخي الحبيب / خبور خير

أنت أستاذ بكل ما تحمله الكلمة من معنى .

مع حبي وتقديري

أخوك أبو عبدالله

تم تعديل فبراير 14, 2010 بواسطه أبو عبد الله

[عبدالله باقشير]

السلام عليمكم

اخي خالد دعائك هذا لا تساوية كنوز الدنيا كلها ولو اجتمعت

اكرمك الله واثابك باضعافه

اخي الحبيب ابو عبدالله

اكرمك الله اكرام الصالحين واجزل لك العطاء

حفظكم الله جميعا

تقبلوا تحياتي وشكري

[خالد القدس]

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

MSM2010.rar

[خالد القدس]

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

MSM2010.rar

[حاتم 14169]

بارك الله علي هذا الابداع

[خالد القدس]

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

MSM2010.rar

[علي سالم 75]

على قدر فهمي غي الكود بالشكل ده:

If MsgBox("تم التسجيل والترحيل إلى الدفتر اليومي والدفتر الشهري هل ترغب بطباعة ايصال مالي للطالب", vbYesNo, "طباعة") = vbYes Then

    TextBox1 = ""

    Sheets("Shada (2)").Select

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _

        :=True

    Sheets("farest").Select

    Range("B19").Select

End If

[خالد القدس]

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