عادل حنفي

عذرا علي التاخير

يمكنك ارسال ملف يحتوي علي عامودان الاول به اسم المادة والعامود الاخر به ما يقابلها في الخلايا المدمجة  مثلا

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

ذلك لمحاولة  مساعدتك وتعديل  الكود علي ذلك 

تحياتي

الرقم في الخلية B2 مقرب الي ستة ارقام عشرية اما الرقم في الخلية B3 هو بالفعل ستة ارقام عشرية

فيصبحا الخليتان متساويتان بالشكل وليس بالمضمون

اخي وجيه

مشكور علي كلماتك ومرورك

تحياتي

اخي

جرب المرفق

1.xlsm

اخي 

اولا تم ازالة بعض الاعمدة لتوحيد النظام داخل الملف فقط

ارجو التجربة في النلف المرفق

تحياتي

Copy of2 الجدول افقي.xlsm

السلام  عليكم

الاخت الفاضلة

اقتباس

أستاذي الفاضل هل من طريقة أخرى لتعديل أسماء المواد مثلاً أن أغير أسماء الخلايا المدمجة بدلاً عن تغيير أسماء المواد في الحافظة لأن الحافظة مرتبطة بقاعدة البيانات ونحن نستورد البيانات منها 

هذا بالفعل ما اقصده المهم ان يكون  اسماء المواد هو نقسه الموجود بالخلايا المدمجة 

اخي

من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

اخي shehab elgar7i

اقتباس

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

وكل عام وسيادتك في اتم صحة واحسن حال

اشكرك اخي دعوتك اجمل هدية

وكل عام وانت بكل بخير

تحياتي

اخي الان يمكنك البحث عن اللرقم  الذي تريده من بداية  الرقم الاول من علي اليسار

او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار

والكود هو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
If Target <> "" Then
Range("C5:D1000").ClearContents
s = Len(Range("C3"))
If s > 0 Then
x = 2
For i = 2 To 1000
If Sheets("Data").Cells(i, x) <> "" Then
m = Sheets("Data").Cells(i, x).Address
o = Left(Sheets("Data").Range(m), 1)
oo = Left(Sheets("Data").Range(m), 2)
ooo = Left(Sheets("Data").Range(m), 3)
oooo = Left(Sheets("Data").Range(m), 4)
ooooo = Left(Sheets("Data").Range(m), 5)
oooooo = Left(Sheets("Data").Range(m), 6)
ooooooo = Left(Sheets("Data").Range(m), 7)
oooooooo = Left(Sheets("Data").Range(m), 8)
If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then
With Columns(4).Rows(2000).End(xlUp)
.Offset(1, 0) = Sheets("Data").Cells(i, x)
Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1)
End With
End If
End If
Next
End If
End If
End If
End Sub

اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2

اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000

فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000

ارجو ان كون استطعت ايصال المعلومة

تحياتي

ارقام 2 (2).xlsm

مشكور مرورك اخي علي

تحياتي

اخي جرب المرفق

اكتب في الخلية  C3  في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه

ثم اضغط Inter

ارجو ان يساعدك هذا

تحياتي

ارقام 2.xlsm

جرب المرفق

ولاحظ ان نتيجة الاستيراد ستكون بين التاريخان المسجلان

وقد قمت ببعض التعديلات غلي شيت بيان العملاء تحسبا لوجود عميل له دفعات مقدمة

Copy of وارد شهري الجارحي1.xlsm

اخي

جرفب المرفق غير فقط في الخلية B1

COPY-VBA.xlsm

عذرا اخي وجيه

فلقد كنت اعمل علي الملف ولمجرد رفعه شاهدت مشاركتك فارجو المعذرة

اخي كل ما عليك التغيير في الليست الذي في الخلية C4 التي بها اسم العميل في شيت كشف حساب

مع العلم ان البيانات التي سيتم استيرادها قد تم تفعيل شرط التاريخ اي سيتم استيراد البيانات التي تقع

بين التاريخين الموجودين في شيت كشف حساب

جرب المرفق

Copy of وارد شهري الجارحي.xlsm

الاخ ناصر سعيد

اشكرك اخي علي كلماتك التي لا استحقها فنحن نقطة في بحر

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

في هذا الملف الشئ الذي افتقده حاليا ولو كان متاح  لي هذا تاكد من انني لن اتاخر

فاعذروني فانا اعلم الملف وما يحتاجه من وقت ومجهود لا املكه حاليا

تحياتي

السلام عليكم

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

والي كل من يريد التعلم

ابدا - اقرأ - ابحث - لا تتعجل - اصبر - لا احباطات -الخطأ  تعلم منه - لايستطيع احد ان يعلمك كل شئ ولكن ممكن الكثير يجاوبك علي  اسئلة تحتاج الرد عليها

تحياتي

كل عام وانت بكل خير اعاده الله علينا جميعا بالخير والسعادة

استاذ علي محمد مشكور مرورك وكلماتك

استاذ سليم حاصبيا  كعادتك كود جميل وبدون استأذان اخي فالهدف واحد

الاستاذ موسي انيس ان لم اخطئ في الاسم بالنسبة للكود ممكن ينفع بشرط معرفة درجة العشوائية وطريقة وجود الارقام بالملف الاساسي

وكل عام وانتم بخير

اخي ضع في الخلية B2 بداية الارقام وفي الخليةة B3 ضع الرقم الذي ستنتهي عنده الارقام

ثم اضغط  علي زر توزيع

ارجو ان يكون المطلوب

مصفوفة.xlsm

اخي يوسف

اسعدتني انك وجدت الحل علي دالة قام بعملها احد عملاقة هذا المنتدي والذي تعلمت منه كثيرا

وهو ابو تامر كتبه الله له في ميزان حسناته وكتب الله لك حسنات من يسبفيد بملفك

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

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

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

خالص تحياتي ولكل اسرة هذا المنتدي العظيم وكل عام وانتم بخير

كل عام وانتم بخير

ارقع ملقا لصفحة البيانات التي سيملأ بها الاخلاء

الان فهمت ماتريده تقريبا وقد تذكرت دالة كان عاملها القدير ابو تامر اسمها VLOOK2ALL

ولكن يشترط نقل العامود الذي تضع فيه 1 للعد قبل عامود رقم الجلوس

والدالة مرقفة في الملف في مديول

جرب كده اعتقد انها ستحل المشكلة

دليل التظريف.xlsm

السلام عليكم

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

ارجو تجربة الملف واخبرني بملاحظاتك

تحياتي

دليل التظريف.xlsm

اخي

اخي Ali Mohamed Ali

مشكور علي كلماتك ومرورك

اخي

اخي lookalone

بارك الله فيك وكل عام وانتم بخير