باز شدن یوزر فرم با کلیک روی سل

Collapse
This topic is closed.
X
X
 
  • زمان
  • Show
Clear All
new posts
  • reza_tanha
    • April 2021
    • 3

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

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