المطلوب عمل ترقيم تلقائي في F7 عند كتابة بداية الترقيم في B3 وكتابة نهاية الترقيم في C3

[محمد زيدان2024]

المطلوب عمل ترقيم تلقائي في F7 عند كتابة بداية الترقيم في B3 وكتابة نهاية الترقيم في C3

New ورقة عمل Microsoft Excel (3).xlsx

[محمد هشام.]

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

جرب هدا 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim srcWS As Worksheet, début As Long, Fin As Long
    Dim a As Variant, b As Variant, i As Long
    
    Set srcWS = Me
    a = srcWS.[B3].Value
    b = srcWS.[C3].Value

    If Not Intersect(Target, srcWS.Range("B3:C3")) Is Nothing Then
        If a = "" Or b = "" Then Exit Sub
        
        If IsNumeric(a) And IsNumeric(b) Then
            début = a
            Fin = b
            
            If début <= Fin Then
             srcWS.Range("F7:F" & srcWS.Rows.Count).ClearContents 
                For i = début To Fin
                    srcWS.Cells(6 + i - début + 1, "F").Value = i
                Next i
            Else
       MsgBox _
       " بداية الترقيم يجب أن تكون أصغر أو تساوي نهاية الترقيم", vbExclamation, "خطأ في الإدخال"
     
            End If
        End If
    End If
End Sub

 بالمعادلات 

=IF(ROW(F7)-ROW($F$7)+$B$3<=$C$3, ROW(F7)-ROW($F$7)+$B$3, "")

ترقيم.xlsb

تم تعديل ديسمبر 2, 2024 بواسطه محمد هشام.

[محمد زيدان2024]

@محمد هشام.  مبدع ورائع الكود تمام . لكن المعادلة خطأ

[محمد هشام.]

27 دقائق مضت, محمد زيدان2024 said:

@محمد هشام.  مبدع ورائع الكود تمام . لكن المعادلة خطأ

المعادلة ليس بها أي خطأ أخي @محمد زيدان2024 ربما قمت بوضعها بشكل غير صحيح 

 

معادلة ترقيم.xlsx

[محمد زيدان2024]

كالعادة مبدع يا سادة @محمد هشام.