البحث في الموقع

السلام عليكم الكود التالي للترحيل يعمل بالطريقة المطلوبة وأريده ان يتكرر لعمل اكثر من كشف حساب وقد حاولت ولكن المحاولات لا تأتي بالنتيجة الصحيحة أرجو أن أكون قد أوضحت المطلوب والشكر مقدما لكل الأخوة في هذا المنتدى وخاصة لمن سيكتب الحل وفق الله الجميع لما يحب ويرضى التكرار سيكون لعدد = d رقم الحساب المطلوب الكشف له وهو هنا p كان في الخلية m204 والحساب التالي سيكون في الخلية v204 والذي بعده سيكون في ae204 وهكذا أي بعد 9 أعمدة من الذي قبله وكذلك الترحيل للحساب التالي بعد 9 أعمدة من أول خلية تم الترحيل لها في الحساب السابق فمثلا الصف الأول كان m208 وn208 إلى s208 اما الحساب الجديد فسيكون الصف الأول لبداية الترحيل يبدء من v208 Application.ScreenUpdating = False Sheets("الرواتب").Select Dim d, a, b, s, p, k, m, c, e As Integer d = Range("f7", Range("f7").End(xlDown)).Count a = 13 b = 19 For i = 1 To d Range(Cells(208, a), Cells(450, b)).ClearContents a = a + 9 b = b + 9 Next i dat1 = Sheets("الرواتب").Range("e1").Value ' شهر البداية dat2 = Sheets("الرواتب").Range("e2").Value ' شهر النهاية rng1 = Sheets("قيوداليومية").Range("m11").Value 'عدد الادخالات موجودة في هذه الخانة s = 208 p = 13 'x = Sheets("الرواتب").Range("m204").Value ' رقم الحساب المطلوب الكشف له x = Cells(204, p).Value ' رقم الحساب المطلوب الكشف له For i = 6 To rng1 + 6 ' ستة لأن البيانات في قيود اليومية من السطر السادس x1 = Sheets("قيوداليومية").Cells(i, 3).Value date9 = Sheets("قيوداليومية").Cells(i, 5).Value ' تاريخ الحساب المتواجد في جدول القيود If x <> x1 Then GoTo out1 If dat1 > date9 Then GoTo out1 ' اذا التاريخ أكبر من التاريخ الأعلى لا تنفذ If dat2 < date9 Then GoTo out1 ' اذا التاريخ أصغر من التاريخ الأدنى لا تنفذ e = 4 c = 13 For m = 1 To 7 Sheets("الرواتب").Cells(s, c).Value = Sheets("قيوداليومية").Cells(i, e).Value e = e + 1 c = c + 1 Next m s = s + 1 out1: Next i Application.ScreenUpdating = True End Sub