اذهب الي المحتوي
أوفيسنا

ترحيل فاتورة الي صفحه اخري.. لكن بدون اظهار الصفوف المخفيه


kh34d

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

السلام عليكم اخواني الكرام

عندي جدول/ فاتورة  اريد ان ارحلها الي صفحه اخري
المشكله انه به بعض الصفوف المخفيه........وعند الترحيل يتم اظهار تلك الصفوف بعد الترحيل....وانا اريد ان تظل مخفيه؟؟

هل هناك كود معين لعمل ذلك؟ ...وشكرا

رابط هذا التعليق
شارك

وعليكم السلام أخي الكريم

أهلاً بك في المنتدى ..

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

رابط هذا التعليق
شارك

بارك الله فيك وشكرا علي ردك

في الواقع انا  لا اريد للصفوف المخفيه ان يتم ترحيلها (لانها فارغه)

لاعتقادي بان الصفحة المرحل لها كبيره فقد تعدت 6000 سطر ...مما يجعل الملف ثقيل ..وصل حجمه الي 2 ميجا

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

فالمطلوب عندما ارحل الفاتورة( بها اسطر مملوءه ....واسطر اخري فارغه مخفيه) ان يتم ترحيل الفاتورة بالاسطر المملوءة فقط ولا تظهر الاسطر الفارغه المخفيه

المراد تطبيقه.PNG

الشكل الخطأ.PNG

رابط هذا التعليق
شارك

2 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم

أهلاً بك في المنتدى ..

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

 

منذ ساعه, ياسر خليل أبو البراء said:

لا يوجد ملف مرفق في مشاركتك أخي الكريم

قم بضغط الملف ثم رفعه في المنتدى لتجد استجاية أفضل

للاسف مش هاعرف ارفعه علي المنتدي في الوقت الحالي

لان الملف كبير وعليه شغل كتير ومتفرع ...فاهمني حضرتك

منذ ساعه, عبدالبديع said:

اخى الكريم 

 بعد عمل الاخفاء للصفوف التى تريد عدم ظهورها قم بتحديد الفاتورة المراد ترحيلها ثم اضغط alt+ ; او بالعربى alt+ك ثم copy ثم past 

بالتوفيق ان شاء الله

شكرا علي الرد انا مش عايز الطريقه اليدوي ..انا عايز كود vba لاجعله داخل الماكرو  ويتم الترحيل اتوماتيك

رابط هذا التعليق
شارك

استاذ ياسر 

هذا هو الكود الذي استخدمه لترحيل بيانات الفاتوره من صفحة الفاتورة الي صفحة الفواتير المجمعه ( كود حفظ الفاتورة)

 

Sub AutoShape138_Click()

Sheets("invoice").Activate

Application.ScreenUpdating = False

Sheets("invoice").Unprotect ("11")

 If Range("d7,d10") <> "" Then

    Range("a5:m27").Select

    ActiveWindow.SmallScroll Down:=-27

    Selection.Copy

    Sheets("recycle").Select

    ActiveWindow.View = xlNormalView

    ActiveWindow.SmallScroll Down:=-15

    Range("a3").Select

    Selection.Insert Shift:=xlDown

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

        

    Sheets("invoice").Activate

    Range("b26").Select

      Range("d10:d24,d7").ClearContents

Range("d5").Value = Range("d5").Value + 1

    MsgBox تم حفظ الفاتورة بنجاح", vbInformation + vbMsgBoxRight, "الحمد لله"

 

 Dim ring As Range

Set ring = Range("d10:d25")

For Each cell In ring

If cell.Value = "" Then

cell.EntireRow.Hidden = False

End If

Next cell

Else

MsgBox " من فضلك ادخل بيانات الفاتورة اولا", vbInformation + vbMsgBoxRight, "تنبية"

End If

Sheets("invoice").Protect ("11")

Application.ScreenUpdating = True

End Sub

 

 

هذا الكود ينسخ بيانات الفاتورة كما هي ثم يقوم بمسح بيانات الفاتورة الاصليه لتسجيل الفاتوره الجديده

وقبل ذلك فانا عامل (مكرو للطباعه) يقوم  اولا باخفاء الصفوف الفارغه في الفاتورة قبل طبعها....

ثم استخدم (ماكرو الحفظ السابق) ثانيا لترحيل الفاتورة ثم اظهار الصفوف الفارغه مره اخره بالفاتورة الاصليه

المشكله تكون عند الترحيل بهذا الكود ...تظهر الصفوف المخفيه في صفحة الفواتير المجمعه ...وانا لا اريد ان تظهر تلك الصفوف الفارغه المخفيه

ارجوا ان اكون شرحت المشكله شرحا وافيا بدلا من ارفاق الملف

وشكرا لمجهودكم في حل مشاكل الاعضاء

رابط هذا التعليق
شارك

حيث انك لم ترفع اي ملف للمعالجة

 فقد كونت لك ملفاً يسيطاً كنموذج للتعامل 

تستطيع ان تعدل الماكرو داخله كما تريد

البيانات الاساسية في الورقة1 

البيانات المنقولة في الورقة2

 

copy_visible.rar

رابط هذا التعليق
شارك

 

9 ساعات مضت, سليم حاصبيا said:

حيث انك لم ترفع اي ملف للمعالجة

 فقد كونت لك ملفاً يسيطاً كنموذج للتعامل 

تستطيع ان تعدل الماكرو داخله كما تريد

البيانات الاساسية في الورقة1 

البيانات المنقولة في الورقة2

 

copy_visible.rar

شكرا لك استاذي..

ولكن هناك بعض التعديلات بعد اذنك. 

الأول..

هذا الكود مسح الفواتير المجمعه ووضع الفاتورةالجديده مكانهم. 

أريد أن يتم وضع الفاتورة فوق آخر فاتوره في  الصفحه المنقول إليها بنفس البيانات والتنسيق.

ثانيا..

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

ملاحظات.. 

اسم شيت الفاتورة هو invoice 

اسم شيت الفواتير المجمعه هو recycle 

المدى المراد نسخه(الفاتورة) هو a5:m27

سيتم نسخ الفاتوره إلى الخليه a3 في شيت الفواتير المجمعه

وشكرا مقدما على تعبك معايا

تحياتي 

رابط هذا التعليق
شارك

أولاً  -ما ذكرته في الرد على الاخ ياسر ابو البراءء:  "وفي نفس الوقت لا اريد ان احذفها من الفاتورة الاصليه كي املئها مرة اخري بعد ذلك"

لماذا تقم بتغيير رأيك

ثانياً-لا احد يتشتري سمكاً في البحر ولا يمكن التخمين في هذا الامر

ثالثاُ- ارفع  ملفاً وهمياً عما تريد  (فقط ثلاثة او اربع فواتير اي حوالي 20 سطر   لا أريد الملف الاصلي فقط ملف مشابه   ولا اريد صورة لانه لا يمكن التعامل مع الصور)

رابط هذا التعليق
شارك

3 دقائق مضت, سليم حاصبيا said:

أولاً  -ما ذكرته في الرد على الاخ ياسر ابو البراءء:  "وفي نفس الوقت لا اريد ان احذفها من الفاتورة الاصليه كي املئها مرة اخري بعد ذلك"

لماذا تقم بتغيير رأيك

ثانياً-لا احد يتشتري سمكاً في البحر ولا يمكن التخمين في هذا الامر

ثالثاُ- ارفع  ملفاً وهمياً عما تريد  (فقط ثلاثة او اربع فواتير اي حوالي 20 سطر   لا أريد الملف الاصلي فقط ملف مشابه   ولا اريد صورة لانه لا يمكن التعامل مع الصور)

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

لكن ما كنت اقصده بكلامي إليك شيئ آخر وهو حذف الصفوف الفارغه بعد ترحيلها وليس في الفاتورة الاصليه

 

بالنسبه لعمل ملف وهمي... سأقوم بعمله وارفعه لحضرتك . 

رابط هذا التعليق
شارك

2 دقائق مضت, kh34d said:

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

لكن ما كنت اقصده بكلامي إليك شيئ آخر وهو حذف الصفوف الفارغه بعد ترحيلها وليس في الفاتورة الاصليه

 

بالنسبه لعمل ملف وهمي... سأقوم بعمله وارفعه لحضرتك . 

الصفوف الفارغه لا يتم ترحيلها الى الصفحة الثانية كي يتم حذفها

رابط هذا التعليق
شارك

47 دقائق مضت, سليم حاصبيا said:

الصفوف الفارغه لا يتم ترحيلها الى الصفحة الثانية كي يتم حذفها

هذا هو الملف استاذي

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

Book10.rar

تم تعديل بواسطه kh34d
رابط هذا التعليق
شارك

في 8/16/2017 at 14:19, ياسر خليل أبو البراء said:

لا يوجد ملف مرفق في مشاركتك أخي الكريم

قم بضغط الملف ثم رفعه في المنتدى لتجد استجاية أفضل

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

انا رفعت ملف كمثال للمطلوب ...

يا ريت الرد بعد اذنك... وشكرا لك

رابط هذا التعليق
شارك

11 دقائق مضت, سليم حاصبيا said:

جرب هذا الكود

عذراً بم اسنطع نحميل الكود بسبب بطء النت

 

الملف مرفق

 

Copy_Invoices.rar

شكرا لك...  سأحاول 

للأسف ليس هذا هو المطلوب... كما أني عندما ضغطت على run لا يعمل...  تركته فتره طويله ولا يتوقف عن التنفيذ (ساعه رمليه ) 

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

تم تعديل بواسطه kh34d
رابط هذا التعليق
شارك

انا كنت ارفقت الكود اللي انا شغال بيه في المشاركه رقم 7

هو شغال كويس... يا ريت حضرتك تشوف طريقه النسخ أو الترحيل اللي انا اقصدها.

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

رابط هذا التعليق
شارك

ممكن علشان انا مسحت ال 3 فواتير اللي في الصفحه التانيه... لكي اجرب

انا عارف ان حضرتك تعبت في هذا الكود الطويل... لكن ليس هذا ما اقصده

حضرتك قريت كلامي السابق؟؟ 

تم تعديل بواسطه kh34d
رابط هذا التعليق
شارك

8 ساعات مضت, kh34d said:

ممكن علشان انا مسحت ال 3 فواتير اللي في الصفحه التانيه... لكي اجرب

انا عارف ان حضرتك تعبت في هذا الكود الطويل... لكن ليس هذا ما اقصده

حضرتك قريت كلامي السابق؟؟ 

يا أخي:

لماذا لا تريد ان تصدق ان الكود يقوم ينسخ الخلايا المرئية فقط من الشيت recycle ,وينقلها الى الشيت invoice

وذ لك بفضل ما هو  باللون الاحمر في هذه 3 أسطر من الكود

Worksheets("recycle").Range("a" & arr(x) & ":f" & arr2(x)).SpecialCells(xlCellTypeVisible).Copy
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteValues
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteFormats

الصفحة الاساسية :recycle

الصفحة المنقول اليها:invoice

استبدل الكود بهذا كي لا تظهر( الساعة الرملية)

اذا لم يكن في احد الفواتير "فاتورة مبيعات رقم" او "الاجمالي" فإن الكود يمسح البيانات من ورقة invoice

و يتوقف عن العمل

Option Explicit
Sub Test_Me()
    Dim rngFind As Range
    Dim strFindMe$
    Dim r%, r1%, x%, last_row%, k%, rr%
    Dim arr(), arr2()
    k = 1
    last_row = 1
        With Application
            .ScreenUpdating = False
            .Calculation = xlCalculationManual
        End With
    On Error Resume Next
    Sheets("invoice").Cells.Clear
   strFindMe = "فاتورة مبيعات رقم"
    With Worksheets("recycle").Range("c:c")
        Set rngFind = .Find(what:=strFindMe, LookIn:=xlValues)
        If Not rngFind Is Nothing Then
            r = rngFind.Row
         
         ReDim Preserve arr(1 To k)
         arr(k) = r
            Do Until r = r1
          Set rngFind = .FindNext(rngFind)
              r1 = rngFind.Row
              k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = r1
            Loop
        End If
        ReDim Preserve arr(1 To k - 1)
    End With
     If r = 0 Then GoTo 1
'============================================
k = 1
r1 = 0: r = 0
 strFindMe = "الاجمالي"
With Worksheets("recycle").Range("a:f")
        Set rngFind = .Find(what:=strFindMe, LookIn:=xlValues)
        If Not rngFind Is Nothing Then
                    rr = rngFind.Row
         ReDim Preserve arr2(1 To k)
         arr2(k) = rr
            Do Until r1 = rr
          Set rngFind = .FindNext(rngFind)
              r1 = rngFind.Row
              k = k + 1
            ReDim Preserve arr2(1 To k)
            arr2(k) = r1
            Loop
        End If
        ReDim Preserve arr2(1 To k - 1)
    End With
       If rr = 0 Then GoTo 1
       If UBound(arr) <> UBound(arr2) Then GoTo 1
'============================================
 For x = UBound(arr) To LBound(arr) Step -1
 
 Worksheets("recycle").Range("a" & arr(x) & ":f" & arr2(x)).SpecialCells(xlCellTypeVisible).Copy
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteValues
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteFormats
 last_row = Sheets("invoice").Cells(Rows.Count, 1).End(3).Row + 2

 Next
1:
Erase arr: Erase arr2: Set rngFind = Nothing: strFindMe$ = vbNullString
 With Application
            .ScreenUpdating = True
            .Calculation = xlCalculationAutomatic
            .CutCopyMode = False
        End With
End Sub

الملف مرفق

Copy_Invoices Corriger.rar

  • Like 1
رابط هذا التعليق
شارك

3 ساعات مضت, سليم حاصبيا said:

يا أخي:

لماذا لا تريد ان تصدق ان الكود يقوم ينسخ الخلايا المرئية فقط من الشيت recycle ,وينقلها الى الشيت invoice

وذ لك بفضل ما هو  باللون الاحمر في هذه 3 أسطر من الكود

Worksheets("recycle").Range("a" & arr(x) & ":f" & arr2(x)).SpecialCells(xlCellTypeVisible).Copy
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteValues
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteFormats

الصفحة الاساسية :recycle

الصفحة المنقول اليها:invoice

استبدل الكود بهذا كي لا تظهر( الساعة الرملية)

اذا لم يكن في احد الفواتير "فاتورة مبيعات رقم" او "الاجمالي" فإن الكود يمسح البيانات من ورقة invoice

و يتوقف عن العمل


Option Explicit
Sub Test_Me()
    Dim rngFind As Range
    Dim strFindMe$
    Dim r%, r1%, x%, last_row%, k%, rr%
    Dim arr(), arr2()
    k = 1
    last_row = 1
        With Application
            .ScreenUpdating = False
            .Calculation = xlCalculationManual
        End With
    On Error Resume Next
    Sheets("invoice").Cells.Clear
   strFindMe = "فاتورة مبيعات رقم"
    With Worksheets("recycle").Range("c:c")
        Set rngFind = .Find(what:=strFindMe, LookIn:=xlValues)
        If Not rngFind Is Nothing Then
            r = rngFind.Row
         
         ReDim Preserve arr(1 To k)
         arr(k) = r
            Do Until r = r1
          Set rngFind = .FindNext(rngFind)
              r1 = rngFind.Row
              k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = r1
            Loop
        End If
        ReDim Preserve arr(1 To k - 1)
    End With
     If r = 0 Then GoTo 1
'============================================
k = 1
r1 = 0: r = 0
 strFindMe = "الاجمالي"
With Worksheets("recycle").Range("a:f")
        Set rngFind = .Find(what:=strFindMe, LookIn:=xlValues)
        If Not rngFind Is Nothing Then
                    rr = rngFind.Row
         ReDim Preserve arr2(1 To k)
         arr2(k) = rr
            Do Until r1 = rr
          Set rngFind = .FindNext(rngFind)
              r1 = rngFind.Row
              k = k + 1
            ReDim Preserve arr2(1 To k)
            arr2(k) = r1
            Loop
        End If
        ReDim Preserve arr2(1 To k - 1)
    End With
       If rr = 0 Then GoTo 1
       If UBound(arr) <> UBound(arr2) Then GoTo 1
'============================================
 For x = UBound(arr) To LBound(arr) Step -1
 
 Worksheets("recycle").Range("a" & arr(x) & ":f" & arr2(x)).SpecialCells(xlCellTypeVisible).Copy
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteValues
 Sheets("invoice").Range("a" & last_row).PasteSpecial Paste:=xlPasteFormats
 last_row = Sheets("invoice").Cells(Rows.Count, 1).End(3).Row + 2

 Next
1:
Erase arr: Erase arr2: Set rngFind = Nothing: strFindMe$ = vbNullString
 With Application
            .ScreenUpdating = True
            .Calculation = xlCalculationAutomatic
            .CutCopyMode = False
        End With
End Sub

الملف مرفق

Copy_Invoices Corriger.rar

بارك الله فيك اخي الكريم

انا لم اشكك في علمك او قدرتك في عمل اي كود......ولكننا نتناقش سويا حتي نصل الي الهدف المطلوب

وارجوا ان يتسع صدرك حتي يكون العمل علي اكمل وجه ..واجرك علي الله باذن الله

الملاحظات:-

اولا:-

انا فهمت ان اول مشكله هي ان حضرتك قمت بعكس الاوراق

invoce هي الورقه الاساسيه

recycle هي الورقه الثانيه >>>>>>>المنقول اليها ...تجمع فيها كل الفواتير ( الفاتورة الجديدة فوق الفواتير القديمه)

 

ثانيا :-

المطلوب ان يكون في الورقه الاساسيه ((((( فاتورة واحده فقط))))) لا يوجد غيرها في الورقه ...وهذا غير موجود في ملف حضرتك بل تشرط  انا اضع اكذا فاتورة لترحلها

وعند عمل فاتورة في الورقه الاساسيه (اقوم بملئها ثم ترحيها ثم حذف بياناتها  حتي اصدار فاتورة جديدة) كل ذلك من خلال نفس الكود.

وانا سوف اقوم ببعض الزيادات علي الكود ( مثل ذيادة رقم الفاتورة تلقائيا في الورقه الاساسيه بعد ترحيلها وحذف بياناتها وحماية الورقه  وغيرها من بعض الاضافات)

ثالثا :-

ارجو مسح هذا الشرط (

اذا لم يكن في احد الفواتير "فاتورة مبيعات رقم" او "الاجمالي" فإن الكود يمسح البيانات من ورقة invoice

و يتوقف عن العمل)

رابعا:-

الكود يعمل بالفعل ولكن ينقصه بعد التعديلات كما ذكرت ....ولم يعمل قبل ذلك لاني مسحت الفاتوره المراد ترحيلها( لظني بعدم عكس الاوراق)

ارجوا ان اكون أوضحت اكثر من كل مره

 

تم تعديل بواسطه kh34d
رابط هذا التعليق
شارك

أخي الكريم صاحب الموضوع .. وبعد إذن أخي العزيز سليم

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

وقد ذكرت من قبل مراراً وتكراراً أن التخمين غير مقبول ولا أحبذ العمل على التخمين لأنه مضيعة للوقت

إذا كان الملف شخصي قم بنسخ الملف الأصلي واستبدل البيانات الأصلية ببيانات وهمية ....

لذا أوصي بطرح موضوع جديد يكون مكتمل الأركان .. والرجاء ألا يكون في صدرك شيء مني فأنا أحاول أن أحافظ على وقت الجميع ومصلحة الجميع ...

والرجاء الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لتعرف كيفية الاستخدام الأمثل للمنتدى

تقبلوا وافر تقديري واحترامي

رابط هذا التعليق
شارك

35 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم صاحب الموضوع .. وبعد إذن أخي العزيز سليم

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

وقد ذكرت من قبل مراراً وتكراراً أن التخمين غير مقبول ولا أحبذ العمل على التخمين لأنه مضيعة للوقت

إذا كان الملف شخصي قم بنسخ الملف الأصلي واستبدل البيانات الأصلية ببيانات وهمية ....

لذا أوصي بطرح موضوع جديد يكون مكتمل الأركان .. والرجاء ألا يكون في صدرك شيء مني فأنا أحاول أن أحافظ على وقت الجميع ومصلحة الجميع ...

والرجاء الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لتعرف كيفية الاستخدام الأمثل للمنتدى

تقبلوا وافر تقديري واحترامي

اخي الكريم  ياسر انت رجل محترم وكذلك الاخ سليم

انا بالفعل ارفقت ملف وعملت لحضرتك منشن عليه

ولكن ما حذث هو سوء فهم حدث بيني وبين الاخ سليم ولم يفهمني جيدا

ولذلك هناك تعديلات دائما وليس تغير في رائي

واللي في الصالح حضرتك قولي عليه ...وان كان هو عمل موضوع جديد ليس هناك مانع

رابط هذا التعليق
شارك

أعتذر إليك أخي الكريم لأني لم ألاحظ الملف المرفق الذي أرفقته

حاول تضع بعض النتائج المتوقعة ليسهل فهم المطلوب .. أنا جربت آخر مرفق من قبل أخونا سليم ويعمل بشكل جيد

ما المشكلة التي تواجهك الآن؟

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information