Hy там
Я пытаюсь закодировать пользовательскую форму, в которой при нажатии cmdbuton пользовательская форма оценивает в каждом из двух текстовых полей данные и просматривает позицию (первый текстовый блок) или находит имя данных (второе текстовое поле) У меня возникли проблемы с анализом имени текстового поля. Я хотел бы найти имя, получить его местоположение и загрузить в другого пользователя все данные из этой строки. Проблема в том, что я не знаю, как убрать номер из адреса, который я получаю, когда нахожу слово.
Private Sub CommandButton2_Click()
If Not TextBox1.value = "" And TextBox2.value = "" Then
Sheet1.Cells(1, 15) = TextBox1.value
Unload Me
OpisVentila.Show
ElseIf TextBox1.value = "" And Not TextBox2.value = "" Then
Dim y As Range
Dim x As String
Dim z As String
Dim s As String
x = TextBox2.Text
Set y = Sheet1.Range("A:A").Find(x)
z = y.Address(0, 0)
s = StrConv(z, vbUnicode)
s = Split(Left(s, Len(s) - 1, vbNullChar))
Sheet1.Cells(1, 15) = s
Unload Me
PromjenaVentila.Show
ElseIf Not TextBox1.value = "" And Not TextBox2.value = "" Then
Msgbox "Please enter one way to find the desired location"
TextBox1 = ""
TextBox2 = ""
Else
Msgbox "You didnt chose any way to find the desired location"
End If
End Sub