اذهب الي المحتوي
أوفيسنا

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم الشكر واصل لاخي الحبيب عباس السماوي ..........حفظه الله استبدل الجزء هذا من الكود Formula_To_Value Range("d2:d300"), "=A2&"" ""&B2&"" ""&C2" في امان الله
  2. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وكل عام وانتم بخير تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    اخى عبد الله انت بالفعل استاذ الاساتذه بارك الله فيك واشكر اخى حماده على الكلمات التى لانجد بعدها كلمات نقولها فى شأنك ذادك الله من علمه وفضله جزاكم الله خيرا تقبلوا تحياتي وشكري
  4. عبدالله باقشير
    أكرمكم الله على كلماتكم الطيبة وجزاكم الله خيرا وبارك فيكم وكل عام وانتم بخير تقبلوا تحياتي وشكري
  5. عبدالله باقشير
    شاهد المرفق اولا غير معطياتك بداية الكود المسار واسم الملف ' مسار الحفظ Const MyPath As String = "C:\mysave" ' اسم الملف Const MyName As String = "saver" المرفق 2010 فتح ملف جديد.rar
  6. عبدالله باقشير
    السلام عليكم كل عام وانتم بخير جرب الكود التالي Private Sub CommandButton1_Click() LR1 = [A1000].End(xlUp).Row + 1 If Len(Trim(Me.TextBox1)) Then Cells(LR1, 1) = Me.TextBox1 LR1 = [A1000].End(xlUp).Row + 1 If Len(Trim(Me.TextBox2)) Then Cells(LR1, 1) = Me.TextBox2 LR1 = [A1000].End(xlUp).Row + 1 If Len(Trim(Me.TextBox3)) Then Cells(LR1, 1) = Me.TextBox3 End Sub تحياتي
  7. عبدالله باقشير
    السلام عليكم بالنسبة للطلبين 1- فتح ملف جديد بعدد 12 صفحة 2- نسخ بيانات 12 صفحة من الملف الحالي الي الملف الجديد ( علي ان تكون صيغة اللصق في الملف الجديد value and format ) وليس formula شاهد المرفق 2010 فتح ملف جديد.rar
  8. عبدالله باقشير
    شاهد المرفق 2010 list3.rar
  9. عبدالله باقشير
    السلام عليكم طبعا المعادلة مع ذكاءك ممكن تعمل اشياء كثيرة جزاكم الله خير وكل عام وانتم بخير تقبلوا تحياتي وشكري
  10. عبدالله باقشير
    نعم ........لان الكود يعمل نسخة منه وكل عام وانتم بخير
  11. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  12. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    الشكر موصول للاخ العيدروس =SUMPRODUCT(1/COUNTIF(C2:C50;C2:C50)) تحياتي
  16. عبدالله باقشير
    جرب الكود التالي Const cont As Integer = 12 Private Sub UserForm_Activate() Dim Ary() Dim i As Integer, ii As Integer, Lr As Integer ListBox1.ColumnCount = cont With Sheet1 Lr = .Cells(.Rows.Count, "a").End(xlUp).Row For i = 3 To Lr ii = ii + 1 ReDim Preserve Ary(1 To cont, 1 To ii) Ary(1, ii) = .Cells(i, 1).Value Ary(2, ii) = .Cells(i, 2).Value Ary(3, ii) = .Cells(i, 3).Value Ary(4, ii) = .Cells(i, 4).Value Ary(5, ii) = .Cells(i, 6).Value Ary(6, ii) = .Cells(i, 8).Value Ary(7, ii) = .Cells(i, 9).Value Ary(8, ii) = .Cells(i, 10).Value Ary(9, ii) = .Cells(i, 11).Value Ary(10, ii) = .Cells(i, 12).Value Ary(11, ii) = .Cells(i, 5).Value Ary(12, ii) = .Cells(i, 7).Value Next End With Me.ListBox1.Column = Ary Erase Ary End Sub
  17. عبدالله باقشير
    كل عام وحضرتكم وجميع الأخوة بالمنتدي بخير وسعادة أعاده الله علي الأمة الإسلامية والعربية باليمن والبركات وعساكم من عواده
  18. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا تقبلا تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
  20. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  21. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته من العائدين الفائزين وتقبل الله من ومنكم صالح الأعمال وحفظنا وإياكم في جميع الأحوال وبلغنا جميع الآمال
  22. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  24. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    جزاكم الله خيرا وتقبل الله منا و منكم صالح الاعمال وكل عام وانتم بخير تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept