[حل شده] باز شدن یوزر فرم با کلیک روی سل

[reza_tanha]

سلام خدمت دوستان و اساتید محترم
Dim EditRow As Integer


EditRow = Application.WorksheetFunction.CountA(Sheet1.Range( "C5:C600")) + 4

If Selection.Count = 1 Then
If Not Intersect(Target, Range("b5:" & "b" & EditRow)) Is Nothing Then
UserForm1.TextBox1 = Sheet2.Range("d" & ActiveCell.Row).Value
UserForm1.Show
End If
End If



می خوام کاری کنم که اگه ردیف سل مورد نظر مثلا A2 بود یه یوزرفرم و A3 بود یوزرفرم دیگه ای باز بشه