تعديل كود عرض في يوزر فورم

[Ahmed Saad 2017]

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

برجاء الافادة في تعديل هذا الكود لعرض عدد اعمده اكثر من الموجود بالكود حيث يتم عرض من عمود I حتي العمود L فقط   ..المطلوب فتح مساحة العرض في الفورم حتي العمود O

انتبه من فضلك .. مشاركة مكررة .. فقد تـــم بالفعل حذف المشاركة الأخرى

Private Sub kh_Startdle2()
Dim i As Integer, ii As Integer, e As Integer
With dlRng
    For i = 1 To .Rows.Count
        If IsNumeric(.Cells(i, 1)) Then
            ii = ii + 1
            e = IIf(Len(.Cells(i, 2)), 2, IIf(Len(.Cells(i, 4)), 4, IIf(Len(.Cells(i, 6)), 6, 8)))
            ReDim Preserve cAry(1 To ii)
            cAry(ii) = i & " " & e
        End If
    Next
End With
If ii Then kh_SContl 0
End Sub

 

نموذج للدليل المحاسبي 4 مستويات.xlsm

[Ahmed Saad 2017]

للرفع