ترقيم الجدول على اساس حدود الصفحة

[sabah2023]

السلام عليكم

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

ترقيم الورقة.xlsm

تم تعديل يوليو 9, 2023 بواسطه sabah2023

[محمد هشام.]

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

طلبك غير واضح بالنسبة لي  لاكن ربما بما ان عمود B  يتضمن دائما كلمة ( رقم القائمة) في اخر صف يمكنك الاعتماد عليها لترقيم الصفحات في عمود C

Sub Sequence()
Dim  k As Long
    With Sheets("الجدول")
        k = 1
        For Réf = 4 To .Range("B" & .Rows.Count).End(xlUp).Row
            If .Range("B" & Réf) = "رقم القائمة" Then
                .Range("C" & Réf) = k
                k = k + 1
            End If
        Next Réf
    End With
End Sub

 

 

ترقيم الورقة (1).xlsm

تم تعديل يوليو 11, 2023 بواسطه محمد هشام.

[sabah2023]

جزيت خير

هذا هو المقصود

تسلم