عمر الجزاوى قام بنشر سبتمبر 29, 2023 مشاركة قام بنشر سبتمبر 29, 2023 السلام عليكم ورحمة الله وبركاته داخل الشيت كود لجلب البيانات من شيت البيانات الى شيت النتائج ويعمل بشكل رائع هو بيبحث فى ثلاث اعمدة وبيجلب البيانات بشكل صحيح ولكن لكل عمود مكرر نفس الكود المطلوب اختصار الكود ليبحث فى ثلاث اعمدة وجزاكم الله خير كشف حساب العملاء بين تاريخين.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد عبدالحليم قام بنشر سبتمبر 30, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 30, 2023 وعليكم السلام ورحمة الله جرب الكود التالى Dim ws As Worksheet: Set ws = Sheets(1) Dim sh As Worksheet: Set sh = Sheets(2) sh.Range("A5:N1000") = "" k = 5 lr = ws.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To lr Dim columns(1 To 3) As Variant columns(1) = "J" columns(2) = "L" columns(3) = "N" For c = 1 To 3 Dim column As String column = columns(c) If ws.Range(column & i) >= sh.[D2] And _ ws.Range(column & i) <= sh.[G2] Then For j = 2 To 20 sh.Cells(k, j) = ws.Cells(i, j) Next k = k + 1 End If Next c Next i 4 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 سلمت يمينك اختصار اكثر من رائع جزاكم الله خير الله يجزيكم الجنة الف الف شكر استاذ احمد على هذه الروائع 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.