كود تصدير للوورط بحاجة الى اصلاح

Alaa Ammar New · فبراير 13

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

argument not optional

الكود هو

Public Property Get n() As Worksheet: Set n = Worksheets("WordCopy")
End Property
   Sub Copy_Transfer_WORD1()
    Dim arr() As String: Dim Cnt() As String
    Dim lastRow As Long: Dim rngA As Variant: Dim rngB As Variant
    Dim OneRng As Range: Dim tmp As Range: Dim Ary As Variant
    Dim i As Long:   Dim r As Integer: Dim x As Long: Dim j As Range

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Set WS = Worksheets("Sheet1")

    Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name)
    If Msg <> vbYes Then Exit Sub

    n.Visible = xlSheetVisible: n.Cells.UnMerge
    n.Range("A1:J" & n.Rows.Count).Clear
    lige = 7
    lastRow = WS.Range("A" & WS.Rows.Count).End(xlUp).Row
    Cnt() = Split("I-H,J-I", ",")
    rngA = Array(1, 3, 4, 5, 6, 7, 😎
    rngB = Array(1, 2, 3, 4, 5, 6, 7)
    For i = 0 To UBound(rngA)
        With WS
            Set OneRng = .Range(.Cells(lige, _
            rngA(i)), .Cells(lastRow, rngA(i))).SpecialCells(xlCellTypeVisible)
            OneRng.Copy
            n.Cells(1, _
            rngB(i)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End With
    Next i
      For r = 0 To UBound(Cnt): arr = Split(Cnt(r), "-")
WS.Range(arr(0) & "8:" & arr(0) & lastRow).Copy Destination:=n.Cells(2, arr(1))
Next r
lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row
Set tmp = n.Range("A1:J" & n.Rows.Count)
Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr)
   a.RowHeight = 75: a.Font.Bold = True: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14: d.Font.Size = 24
   d.Merge: d.Interior.Color = RGB(192, 192, 192): n.[A2:I2].Interior.Color = RGB(215, 238, 247)
With E
.Font.Name = "AdvertisingBold": .Font.Size = 13
    .WrapText = True: .MergeCells = False
End With
F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column
n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin
    Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15)
        For x = 0 To UBound(Ary)
        n.Columns(x + 1).ColumnWidth = Ary(x)
Next x
Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp))
For Each j In Irow.Rows
        If j.RowHeight < 20 Then: j.RowHeight = 35: Else j.EntireRow.AutoFit
Next
With tmp
.EntireColumn.HorizontalAlignment = xlCenter
.EntireColumn.VerticalAlignment = xlCenter
End With
With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row)
    .Value = Evaluate("ROW(" & .Address & ")-2")
End With
WS.Activate: ExcelToWordSheet1
n.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub Copy_Transfer_WORD()
    Dim WS As Worksheet
    Dim Rng As Range, j As Range, Irow As Range
    Dim x As Long, r As Long, lastRow As Long
    Dim i As Integer, Ary As Variant
    Dim Cnt() As String
    Dim arr() As String

    Set WS = Sheets("الانشطة")
    lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name)
    If Msg <> vbYes Then Exit Sub

    n.Visible = xlSheetVisible: n.Cells.UnMerge
    Set tmp = n.Range("A1:l" & n.Rows.Count)
    Cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear
    For i = 0 To UBound(Cnt)
          arr = Split(Cnt(i), "-")
    Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp)
    WS.Range(arr(0) & "4:" & arr(0) & lastRow).Copy Destination:=Rng
Next i
rngA = Split("C", ","): rngB = Split("B", ",")
For i = LBound(rngA) To UBound(rngA)
WS.Range(rngA(i) & "4:" & rngA(i) & lastRow).Copy
With n.Range(rngB(i) & "1")
    .PasteSpecial Paste:=xlPasteValues
     Application.CutCopyMode = False
End With
Next i
n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete
lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row
Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr)
    a.RowHeight = 75: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14
    d.Merge: d.Interior.Color = RGB(192, 192, 192)
    n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge
    E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13
F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1
    n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin

    Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15)
        For x = 0 To UBound(Ary)
        n.Columns(x + 1).ColumnWidth = Ary(x)
Next x
Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp))
For Each j In Irow.Rows
        If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit
Next
n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd"
n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter
n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter
With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row)
    .Value = Evaluate("ROW(" & .Address & ")-2")
End With
WS.Activate: ExcelToWordSheet1
n.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub testCopy() 'Sheets("تكافؤ الفرص")
Dim tmp As Range
    Dim WS As Worksheet: Set WS = Sheets("تكافؤ الفرص")
Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name)
    If Msg <> vbYes Then Exit Sub

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    n.Visible = xlSheetVisible: n.Cells.UnMerge: n.Cells.Clear
lastRow = WS.Columns("A:H").Find(What:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

       rngA = Split("A,B,C,D,E,F,G,H", ",")
       rngB = Split("A,B,C,D,E,F,G,H", ",")

       For i = LBound(rngA) To UBound(rngA)
           WS.Range(rngA(i) & "1:" & rngA(i) & lastRow).Copy
               n.Range(rngB(i) & "1").PasteSpecial Paste:=xlPasteValues
       Next i
Application.CutCopyMode = False
Dim Ary As Variant, j As Range, Irow As Range, x As Long
lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row
n.Range("B4:C4").Merge: n.Range("B3:C3").Merge: n.Range("D3:D4").Merge
n.Range("E3:E4").Merge: n.Range("F3:f4").Merge: n.Range("H3:H4").Merge
Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:H1]
Set Y = n.[A2:H2]: Set E = n.Range("A3:H" & lr)
    a.RowHeight = 40: b.RowHeight = 40: a.Font.Size = 24: a.Font.Bold = True: b.Font.Size = 24
    b.Font.Bold = True: E.Font.Size = 13
    d.Merge: d.Interior.Color = RGB(192, 192, 192): d.Font.Size = 24
    Y.Merge: Y.Interior.Color = RGB(192, 192, 192)
    n.[A3:H4].Interior.Color = RGB(215, 238, 247): n.[A3:H4].RowHeight = 27
    n.[A3:H4].Font.Bold = True: n.[A3:H4].Font.Size = 14

With n.Range("A5:h" & lr)
.RowHeight = 70
    .WrapText = True
    .MergeCells = False
End With
F = n.Cells(3, n.Columns.Count).End(xlToLeft).Column
    n.Range(n.Cells(3, 1), n.Cells(lr, F)).Borders.Weight = xlThin
Ary = Array(55, 5, 18, 28, 18, 18, 28, 25)
        For x = 0 To UBound(Ary)
        n.Columns(x + 1).ColumnWidth = Ary(x)
Next x
n.Range("F5:F" & n.Rows.Count).NumberFormat = "yyyy/mm/dd"
n.Range("A:H").EntireColumn.HorizontalAlignment = xlCenter
n.Range("A:H").EntireColumn.VerticalAlignment = xlCenter
WS.Activate: ExcelToWordSheet2

n.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

الخطا يحدث في السطر البولد

رجاء المساعدة بالله عليكم

2025.xlsb

**ابو عارف** · فبراير 13

5 ساعات مضت, Alaa Ammar New said:

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

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

سبب المشكلة عدم وجود متغير tmp . hg و اليك الكود بعد تعديل

Sub Copy_Transfer_WORD()
    Dim WS As Worksheet
    Dim Rng As Range, j As Range, Irow As Range
    Dim x As Long, r As Long, lastRow As Long
    Dim i As Integer, Ary As Variant
    Dim Cnt()  As String
    Dim arr() As String
    Dim tmp As Range
    Set WS = Sheets("الانشطة")
    lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name)
    If Msg <> vbYes Then Exit Sub

    n.Visible = xlSheetVisible: n.Cells.UnMerge
    Set tmp = n.Range("A1:l" & n.Rows.Count)
    Cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear
    For i = 0 To UBound(Cnt)
          arr = Split(Cnt(i), "-")
    Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp)
    WS.Range(arr(0) & "4:" & arr(0) & lastRow).Copy Destination:=Rng
Next i
rngA = Split("C", ","): rngB = Split("B", ",")
For i = LBound(rngA) To UBound(rngA)
WS.Range(rngA(i) & "4:" & rngA(i) & lastRow).Copy
With n.Range(rngB(i) & "1")
    .PasteSpecial Paste:=xlPasteValues
     Application.CutCopyMode = False
End With
Next i
n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete
lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row
Set A = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr)
    A.RowHeight = 75: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14
    d.Merge: d.Interior.Color = RGB(192, 192, 192)
    n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge
    E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13
F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1
    n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin
    
    Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15)
        For x = 0 To UBound(Ary)
        n.Columns(x + 1).ColumnWidth = Ary(x)
 Next x
Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp))
For Each j In Irow.Rows
        If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit
  Next
  n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd"
  n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter
  n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter
With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row)
    .Value = Evaluate("ROW(" & .Address & ")-2")
End With
 WS.Activate: ExcelToWordSheet1
 n.Visible = xlSheetVeryHidden
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
 End Sub

تم تعديل فبراير 13 بواسطه ابو عارف

Alaa Ammar New · فبراير 14

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

كل سنة وحضرتك طيب أستاذي الكريم

حضرتك أنا بحاول افتح الأزرار كلها بتدي خطأ في الماكرو مع اني عامل تمكين للماكرو .... فبالله عليك سيدي الكريم انا رفعت لحضرتك الملف لالقاء نظرة عليه وعلى وظائف الأزرار في الشيتين (sheet1 - الأنشطة) لانه برضه من ساعة ماعملت كود الكيو ار كود وهو تقيل جدا فاأستسمح حضرتك تلقي نظرة عليه جزا الله حضرتك كل خير يارب العالمين أنا آسف جدا معرفي بالإكسل بسيطة ولاتقارن بعلمكم .. نفع الله بكم يارب العالمين

أنشطة 2025.xlsb

**ابو عارف** · السبت at 06:55

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

آخي الكريم ملفك فيه أكثر من مشكلة و أكبر ها إنشاء جميع كيو آر كود عند تغير اية خلية في شيت ولا يعطي مجال تغير بيانات

بحاول اساعدك على قدر مستطاع إن شاء الله

Alaa Ammar New · السبت at 18:34

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

افحصه وخد وقتك كما تشاء ربنا يحفظك يارب العالمين

**ابو عارف** · السبت at 20:04

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

أخي جرب التعديل انا جربت أزرار يعمل تماما في ورقتين ، و الماكرو كيو آركود خليتها يعمل عند ضغط على الزر الجديد Create Qrcode فقط متى ما شئت لا مع تحديث خلايا

انت جربه و اخبرني بنتيجة ان شاء الله اساعدك رغم خبرتي في اكسل قليلة لانني اعمل في اكسس أكثر من اكسل .

أنشطة 2025 (1).xlsb

Alaa Ammar New · الأحد at 08:02

حضرتك والله مش عارف اشكر حضرتك ازاي فعلا جزاك الله خير الجزاء يا رب العالمين ... الملف رائع جدا

معلش حضرتك هل ممكن اخلي الملف اللي هايتصدر ياخد نفس اسم العنوان اللي فوق؟ لاني ممكن اصدر اكتر من ملف فبيتنسخ overwrite على الملف اللي قبله او على الأقل يتسمى باليوم الساعة ولو ينفع يتفتح بعد التصدير للورد او البي دي اف او الاكسل لاني مش عارف الملف بيتصدر فين وحاليا بصدر بس مش لاقي الملف بيتصدر فين .. هو بيعمل فولدر ملفات وورد بس جواه فاضي فلو ينفع يتفتح بعد تصديره هو واكسل وبي دي اف وياخدو عنوان الملف علشان لو هصدر اكتر من ملف.

هو عمل اول مرة وبعدين معملش تاني .. هو بيدي رسالة انه عمل بس مش عارف عمل الملف فين؟

وكنت عايز اعرف بس طريقة عمل زرار الكيو ار كود

وهل اخفي العمود او احذفه Q ولا أخليه

ربنا يكرمك يا رب العالمين ويجعل عملك هذا في ميزان حسناتك يارب العالمين

تم تعديل الأحد at 09:14 بواسطه Alaa Ammar New

**ابو عارف** · الإثنين at 07:31

23 ساعات مضت, Alaa Ammar New said:

حضرتك والله مش عارف اشكر حضرتك ازاي فعلا جزاك الله خير الجزاء يا رب

الشكر لله و جزاك الله

23 ساعات مضت, Alaa Ammar New said:

هو عمل اول مرة وبعدين معملش تاني .. هو بيدي رسالة انه عمل بس مش عارف عمل الملف فين؟

هو نفس ملف يبدل القديم على الجديد و في تعدديل جديد تم اضافة تاريخ و الوقت تصدير الى اسم الملف يصدر كل ملف على اسم مختلف الا تصدير ملفين في نفس دقيقة، باضافة تعديل فتح ملف بعدد تصدير

23 ساعات مضت, Alaa Ammar New said:

وهل اخفي العمود او احذفه Q ولا أخليه

احذفت عمود Q و لا حاجة له لان كيو آر كود يأخذ رابط من حقل (رابط يوتيوب)

أنشطة 2025 (A).xlsb

Alaa Ammar New · الإثنين at 19:54

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

أستاذي القدير @ابو عارف .. أرجوك اعذرني لطمعي الشديد في كرمك جعله الله في ميزان حسناتك يارب العالمين

ملف تصدير الاكسل يعمل بشكل رائع أستاذي

لقد جربت الملف ككل بس لقيت فيه الملحوظات الآتية

في sheet 1

الجدول مش متسطر الا لحاد 18 فبراير ... فهل اكمل تسطيره عادي؟ ولا الكود هايقف لحاد كده

عند تصدير الوورد لا يأخذ العنوان أعلى الجدول

زر تصدير الpdf لا يعمل في الشيتين

عند التصدير للورد او الاكسل الملف المصدر يظل محتفظ بالأسطر الفارغة فهل ممكن يقف عند نهاية التاريخ اللي تم وضعه في خانة "إلى"

الqrcode عندما وضعت رابط يوتيوب في صف جديد وضغطت عالزرار بياخد من الرابط اللي في الصف اللي فوق، فهل ممكن اخليه مفتوح بحيث اي صف انزله ياعمل الكيو ار كود من رابط اليتيوب اللي فيه؟ أي في عامود ال i ؟

زرار التصفية اللي بجانب المفتاح لا يستجيب عند كتابة اي مفتاح كلمة

الأزرار كلها في شيت الأنشطة اللي جنبه لا تعمل

سؤال أخير حضرتك ... هل لو النت قطع ... هل صور الكيو ار كود هاتختفي ؟ وياريت حضرتك تظهر في الملفات المصدرة الوورد والاكسل والبي دي اف ف الشيتين

أعرف أني أثقلت عليك ولكني طمع في الله ثم في كرم حضرتك فبالله عليك لا تزعل مني ربنا يبارك لحضرتك يارب ويحفظك بحفظ القرآن

تم تعديل الإثنين at 20:24 بواسطه Alaa Ammar New

Alaa Ammar New · الثلاثاء at 07:15

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

والجدول حتى 18/2/2025 فقط وكنت عايزة ممتد لحوالي 600 صفلان في فعاليات طول السنة بحطها وبضيفها على الجدول

وبالنسبة للكيو اركود لا يعمل للرابط اللي جنبه هو يعمل فققط للرابط اللي فوقيه

جزاك الله كل خير يا رب العالمين وانا والله انا مكسوف جدا من حضرتك ولكن كلي عشم في كرم حضرتك والله العظيم بعد الله عز وجل حضرتك ربنا أرسلك ليا لمساعدتي ربنا يجازيك خير الجزاء يا رب

تم تعديل الثلاثاء at 07:36 بواسطه Alaa Ammar New

**ابو عارف** · الثلاثاء at 20:51

13 ساعات مضت, Alaa Ammar New said:

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

عندي انا يعمل 100%

13 ساعات مضت, Alaa Ammar New said:

والجدول حتى 18/2/2025 فقط وكنت عايزة ممتد لحوالي 600 صفلان في فعاليات طول السنة بحطها وبضيفها على الجدول

في شيت الاول لا تعمل اي شيء البرنامج يعمل تسطير من تلقاء نفسه مع بدء كتابة في صف جديد

عملت لك فلاتر اذا حبيت تصدير بين تاريخين ، اكتب تاريخين " من الى" ثم اضغط على زر فلتر

13 ساعات مضت, Alaa Ammar New said:

وبالنسبة للكيو اركود لا يعمل للرابط اللي جنبه هو يعمل فققط للرابط اللي فوقيه

ما فهمت قصك بضبط ، حاليا كيو آركود موجو في عمود M و نص كيوآركود من عمود I في نفس صف، و يعمل كماهو

على كل حال انت جرب المرفق و شوف نتيجة

أنشطة 2025 (A).xlsb

تم تعديل الثلاثاء at 21:02 بواسطه ابو عارف

**ابو عارف** · الثلاثاء at 21:02

13 ساعات مضت, Alaa Ammar New said:

والجدول حتى 18/2/2025 فقط وكنت عايزة ممتد لحوالي 600 صف

لا تقلق سيستمر مع اضافة بيانات

جرب التعديل الأعلى

تم تعديل الثلاثاء at 21:07 بواسطه ابو عارف

Alaa Ammar New · بالامس في 08:10

الملف أكثر من رائع بفضل الله ثم فضلك أستاذ القدير جزاك الله عني خير الجزاء يا رب العالمين حفظك الله يارب العالمين

واسمحلي سيدي ان واجهتني اي مشكلة مستقبلية في نفس الملف أن أعرضها في موضوع منفصل

متشكر جدا جدا جدا

**ابو عارف** · بالامس في 13:15

4 ساعات مضت, Alaa Ammar New said:

الملف أكثر من رائع بفضل الله

الحمد و الشكر لله

4 ساعات مضت, Alaa Ammar New said:

واسمحلي سيدي ان واجهتني اي مشكلة مستقبلية في نفس الملف أن أعرضها في موضوع منفصل

حياك الله اعرض نفس الملف او غيره شرط يكن متوافق شروط منتدى منهم عدم طلب مساعدة من شحص محدد و توضيح المطلوب بالمثال أو بصورة اذ امكن و عرض موضوع منفصلة لكل سؤال ، ستجد اجابتك بأسرع وقت إن شاء الله.

تسجيل الدخول

كود تصدير للوورط بحاجة الى اصلاح

الردود الموصى بها

Alaa Ammar New

ابو عارف

Alaa Ammar New

ابو عارف

Alaa Ammar New

ابو عارف

Alaa Ammar New

ابو عارف

Alaa Ammar New

Alaa Ammar New

ابو عارف

ابو عارف

Alaa Ammar New

ابو عارف

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information