samycalls2020

أخى الكريم / عبد الله نعم لقد جربت حل السيد / العيدروس .. وأنه فعلاً حقق المطلوب وقمت بعمل شكر له على هذا الحل وأوضحت له أن الحل الذى قدمه حقق المراد .. ولكن تم حذف هذه المشاركة لا أعلم لماذا ..

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

اليك ما طلبت بمعنى أنه إذا نساوى الطرف الدائن والطرف المدين للحساب لنفس العميل لن يتم جلبه والكود يقوم بعمله جيداً .. وكل ما أريدة هو أن تكون الأرقام المرحله كما هى .. سوء كانت صحيحه أو بها كسور ww.xlsm

السلام عليكم .. هذا كود لجلب بيانات حساب بشرط عدم تساوى طرفىه القيم المجلوبه للحساب المحدد لاتعطى الكسور المراد : تعديل الكود لجلب الأرقام كما هى أن كانت صحيحة أو بها كسور w.xlsm

شكراً أ / نبيل على تعاونكم

السلام عليكم .. أرجو المساعدة فى ايجاد معادلة لتحقيق ترقيم تلقائى متسلسل . ترقيم تلقائى متسلسل.xlsm

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

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

السلام عليكم هل يمكن تلوين كلمة وسط جملة فى خلية .. تلوين جزء من جملة فى خلية.xlsm

كل الشكر

كعهدنا بك أخونا سليم .. صاحب فضل هل يمكن أن يكون الكسر المنفصل رقم صحيح .. مثال يكون الرقم 65 بدلاً من 0.65 Fraction2.xlsx

السلام عليكم .. رقم مثل 2624.65 كيف نفصل بمعادلة الرقم 2624 عن الكسر 65 ومعادلة أخرى لفصل الكسر 65 عن الرقم 2624 ..

عمل ممتاز أخى الكريم عماد .. بارك الله فيك

عمل رائع أخى الفاضل على .. أكرمك الله .. هل يمكن أن تكون معادلة بدلا من الكود ؟

السلام عليكم .. معادلة تحتفظ بأخر قيمه إذا لم يتحقق الشرط .. وإذا تحقق الشرط تتحدث القيمة zz.rar

للرفع

السلام عليكم لقد قمت بعمل محاولة متواضعة لتعديل كود ImportData1 بتصفية للعمود رفم 4 لجدول KATable .. فالأن يمكن أن يتغير حجم الجدول طبقاً للنتائج ويمكن اضافة صف للمجاميع .. هذا الكود كما تعلم استاذى الفاضل / زيزو خاص بجلب بيانات من ملفين للثالث بناء على 3 معايير أو شروط فلا بد من وضع الثلاث شروط حتى يعمل الكود ويعطى النتيجة.. فهل يمكن أن تزيدنى من كرمك وفضلك .. بحث يمكن أن نكتفى بشرط واحد فيعطى الكود نتيجة .. أو شرطين .. أو الثلاثة معاً معذرة لأننى أثقلت عليك ..

الحل اضافة تصفية للعمود 4 فى الجدول فيكون كود ImportData1 كالتالى Sub ImportData2() Application.ScreenUpdating = False Dim wbBook1 As Workbook, wbBook2 As Workbook Dim Path As String Dim Arr As Variant, i As Long, x As Long, LR As Long, LS As Long Dim a As String, b As String, d As String Sheets("Get").Range("KATable").ClearContents Set wbBook1 = ThisWorkbook Path = wbBook1.Path & "\" Arr = Array("DATA1", "DATA2") For x = LBound(Arr) To UBound(Arr) Set wbBook2 = Workbooks.Open(Path & Arr(x) & ".xlsm") Dim wsSheet1 As Worksheet Dim wsSheet2 As Worksheet Set wsSheet1 = wbBook1.Worksheets("Get") a = wsSheet1.Range("E1").Value b = wsSheet1.Range("E2").Value d = wsSheet1.Range("E3").Value Set wsSheet2 = wbBook2.Worksheets("Data") LR = wsSheet2.Range("E" & Rows.Count).End(xlUp).Row For i = 3 To LR Step 1 If Trim(wsSheet2.Range("B" & i)) = Trim(a) And _ Trim(wsSheet2.Range("E" & i)) = Trim(d) And _ Trim(wsSheet2.Range("J" & i)) = Trim(b) Then p = p + 1 wsSheet1.Range("C" & p + 6 & ":J" & p + 6).Value = wsSheet2.Range("C" & i & ":J" & i).Value wsSheet1.Range("B" & p + 6) = p End If Next wbBook2.Close True Next Sheets("Get").Range("KATable").AutoFilter Field:=4, Criteria1:= _ "<>" Application.ScreenUpdating = True End Sub

للرفع

الأخ الفاضل / زيزو .. شكراً على الاستجابه كود ImportData الموجود فى المرفق تم اضافة Dim tbl As ListObject Dim shGet As Worksheet ثم Set shGet = ThisWorkbook.Worksheets("Get") Set tbl = shGet.ListObjects("KATable") With tbl.DataBodyRange If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete .Rows(0).ClearContents End With لجعل الجدول يتغير فى عدد صفوفه طبقاُ للنتائج .. ولكن لم يعطينى النتيجة المرجوه منه كما أتمنى أن يضاف فى نهائة الجدول سطر أخير للمجاميع

للرفع

السلام عليكم.. لدينا كود من ابداع الأخ الكريم / زيزو العجوز وهو خاص بجلب بيانات من ملفين للثالث بناء على 3 معايير أو شروط قمت بمحاولة فى الكود لإضافة خاصية لتغير حجم الجدول طبقاً للنتائج ولكن المحاولة غير موفقة .. كما هو بالمرفق . الرجاء القيام بتعديل مايلزم فى الكود لضبط ما أضفته لهده الخاصية وأيضاً أن يكون هناك سطر أخير بالجدول للمجاميع .. تعديل لضبط تغير حجم الجدول طبقاً للنتائج.rar

جزيل الشكر

سلام الله عليك أ / على تحياتى وتقديرى .. أنا لدى الكود كما ارسلته لكم فى المرفق وهو كود يعمل جيداً وكل ما أريدة فقط هو تعديل بسيط بحيث لا يجلب الصفوف الفارغة وأليك المرفق مرة أخرى ترحيل بيانات2.rar

السلام عليكم أ/ على .. وصلنى الكود من أ / ياسر مشكوراً .. وبتجربيته لم يعمل وإليكم المرفق ترحيل بيانات.rar