[حل شده] شماره گذاری ردیف با کمک ماکرو

[ozviat83]

با سلام
من یه فایل دارم که میخواهم عمل شماره گذاری ستون ردیف به وسیله ماکرو انجام بشه
یعنی زمانی که من ماکرو را فعال کردم به صورت اتوماتیک شماره گذاری کنه
نکته: لازم به ذکر است که در این فایل من تعداد ردیف ها متغیر است
من خودم یه ماکرو درست کردم ولی زمانی که تعداد ردیف ها تغیر میکنه مشکل آشکار میشه
لطفاَ کمکم کنید

[amir_ts]

با سلام
کد زیر رو تست کنید.

[LEFT]
Sub counterrows()
Dim ws As Worksheet
Dim i, lastline As Integer
Set ws = ActiveSheet
lastline = ws.Cells(ws.Rows.Count, "b").End(xlUp).Row
         For i = 1 To lastline
         If Cells(i, 2).Value <> "" Then
         ws.Cells(i, 1).Value = Application.Max(Range("A:A")) + 1
         End If
         Next i
End Sub
[/LEFT]

[majid_mx4]

با سلام

میتوانید از دستورات زیر نیز استفاده نمایید.

Sub Macro1()
'
Dim iRow As Long
 iRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row
   Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.AutoFill Destination:=Range("A2:A" & iRow), Type:=xlFillSeries
    
End Sub

پایدار باشید میر