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

[ابوحمزه المصرى]

{Sub شكلبيضاوي2_Click()

Application.ScreenUpdating = False
 Dim i, LR
    LR = ورقة13.Range("B" & Rows.Count).End(xlUp).Row
       For i = 8 To LR
          ورقة13.Cells(i, "B").Resize(1, 7).Copy
           RawData.Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
           RawData.Range("A" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("C4")
           RawData.Range("B" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("I4")
           RawData.Range("C" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("I5")
           RawData.Range("D" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("C5")
           RawData.Range("E" & Rows.Count).End(xlUp).Offset(1) = "فاتورة"

       Next
Range("A8:H27").SpecialCells(xlCellTypeConstants).ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
{End Sub

 كشف حساب جديد2.rar

تم تعديل أغسطس 30, 2015 بواسطه صلاح المصرى

[ياسر خليل أبو البراء]

موضوع غير مقبول شكلاً وموضوعاً

راجع التوجيهات بارك الله فيك

[ابوحمزه المصرى]

ارجوا حذف الموضوع مادام غير مقبول شكلاً وموضوعاً

[ياسر خليل أبو البراء]

أخي الكريم

هل اطلعت على التوجيهات

يوضع الكود بين أقواس الكود

يذكر ما المطلوب من الموضوع بعنوان معبر وليس عنوان عام .. مثال : شرح لكود الترحيل لكشف حساب جديد (مجرد مثال)

في الرد الأول لم يكن هناك مرفق ..

 

[خالد الرشيدى]

اخى الكريم

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

وتزكير       استاذنا ومشرفنا الحبيب ياسر خليل     حضرتك بها امر لا يضايقك فى شئ  ..عموماً بالمرفق ستجد شرح الكود .. ولاستخدام الحلقات بالكود

اليك تزكير بها

     

 كشف حساب جديد2.rar

خالص تحياتى

 

تم تعديل أغسطس 31, 2015 بواسطه خالد الرشيدى

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي خالد المحترم:

شكراً جزيلاً على أسلوب الشرح الرائع والمتسلسل ..

جزاكم الله خيراً.

 

[خالد الرشيدى]

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

 لكم يسعدنى دائماً مرور حضرتك بعباراتة الطيبة ... جزاك الله خيراً

                       شكراً جزيلاً لك

                   

[قصي]

شكرا لكم

[ابوحمزه المصرى]

شكرا جزيلا لك اخى خالد الرشيدى انا لم اغضب من الاخ الحبيب ياسر خليل بالعكس فأنا اراه مثلى الاعلى لكن اريد حذف الموضوع الغير المقبول بشكل عام .

يسعدنى مجهودكم الطيب ... جزاكم الله خير ووفقكم 

[فايز ياسين]

 الاخ خالد الرشبدي والاخ محمد حسن

الله يعطيكم العافية والصحة وادامكم اللة عونا للجميع ووسع صدوركم زيادة وزيادة

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

لمجهودكم وان لم يستفد من الشروحات صاحب الطلب فهناك الكثيرمن يستفيديون

وانما تعتبر االحلول التي لا توافق صاحب الطلب حلولا عند غيرهم واثرائا للموضوع

وان هذا المنتدى هو للتعلم بالدرجة الاولى وليس تقديم مساعدة لشخص معين والمساعدة  

موجهة له فقط فهيه للجميع

ودمتم بود ورزقم الله محبة الجميع