فرز الأعمدة التي تحتوي على ايات القران الكريم ووضعها في صفحة واحدة

[عبد الكبير نواري]

السلام عليكم ورحمة الله تعالى حياكم الله جميعا وبارك فيكم وفي جهودكم الكريمة

عندي ملف فيه ايات كريمات من القران الكريم واريد ان أجعل البحث بالصفحة بحيث إّذا وضعت رقم الصفحة تجمع جميع البيانات في الخانة على اساس أنها صفحة واحدة وإذا انتقلت الى الصفحة الأخرى كذالك وهكذا الى اخر العمود اي اخر القران الكريم.

جزاكم الله خيرا ونفع بكم الاسلام والمسلمين

قران بالصفحات.xlsx

[ابراهيم الحداد]

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

يمكنك استخدام الكود التالى

Sub JnQuran()
Dim ws As Worksheet, LR As Long
Dim Arr(), Tmp, Tgrt As String, Reslt As String
Dim i As Long, j As Long, p As Long
Set ws = Sheets("حفص")
LR = ws.Range("E" & Rows.Count).End(3).Row
Tgrt = ws.Range("L17")
Arr = ws.Range("C2:E" & LR).Value
ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 1))
For i = 1 To UBound(Arr, 1)
If Arr(i, 3) = Tgrt Then
p = p + 1
Tmp(p, 1) = Arr(i, 2) & Arr(i, 1)
Reslt = Reslt & "" & Tmp(p, 1)
End If
Next
ws.Range("I3") = Reslt
End Sub

 

[عبد الكبير نواري]

ماشاء الله عليك سيدي الفاضل جعل هذا العمل في ميزان حسناتكم