[حل شده] نشان دادن شماره سطر چندین Range در چندین سلول

[sabertb]

سلام
سوال من اینه که من قبلا با کمک دوستان تونسته بودم روش نشان دادن شماره سطر انتخاب شده در یک سلول انجام بدم به شکل زیر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (Application.Intersect(ActiveCell, Range("rng").Cells) Is Nothing) Then _
    Call UpdateAfterAction
End Sub 

Sub UpdateAfterAction()
    Dim topRow As Integer
    
    topRow = Range("rng").Cells(1, 1).Row
    [selectrow] = ActiveCell.Row() - topRow + 1
End Sub 

حالا می خوام چندتا rng براش تعریف کنم با اسم های rngpl و rngip و rngl و در هرکدون از این range ها شماره سطر انتخاب شده رو در سلول مورد نظرم بنویسه
در واقع وقتی من 4 تا Range دارم بتونم 4 تا شماره سطر رو درون 4 سلول ازقبل تایین شده بدست بیارم.
چطور این کار رو کنم ؟

[sabertb]

توضیح بیشتر این که در هر کدام از این رنج های مشخص شده ممکن است یک سلول انتخاب شده باشد پس من در هرکدوم از سلول های شماره سطر عدد های متفاوتی می خواهم.