[حل شده] شماره گذاری

[sohrabahmadi]

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

[amir_ts]

با سلام
یک ردیف از بالا اضافه کنید و این فرمول رو در ردیف دوم قرار بدید و به پایین درگ کنید.

=if($c2<>"";max($a$1:a1)+1;"") 

[sohrabahmadi]

ممنون از لطف شما.البته من منظورم کد وی بی بود.این کد رو نوشته بودم که عمل نکرد ممنون اگه یه نگاهی بهش بندازین:
For Each c In Range("c1:c100")
If c.Offset(0, 1) <> "" Then
c = WorksheetFunction.Max(c) + 1
End If
Next

[sohrabahmadi]

تصحیح شد.مرسی امیر .اگه فرمول راحتتری برای داده های بیشتر ارائه بدبن ممنون میشم
For Each c In Range("c1:c100")
If c.Offset(0, 1) <> "" Then
c.Value = WorksheetFunction.Max(Range("c100").End(xlUp).Valu e) + 1
End If
Next

[amir_ts]

این کد رو هم ببینید.

[LEFT]
Sub counterrows()
Dim ws As Worksheet
Dim i, lastline As Integer
Set ws = ActiveSheet
lastline = Range("b65536").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]