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

خليل احمد خليل

عضو جديد 01
  • Posts

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

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

كل منشورات العضو خليل احمد خليل

  1. ما هي طريقة صحيحه.. تصميم برنامج محاسبة مبيعات و مشتريات و سندات القبض و صرف مع تقريراكسيل ؟؟؟
  2. استاذ شهاب جزاك الله كل خير وجعله الله في ميزان حسناتك
  3. طلب مساعده في تصميم كود
  4. استاذ سليم اسلام عليكم اذا التاريخ متكرر يعطيني لون رمادي واذا تاريخ غير متكرر يعطني لون البيض
  5. استاذ ياسر ممكن تعديل علي الكود مسح البيانات بعد ترحيل
  6. مساعده في كود تلوين New Microsoft Excel Worksheet.rar
  7. كود application screen update = false لا أدري أين بالضبط يجب وضعه
  8. استاذ ياسر الحمدلله وصلت الحل Sub Tarh() LR = [A58].End(xlUp).Row If LR < 20 Then MsgBox "No data to shift": Exit Sub nm = [b11]: dt = [b17]: bil = [K11] Set Q_P = Union(Range("A20:A" & LR), Range("E20:E" & LR)) Set dsc = Range("B20:B" & LR) n = dsc.Count Sheets("الارشف").Activate nr = [E9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 7).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 8).PasteSpecial Paste:=xlPasteValues Range("E" & nr & ":E" & nr + n - 1) = dt Range("F" & nr & ":F" & nr + n - 1) = nm Range("D" & nr & ":D" & nr + n - 1) = bil Sheets("المشتريات").Activate Set dsc = dsc.Resize(n, 3) dsc.Select dsc.ClearContents [b11:C11].ClearContents Q_P.ClearContents [K11] = [K11] + 1001 End Sub
  9. السلام عليكم ورحمة الله اسعد الله اوقاتكم بالخير والمسرات ....اخي ياسر الموضوع موجود مسبقا و حولت انا اغير في كود نقل ولكنني لم اسطيع ..... انا ظعيف جدا نعم اخي الفاتوره في ورقه المشتريات
  10. ممكن من خبراء الاكسيل مساعده
  11. اسلام عليكم ورحمه الله انا عايز كود ترحيل من صفحه المشتريات الى صفحه البيانات book1.rar
×
×
  • اضف...

Important Information