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

Abo Sufiyan

02 الأعضاء
  • Posts

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

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

كل منشورات العضو Abo Sufiyan

  1. اخى العزيز كلما حاولت تشغيل الملف يعطى خطاء بالكود كما بالمرفق
  2. اخى الكريم اشكرك جدا على مجهودك وسعة صدرك للمساعدة فى حل مشكلتى ولكن هل يمكن ان يكون اليست على شيت عادى وليس فورم ان امكن
  3. السادة الكرام بعد التحية اولا اشكركم على مجهودكم الكبير فى هذا الموقع الاكثر من رائع ثانيا لقد حصلت على ملف يقوم بانشاء شيتات داخل الملف من المكتوب من اول الخلية B5 كل ماطلبة هو المساعدة فى انة يقوم بعمل شيت بة اسماء التى تم اضافتها وهيبر لينك للاسماء Add Sheets.xlsm
  4. اخى العزيز اشكرك على المجهود المبذول ولكن تظهر عندى هذة الرسالة
  5. اخى العزيز Mohamed Hicham اشكرك شكرا جزيلا على الكود وجعلة الله فى ميزان حسناتك كما اسكر جميع الاخوة على المجهود المبذول فى محاولة مساعدتى انتم فعلا نعم العون
  6. وعلبكم السلام ورحمة الله وبركاتة اشكرك اخى على الكود ولكن انا اريد التعديل على الكود الموجود حتى يقوم بعمل الشيت طبقا لشيت الموجود بالملف حيث يوجد ملف sample يصنع مثلة كل ما يتم طلب انشاء شيت جديد
  7. السادة خبراء الاكسيل بعد التحية بعد بحث فى الموقع استطعت ان اصل الى ملف لانشاء شيت جديد باسم الذى يوضع فى الفورم الموجود ولكن انا احتاج ان يضع كمية اسماء كبيرة اكثر من 200 اسم وعمل شيتات باسمائهم فهل يمكن ان يتم تغير الجزء الخاص بالفورم بوضع الاسماء فى صف ويقوم باخذهم اسم اسم اتوماتيك دون ادخال كل اسم لوحدة Personal1.xlsm
  8. اشكرك اخى العزيز وجعلة الله فى ميزان حسناتك
  9. السادة الافاضل اولا لايسعنى الا الشكر على ما تقدمونة من يد المساعدة لنا جميعا وجعلة الله فى ميزان حسناتكم ثانيا هل من الممكن ان يتم عمل ربط خلية باخرى ولكن لا يعمل الا فى حالة كتابة رقم 1 فى خلية معينة وغير ذلك لا يتم عمل الربط واشكركم مقدما Book2.xlsx
  10. متشكر جدا ربنا يجعلة فى ميزان حسناتك
  11. اشكرك اخى الكريم وارجوا مساعدتى فى كود لمسح الصفحة الرئيسية بعد الترحيل
  12. بسم الله الرحمن الرحيم ..السلام عليكم ورحمة الله وبركاته ..السادة الأفاضل / مشرفي المنتدى تحية طيبة وبعد ..هذا كود ترحيل ..اريد السطر اللى بالون الاحمر بدلا من ان يرحل الى الخانة A5 يرحل عندالسطر الذى يالى اخر سطر بة كتابة وبعد الترحيل يمسح الصفحة التى تم الترحيل منها Store Issue من اول البيانات من خلية A5 Sub shift_Class() ' Set Sh = Sheets("Store Issue") Sh.Select Dim Arr(1 To 1) '====================================================== End_Row = Sh.Cells(Rows.Count, "a").End(xlUp).Row Set Rng = Sh.Range("a4:g" & End_Row) '====================================================== Arr(1) = "Store Issue (2)" Application.ScreenUpdating = False '====================================================== 'Call Clear_Class For Class = 1 To 1 If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData ActiveSheet.AutoFilterMode = False End If '====================================================== Rng.AutoFilter Field:=7, Criteria1:=Arr(Class) Set Rng_1 = ActiveSheet.AutoFilter.Range.Offset(2).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1) Rng_1.Copy Sheets(Arr(Class)).Range("A5") Application.CutCopyMode = False '====================================================== If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData ActiveSheet.AutoFilterMode = False End If '====================================================== Next '====================================================== 'Call Hide_Columns_In_Range '====================================================== Application.ScreenUpdating = True ' End Sub
  13. السلام عليكم ورحمة الله وبركاتة ..اخوتى الكرام ..ارجوا مساعدتى فى تعديل كود على اليوزرفورم ws.Cells(LR, 1).Value = Me.A1.Value ws.Cells(LR, 2).Value = Me.B1.Value ws.Cells(LR, 3).Value = Me.C1.Value ws.Cells(LR, 4).Value = Me.D1.Value ws.Cells(LR, 5).Value = Me.e1.Value حيث اريد بدلا من اخذ قيمة C1 تكون سالبة بمعنى اذا كان ال Text box C1 بها رقم 8 عند وضعها بصفحة الاكسيل تكون (-8) ولكم جزيل الشكر
  14. اخى العزيز ...حسين-مامون/ اشكرك جدا على الحل وهذا ما اعتدنا علية من هذا الصرح والعاملين علية بارك الله لك وجعلة فى ميزان حسناتك فانت لاتعرف مدى الخدمة التى قدمتها لى
  15. اخى العزيز ...حسين-مامون اولا اشكرك على الاهتمام بالملف واسف جدا على عدم شرح المشكلة بشكل جيد وقد قمت برفع الملف بعد حذف جميع اليوزر فورم الاخرى ووضعت صورة بها المشكلة ارجوا ان تكون واضحة Pro11.xlsb
  16. السلام عليكم ... كل عام وانتم بخير وعيد اضحى سعيد لقد قمت باخذ يوزر فورم من الموقع وتعديلها لتصلح لعملى ولكن الكود يعمل بالارقام فقط برجاء التكرم بالمساعدة فى جعل الكود فى اليوزر فورم يعمل حروف وارقام معا بدلا من ارقام فقط Pro11.xlsb
  17. ا/ محى الدين ابو البشر مشكور جدا لمجهودك الكبير و جعلة الله فى ميزان حسناتك
  18. السلام عليكم ..لابد من التحية عند بداية اى مشاركة ...اخوانى الاعزاء ارسل اليكم ملف قمت باخذ كود من ملف اخر موجود على الموقع ولكن لانى لا افهم فى الاكواد فلا اعرف كيف اجعل السطر الذى بة اسم السيارة يتم ترحيلة الى الشيت باسم السيارة خلية رقم C3 بدلا من الخلية A30 Book1.xlsm
  19. ا/ سليم اشكرك جدا جدا على المجهود المبذول وجعلة الله فى ميزان حسناتك
  20. ا/ سليم اشكرك جدا على الكود باستخدامة عند ترحيل شهر بالفعل يضع البيانات الجديدة ولكن فى الشهر التالى اذا كانت الاصناف غير مرتبة يقوم بوضع الترتيب الجديد فى الترحيل مع عدم تغير اماكن الكميات فى الشهر الماضى ما يعنى ان الكميات الخاصة بصنف توضع مع صنف اخر للشهر السابق واعتذر جدا على الاطالة و اشكرك جدا جدا على المجهود المبذول
  21. ا/ سليم الكود اكثر من رائع ولكن عند استخدامة يقوم بترحيل الاصناف الموجودة بالفعل فى Sheet 1 ولكن الاصناف الجديدة لا تنزل بياناتها وكمياتها
×
×
  • اضف...

Important Information