شماره گذاری ردیف با کمک ماکرو

[ozviat83]

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

[amir_ts]

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



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

[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



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