Abo Sufiyan

اخوانى واحبائى

ارجوا المساعدة فى الملف المرفق حيث يوجد جدولين متساوين فى عدد الصفوف والعمدان ارجوا عند تلوين خلية فى الجدول الثانى يتلون نفس الخلية فى الجدول الاول

 Book1.xlsx

اخى العزيز 

كلما حاولت تشغيل الملف يعطى خطاء بالكود كما بالمرفق

اخى الكريم 

اشكرك جدا على مجهودك وسعة صدرك للمساعدة فى حل مشكلتى

ولكن هل يمكن ان يكون اليست على شيت عادى وليس فورم ان امكن

السادة الكرام

بعد التحية

اولا اشكركم على مجهودكم الكبير فى هذا الموقع الاكثر من رائع

ثانيا لقد حصلت على ملف يقوم بانشاء شيتات داخل الملف من المكتوب من اول الخلية B5 كل ماطلبة هو المساعدة فى انة يقوم بعمل شيت بة اسماء التى تم اضافتها وهيبر لينك للاسماء

Add Sheets.xlsm

اخى العزيز اشكرك على المجهود المبذول ولكن تظهر عندى هذة الرسالة

اخى العزيز Mohamed Hicham

اشكرك شكرا جزيلا على الكود وجعلة الله فى ميزان حسناتك

كما اسكر جميع الاخوة على المجهود المبذول فى محاولة مساعدتى 

انتم فعلا نعم العون

وعلبكم السلام ورحمة الله وبركاتة

اشكرك اخى على الكود ولكن انا اريد التعديل على الكود الموجود حتى يقوم بعمل الشيت طبقا لشيت الموجود بالملف حيث يوجد ملف sample يصنع مثلة كل ما يتم طلب انشاء شيت جديد

السادة خبراء الاكسيل 

بعد التحية 

بعد بحث فى الموقع استطعت ان اصل الى ملف لانشاء شيت جديد باسم الذى يوضع فى الفورم الموجود ولكن انا احتاج ان يضع كمية اسماء كبيرة اكثر من 200 اسم وعمل شيتات باسمائهم فهل يمكن ان يتم تغير الجزء الخاص بالفورم بوضع الاسماء فى صف ويقوم باخذهم اسم اسم اتوماتيك دون ادخال كل اسم لوحدة

Personal1.xlsm

بارك الله فيك

وجعلة فى ميزان حسناتك

اشكرك اخى العزيز

وجعلة الله فى ميزان حسناتك

السادة الافاضل

اولا لايسعنى الا الشكر على ما تقدمونة من يد المساعدة لنا جميعا وجعلة الله فى ميزان حسناتكم

ثانيا هل من الممكن ان يتم عمل ربط خلية باخرى ولكن لا يعمل الا فى حالة كتابة رقم 1 فى خلية معينة وغير ذلك لا يتم عمل الربط

واشكركم مقدما Book2.xlsx

متشكر جدا ربنا يجعلة فى ميزان حسناتك

الملف اخى العزيز

Book2.xlsm

اشكرك اخى الكريم

وارجوا مساعدتى فى كود لمسح الصفحة الرئيسية بعد الترحيل

بسم الله الرحمن الرحيم ..السلام عليكم ورحمة الله وبركاته ..السادة الأفاضل / مشرفي المنتدى

تحية طيبة وبعد ..هذا كود ترحيل ..اريد السطر اللى بالون الاحمر بدلا من ان يرحل الى الخانة 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

شكرا جدا لحضرتك

السلام عليكم ورحمة الله وبركاتة ..اخوتى الكرام ..ارجوا مساعدتى فى تعديل كود على اليوزرفورم

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)

ولكم جزيل الشكر

اخى العزيز ...حسين-مامون/

اشكرك جدا على الحل وهذا ما اعتدنا علية من هذا الصرح والعاملين علية بارك الله لك وجعلة فى ميزان حسناتك فانت لاتعرف مدى الخدمة التى قدمتها لى

اخى العزيز ...حسين-مامون

اولا اشكرك على الاهتمام بالملف واسف جدا على عدم شرح المشكلة بشكل جيد وقد قمت برفع الملف بعد حذف جميع اليوزر فورم الاخرى ووضعت صورة بها المشكلة ارجوا ان تكون واضحة 

Pro11.xlsb

السلام عليكم ... كل عام وانتم بخير وعيد اضحى سعيد 

لقد قمت باخذ يوزر فورم من الموقع وتعديلها لتصلح لعملى ولكن الكود يعمل بالارقام فقط برجاء التكرم  بالمساعدة فى جعل الكود فى اليوزر فورم  يعمل حروف وارقام معا بدلا من ارقام فقط

Pro11.xlsb

ا/ محى الدين ابو البشر

مشكور جدا لمجهودك الكبير و جعلة الله فى ميزان حسناتك 

السلام عليكم ..لابد من التحية عند بداية اى مشاركة ...اخوانى الاعزاء

ارسل اليكم ملف قمت باخذ كود من ملف اخر موجود على الموقع ولكن لانى لا افهم فى الاكواد فلا اعرف كيف اجعل السطر الذى بة اسم السيارة يتم ترحيلة الى الشيت باسم السيارة خلية رقم C3 بدلا من الخلية A30

Book1.xlsm

.. متابع

ا/ سليم 

 اشكرك جدا جدا على المجهود المبذول  وجعلة الله فى ميزان حسناتك

ا/ سليم 

اشكرك جدا على الكود باستخدامة عند ترحيل شهر بالفعل يضع البيانات الجديدة ولكن فى الشهر التالى اذا كانت الاصناف غير مرتبة يقوم بوضع الترتيب الجديد فى الترحيل مع عدم تغير اماكن الكميات فى الشهر الماضى ما يعنى ان الكميات الخاصة بصنف توضع مع صنف اخر للشهر السابق 

واعتذر جدا على الاطالة و اشكرك جدا جدا على المجهود المبذول