[حل شده] اجرای دستور بصورت ردیف ردیف در یک ستون اکسل

[look20]

سلام میخواستم مقادیر ستون a رو +1 کنم و توی ستون b پرکنم البته بنده با روش حلقه for انجام دادم
ولی مشکل اینجاست که وقتی توی ستون a هر ردیفش پرمیشه کد رو تا انتها میره یعنی ردیف های دیگه رو هم محاسبه میکنه
روشی هست که فقط زمانی که مثلا ردیف a1 هستم محاسبه همون ردیف انجام بشه و ادامه پیدا نکنه البته با vba میخاستم انجام بشه
ممنون

[generalsamad]

با سلام
لطفا یک نمونه فایل قرار دهید و روی فایل درخواست را توضیح دهید

[look20]

چشم دقیقا میخوام مواردی که توی ستون a نوشته میشه با شرط نوشته شده توی vba توی ستون b پر بشه مشکل اینجاست که کل محاسبات رو انجام میده یعنی اگه تعداد رکورد زیاد بشه میشه وا ویلا میخام فقط برای همون ردیف انجام بشه ممنون

[generalsamad]

با سلام
این کد رو تست کنید ببینید چطوره

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A30")) Is Nothing Then
    On Error Resume Next
    If Target <> "" Then
    tr = Target.Row
        Range("B" & tr) = Application.WorksheetFunction.VLookup(Range("A" & tr), Sheet2.Range("A:B"), 2, 0)
    End If
End If
End Sub 

[look20]

:63:تقریبا مشکلم حل شد خدا خیرتون بده فقط یه مشکل حالا اگه اطلاعات وارد شده توی ردیف های ستون a توی لیست data نبود یا خالی بود اون ردیف در ستون b خالی بشه این رو هم لطف کنید ممنون چند روز گرفتارم کرده

[generalsamad]

با سلام
این کد را جایگزین کنید

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A30")) Is Nothing Then
    On Error Resume Next
    Range("B" & tr) = 0
    If Target <> "" Then
        tr = Target.Row
        Range("B" & tr) = Application.WorksheetFunction.VLookup(Range("A" & tr), Sheet2.Range("A:B"), 2, 0)
    End If
    If Target = "" Or Application.WorksheetFunction.VLookup(Range("A" & tr), Sheet2.Range("A:B"), 2, 0) = 0 Then
        tr = Target.Row
        Range("B" & tr) = 0
    End If
End If
End Sub