اختصار كود جلب البيانات

[عمر الجزاوى]

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

كشف حساب العملاء بين تاريخين.xlsm

[احمد عبدالحليم]

وعليكم السلام ورحمة الله 

جرب الكود التالى
 

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

 

[عمر الجزاوى]

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