TextBox lardaki değeri karşılaştırma

[Mx@Raid]

Arkadaşlar ayrı bir sayfa açmak istemiyordum aslında ancak cevap gelmediği için maalesef konu açtım. aşağıdaki kodu tek koda dönüştürmek istiyorum yardımcı olabilir misiniz?

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox9 = Empty Then Label22 = "": Exit Sub
Label22 = Sheets("KT").Range("A6:E50").Find(What:=TextBox9, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label43 = Sheets("KT").Range("A6:E50").Find(What:=TextBox9, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox10 = Empty Then Label23 = "": Exit Sub
Label23 = Sheets("KT").Range("A6:E50").Find(What:=TextBox10, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label44 = Sheets("KT").Range("A6:E50").Find(What:=TextBox10, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox11 = Empty Then Label24 = "": Exit Sub
Label24 = Sheets("KT").Range("A6:E50").Find(What:=TextBox11, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label45 = Sheets("KT").Range("A6:E50").Find(What:=TextBox11, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox12 = Empty Then Label25 = "": Exit Sub
Label25 = Sheets("KT").Range("A6:E50").Find(What:=TextBox12, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label46 = Sheets("KT").Range("A6:E50").Find(What:=TextBox12, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox13= Empty Then Label26 = "": Exit Sub
Label26 = Sheets("KT").Range("A6:E50").Find(What:=TextBox13, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label47 = Sheets("KT").Range("A6:E50").Find(What:=TextBox13, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox14 = Empty Then Label27 = "": Exit Sub
Label27 = Sheets("KT").Range("A6:E50").Find(What:=TextBox14, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label48 = Sheets("KT").Range("A6:E50").Find(What:=TextBox14, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox15 = Empty Then Label28 = "": Exit Sub
Label28 = Sheets("KT").Range("A6:E50").Find(What:=TextBox15, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Label49 = Sheets("KT").Range("A6:E50").Find(What:=TextBox15, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
End Sub

 

[Mx@Raid]

Arkadaşlar mümkünsü bu konuda bana yardımcı olur musunuz? Malum kodlar uzadıkça dosyanın boyutu oldukça büyüyor.