با سلام
ضمن تشکر از جناب آقای Jansi Hayat با اجازه ایشان
کد های را به شکل زیر تغییر دادم البته اگر درست در نظر گرفته باشم اسامی و .... باید از شیت NameManager گرفته شود نه از شیت 2
کد:
Private Sub TextBox8_Change()
Dim Nam As Range
TextBox1.Clear
For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
TextBox1.AddItem Nam.Offset(0, -1)
TextBox1 = Nam.Offset(0, -1)
End If
Next Nam
End Sub
Private Sub TextBox9_Change()
Dim Nam As Range
TextBox1.Clear
For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
TextBox1.AddItem Nam.Offset(0, -1)
TextBox1 = Nam.Offset(0, -1)
End If
Next Nam
End Sub
Private Sub TextBox10_Change()
Dim Nam As Range
TextBox1.Clear
For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
TextBox1.AddItem Nam.Offset(0, -1)
TextBox1 = Nam.Offset(0, -1)
End If
Next Nam
End Sub
موفق باشید میر
علاقه مندی ها (Bookmarks)