اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

قام بنشر

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

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

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

قام بنشر

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

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

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

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

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

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

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

قام بنشر

اخى الكريم 

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

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

قام بنشر
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

 

 

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

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

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

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

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

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

قام بنشر (معدل)

مسح...

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

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

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

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

البيانات الاساسية في الورقة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