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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم احسنت اخي الحبيب ضاحي الغريب جزاكم ربي خيرا وبارك فيكم تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    السلام عليكم من القائمة مراجعة مشاركة في المصنف شيل التشييك من السماح للتغييرات من اكثر من مستخدم موافق بتجيلك رسالة اختار نعم في امان الله
  3. عبدالله باقشير
    السلام عليكم الشكر واصل لاخي الحبيب عباد تفضل المرفق 2010 الدليل.rar
  4. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  5. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  6. عبدالله باقشير
    السلام عليكم نورت المنتدى اخي الحسامي عسى المانع خيرا ...........حفظكم الله تقبلوا تحياتي وشكري
  7. عبدالله باقشير
    لقد قمت بتعديل الكود في المشاركة 2 جرب واشعرنا بالنتيجة
  8. عبدالله باقشير
    السلام عليكم جرب الكود التالي Sub Macro1() Dim Cont As Integer, Lr As Integer, R As Integer Cont = Application.InputBox("إدخل عدد الصفوف", , 2, , , , , 1) If Cont = 0 Then Exit Sub Lr = Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For R = Lr To 8 Step -1 Rows(R).Resize(Cont).Insert Shift:=xlDown Next Application.ScreenUpdating = True End Sub تحياتي
  9. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته تهنئة بترقية الاخ شوقي ربيع الى عضو خبير و تهنئة بترقية الاخ الشهابي الى عضو محترف الف مليووووووووووووون مبروك والى الامام دوما...... تقبلوا تحياتي وشكري
  10. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
  11. عبدالله باقشير
    السلام عليكم هذا تعديل على كود اخي الحبيب احمد عبد الناصر ليتوافق مع اكسل 2003 Sub Dahmour() d1 = Format(DateSerial([c2], [c1], 1), "mm/dd/yyyy") d2 = Format(DateSerial([c2], [c1] + 1, 0), "mm/dd/yyyy") r = Range("b3:j" & Cells(Rows.Count, 2).End(xlUp).Row).Address Range(r).AutoFilter Field:=1, Criteria1:=">=" & d1, Operator:=xlAnd _ , Criteria2:="<=" & d2 End Sub شاهد المرفق 2003 +فرز حسب الشهر.rar
  12. عبدالله باقشير
    تحتاج الدوارة for next
  13. عبدالله باقشير
    السلام عليكم اولا : لكتابه اسم الفصل مثلا فصل 1/5 من تنسيق خلايا الفئة نص --------------------------- ثانيا : لتحويل الاقام فى اكسل الى اللغه العربيه من تنسيق خلايا محاذاة اتجاه النص من اليمين الى اليسار تحياتي
  14. عبدالله باقشير
    السلام عليكم هكذا يكون الكود Sub kh_Copy2() Dim mPath As String Dim oldName As String, newName As String mPath = ThisWorkbook.Path & "\" oldName = mPath & "TEST\vv.xls" newName = mPath & "mmm\vv.xls" FileCopy oldName, newName End Sub تحياني
  15. عبدالله باقشير
    السلام عليكم جرب الكود التالي Private Sub CommandButton1_Click() ListBox1.AddItem Format(Range("a1").Value2, "dd/mm/yyyy") End Sub في امان الله
  16. عبدالله باقشير
    السلام عليكم الخلل في السطر هذا .kh_SetAddrss "contra", "a1:w10" غيره بهذا .kh_SetAddrss "contra", "a1:w1" تحياتي
  17. عبدالله باقشير
    السلام عليكم اخي الحبيب عباد............ حفظكم الله اسعدني مروركم ..جزاكم الله خيرا وبارك فيكم..... ......تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    السلام عليكم اخي الحبيب ضاحي الغريب............ حفظكم الله اخي الحبيب عباد............ حفظكم الله اخي الحبيب عباس السماوي............ حفظكم الله اخي الفاضل ابراهيم ............ حفظكم الله اخي الفاضل بوحماد ............ حفظكم الله اسعدني مروركم ..جزاكم الله خيرا وبارك فيكم..... ......تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم شاهد المرفق 2010 بحث بواسطة حرف اول.rar
  20. عبدالله باقشير
    السلام عليكم جرب الكود التالي Sub kh_print() ActiveSheet.PrintOut , , [K4] End Sub تحياتي
  21. عبدالله باقشير
    السلام عليكم كود الترحيل Sub kh_Start() Dim x Dim Cont As Integer, M As Integer, Z As Integer Dim r As Integer, rr As Integer, c As Integer, cc As Integer 1: x = InputBox("ادخل عدد الارقام . ") If x = Cancel Then Exit Sub x = Val(x) If x = 0 Then GoTo 1 Cont = Abs(Int(-x / 30)) M = x Mod 30 rr = 1 Z = 30 Sheets("02").UsedRange.ClearContents For r = 1 To x Step 30 c = c + 1 cc = cc + 1 If cc = Cont Then If M Then Z = M Sheets("02").Cells(rr, c).Resize(Z, 1).Value = Sheets("01").Cells(r, 1).Resize(Z, 1).Value If c = 7 Then c = 0: rr = rr + 30 Next End Sub كود المسح Sub kh_Clear() Sheets("02").UsedRange.ClearContents End Sub شاهد المرفق 2010 ترحيل الى جدول.rar
  22. عبدالله باقشير
    السلام عليكم تفضل الكود التالي: Sub Macro1() With Range(Range("B5:J5"), Range("B10000").End(xlUp)) .Sort .Columns(1), xlAscending End With End Sub تحياتي
  23. عبدالله باقشير
    السلام عليكم جرب المعادلة التالية =IF(TODAY()>DATE(YEAR(TODAY());9;1);YEAR(TODAY())&"-"&YEAR(TODAY())+1;YEAR(TODAY())-1&"-"&YEAR(TODAY())) تحياتي
  24. عبدالله باقشير
    السلام عليكم احسنت اخي حمادة عمر .......حفظكم الله وجزاكم خيرا تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    السلام عليكم شاهد المرفق 2003 اضافة ورقة عبر فورم.rar
×
×
  • اضف...

Important Information

  I accept