اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    59

 نوع المحتوي 

كل منشورات العضو عبدالله باقشير

  1. عبدالله باقشير
    الاكواد مفتوحة لكن لايمكنك الدخول الى المصنف والماكرو مفعل عطل الماكرو وحتدخل المصنف وسترى الاكواد
  2. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته احبائي في الله الاخ الفاضل / رجب جاويش__________ حفظه الله الاخ الفاضل / جمال عبد السميع__________ حفظه الله الاخ الفاضل / مجدي يونس__________ حفظه الله الاخ الفاضل / ابو حنين__________ حفظه الله الاخ الفاضل / حمادة عمر__________ حفظه الله الاخت الفاضلة / ام عبدالله__________ حفظها الله الاخ الفاضل / سعد عابد__________ حفظه الله الاخ الفاضل / عباس السماوي__________ حفظه الله الاخ الفاضل / رائد__________ حفظه الله الاخ الفاضل / خالد القدس__________ حفظه الله الاخ الفاضل / الشهابي__________ حفظه الله تشرفت بمروركم الطيب جزاكم الله خيرا وبارك فيكم واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته جمعة مباركة لعبة التركيز الاصدار 2 مع امكانية تغيير الصور اثناء التصميم من داخل الفورم هدية لاخي الحبيب / رجب جاويش المرفق 2003-2010 لعبة التركيز2.rar
  4. عبدالله باقشير
    السلام عليكم =A3-SUM(B3:E3)
  5. عبدالله باقشير
    جزاكم الله خيرا
  6. عبدالله باقشير
    السلام عليكم اخي الحبيب رجب جاويش........حفظكم الله هدية مقبولة وعمل رائع ..........بارك الله فيك تقبل تحياتي وشكري
  7. عبدالله باقشير
    السلام عليكم الصعوبة في النموذج بتاعك تكمن في DTPicker تم عمل البحث والتعديل المرفق 2010 رخصة++.rar
  8. عبدالله باقشير
    اللهم انا نسألك لابن اخينا شفاءا بلا سقم اللهم اشفه ...آمين ...آمين...آمين
  9. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته الف مليون مبروك والى الامام دوماً.............
  10. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
  11. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  12. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم اخي الحبيب رجب ...............حفظكم شرح استاذ 100 % موهبة الشرح هذه مش بسيطة اخي الحبيب والله اعطاك اياها فهنيئا لك... تقبل تحياتي وشكري
  15. عبدالله باقشير
    السلام عليكم اعمالك لا نستطيع ان نرى جمالها الا اذا غيرنا الشاشة عمل رائع ....حفظكم الله وجزاكم خيرا وبارك فيكم تقبلوا تحياتي وشكري
  16. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم واثايكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  17. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    جزاك الله خيرا جربتها حسب طلبك لم تعجبنا عموما التجارب جارية تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم جرب التعديل التالي على كود زر الحفظ Private Sub CommandButton1_Click() Dim Ctrl As Control Dim r As Integer Dim t As Integer Dim derligne As Integer Dim i As Integer derligne = Feuil3.Range("A65536").End(xlUp).Row + 1 For i = 0 To 1 Me.MultiPage1.Value = i For Each Ctrl In Me.MultiPage1.Pages(i).Controls r = Val(Ctrl.Tag) If r > 0 Then Feuil3.Cells(derligne, r).Value = Ctrl Next Next Feuil3.Cells(derligne, 1) = Val(TextBox1) End End Sub في امان الله
  20. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  21. عبدالله باقشير
    الكود اعلاه هو الذي يحفظ في الشيت وقد تم حذف الاسطر التي تتعلق بالتاريخ منه اما الباقي لا يمكنني تغييره فهو مرتبط باكواد اخرى
  22. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    السلام عليكم الشكر واصل لاخي الحبيب احمد عبد الناصر بخصوص الكود في المشاركة 1 هذا تعديله Sub end_report() Dim c As Range Dim coll As New Collection For Each c In Sheets("saad").[b7:b1500] On Error Resume Next coll.Add c.Value, CStr(c) If Err Then Err.Clear Else Cells(i + 6, 4) = c.Value i = i + 1 End If Next End Sub في امان الله
  24. عبدالله باقشير
    السلام عليكم ما دمت لا تستخدم تواريخ استبدل الكود هذا بدل الموجود في الفورم فقد حذفت منه عدة اسطر تخص التاريخ Private Sub kh_SaveDate(ByVal nR As Long, Optional ByVal tFil As Boolean = False) Dim MyVelue, Msg Dim c As Integer, cc As Integer '''''''''''''''''''''''''' On Error GoTo 1 '''''''''''''''''''''''''' Application.Calculation = xlCalculationManual '''''''''''''''''''''''''' If nR > 1 And tFil Then kh_AutoFill If tSr Then MyRngSeri.Cells(nR + 1, 1).Value = nR ''''''''''''''''''''''''''' For cc = 1 To LastColumn c = Ar(cc) If Me.Controls("Textdt" & cc).Enabled = True Then With MyRngdate MyVelue = Me.Controls("Textdt" & cc).Text .Cells(nR + 1, c).Value = MyVelue End With End If Next '''''''''''''''''''''''''' 1: Application.Calculation = xlCalculationAutomatic '''''''''''''''''''''''''' End Sub في امان الله
  25. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept