samycalls2020

كعهدنا بك أخونا سليم .. صاحب فضل هل يمكن أن يكون الكسر المنفصل رقم صحيح .. مثال يكون الرقم 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

للرفع

للرفع

السلام عليكم هذا كود اخوتى الكرام يقوم بجلب بيانات من جدول فى ورقة DATA الى جدول أخر فى ورقة AS جدول DATA به صفوف فارغة فى أكثر من موضع لأن بياناته مجلوبه بمعادلات الكود يعمل جيداً .. والمراد تعديل فقط هو أن لاينقل الكود الصفوف الفارغة Sub SS() ' كود نسخ Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("DATA") Set sh = Sheets("AS") Application.ScreenUpdating = False sh.Range("B7:U406").ClearContents lr = sh.Cells(Rows.Count, 4).End(xlUp).Row + 1 ws.Range("B7:U1026").SpecialCells(xlCellTypeVisible).Copy sh.Range("B" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = False End Sub

أشكرك أ / محمد .. على عدم نسيانك طلبى وسط مشاغلك الكثيرة

للرفع

ماشاء الله

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

للرفع

للرفع

للرفع