سلام خدمت دوستان و اساتید محترم
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 بود یوزرفرم دیگه ای باز بشه
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 بود یوزرفرم دیگه ای باز بشه