[حل شده] پیدا کردن اسم مالک واحد بر اساس شماره واحد و طبقه

[a.dal65]

با سلام خدمت دوستان

من حدود 500 تا واحد مسکونی دارم تو طبقات مختلف (طبقه اول ، طبقه همکف، طبقه دوم و...)

میخوام وقتی توی userform واحد 55 طبقه اول رو انتخاب کردم.اسم مالک اون واحد برام نمایش داده بشه.

ممنون میشم دوستان راهنمایی بفرمایند.

[saed.rasa]

سلام

بدون vba پیشنهاد می شود

با vba دوستان شما را همراهی خواهند کرد
k2=

=IF(ROW(A1)<=LOOKUP(CELL("contents"),$M$3:$N$5),ROW(A1),"")

[a.dal65]

ممنون دوست عزیز بابت راهنماییتون.
ولی من کلی امکانات دیگه تو vba بهش اضافه کردم و باید تو محیط بهش اضافه کنم.
الانم چون دسترسی به فایلم نداشتم (محل کار/خونه) مجبور شدم شبیه اون فایلم درست کنم تا بعد برم تو خود فایل بزارم

[iranweld]

ممنون دوست عزیز بابت راهنماییتون.
ولی من کلی امکانات دیگه تو vba بهش اضافه کردم و باید تو محیط بهش اضافه کنم.
الانم چون دسترسی به فایلم نداشتم (محل کار/خونه) مجبور شدم شبیه اون فایلم درست کنم تا بعد برم تو خود فایل بزارم

با سلام

Private Sub TextBox1_Change()
Set Rng = Range("Table1[شماره واحد]")
For Each cell In Rng
If  Val(cell) = Val(TextBox1) Then
TextBox2 = cell.Offset(0, -1)
Exit For
Else
TextBox2 = ""
End If
Next
End Sub

[a.dal65]

ممنون از لطفت iranweld عزیز،
فقط اگه امکانش باشه فقط بر اساس شماره واحد نباشه و طبقه رو هم در نظر بگیره.

[iranweld]

ممنون از لطفت iranweld عزیز،
فقط اگه امکانش باشه فقط بر اساس شماره واحد نباشه و طبقه رو هم در نظر بگیره.

بررسی بفرمایید

Private Sub TextBox1_Change()

For x = 0 To ListBox1.ListCount

    If ListBox1.Selected(x) = True Then

    tabagheh = ListBox1.List(x)


    Set Rng = Range("Table1[شماره واحد]")


For Each cell In Rng


If Val(cell) = Val(TextBox1) And _

cell.Offset(0, 1) = Val(tabagheh) Then


TextBox2 = cell.Offset(0, -1)

Exit For

Else


TextBox2 = ""

End If

Next

Exit For

 End If

 Next x

  
End Sub 

[a.dal65]

ممنون iranweld عزیز بابت زمانی که گذاشتید

فقط تو دو قسمت به مشکل خوردم.
1- در تمام طبقات کد بدرستی کار میکنه بجز در طبقات "همکف"
2- شماره واحد های که بشکل ممیزی هست (مثلا شماره واحد :1/2) تا میزنی 1 ،بلافاصله نام مالک واحد 1 رو میاره.
(اشکال دار ها رو درفایل قرمز کردم)
ممنونم.

[iranweld]

ممنون iranweld عزیز بابت زمانی که گذاشتید

فقط تو دو قسمت به مشکل خوردم.
1- در تمام طبقات کد بدرستی کار میکنه بجز در طبقات "همکف"
2- شماره واحد های که بشکل ممیزی هست (مثلا شماره واحد :1/2) تا میزنی 1 ،بلافاصله نام مالک واحد 1 رو میاره.
(اشکال دار ها رو درفایل قرمز کردم)
ممنونم.

با سلام
تست بفرمایید

همون ابتدا فایل مورد نظر رو کامل بفرستید مشکلات کمتر میشه

Private Sub TextBox1_Change()


or x = 0 To ListBox1.ListCount
    
If ListBox1.Selected(x) = True Then  

  tabagheh = ListBox1.List(x)  

  Set Rng = Range("Table1[شماره واحد]")

For Each cell In Rng

If cell.Text = TextBox1 And _cell.Offset(0, 1).Text = tabagheh Then

TextBox2 = cell.Offset(0, -1)

Exit For

Else

TextBox2 = ""

End If

Next    

        Exit For  

  End If
 
 Next x  

End Sub