Определить текстовое поле значения с помощью таблицы столбца значений - PullRequest
0 голосов
/ 09 июля 2020

может быть, это простой вопрос. но не для меня Что у меня есть? У меня есть рабочий лист (с именем ZTN) с 5 столбцами под A, есть 2 значения «Да или Нет» / CHNumber B столбца (например, CH4711) / столбец C Элементы для примера «Salt» Столбец D свободен (без значений) и E ZTN со значениями numeri c (ZTN Number)

У меня также есть пользовательская форма с 3 текстовыми полями Txtbx44 для текстового поля элементов 46 для номера ZTN и Txtbx с именем MatNr

I также есть команда Поиск кнопки

Что я сделал?

Когда я вручную заполняю текстовое поле «Ware» и нажимаю кнопку поиска, мой макрос находит значения в листе «ZTN» заполнить Txtbxes MatNr и ZTN Здесь мой код

Dim raFund As Range

Set raFund = Worksheets("ZTN").Columns("C").Find(what:=UserForm1.Ware, LookIn:=xlValues, LookAt:=xlWhole)
    If Not raFund Is Nothing Then                    
           TextBox46 = Worksheets("ZTN").Cells(raFund.Row, "E")
           MatNr = Worksheets("ZTN").Cells(raFund.Row, "B")
              
           If Worksheets("ZTN").Cells(raFund.Row, "E") = Worksheets("ZTN").Cells(raFund.Row, "A").Value = "JA" Then
                MsgBox "T1 RELEVANT!"
           End If
    Else
           If MsgBox("Ware ist nicht vorhanden, soll ein neuer Eintrag angelegt werden?", vbYesNo, "Neuer Eintrag") = vbYes Then
             With Worksheets("ZTN")
                loLetzte = .Columns(2).Find(what:="*", LookIn:=xlValues, LookAt:=xlWhole, searchdirection:=xlPrevious).Offset(1).Row
                .Cells(loLetzte, "A") = Me.MatNr
                .Cells(loLetzte, "B") = Me.Ware
              ' .Cells(loLetzte, "D") = Me.Zolltarifnummer
             End With
           End If
    End If
Set raFund = Nothing

End Sub

Что я хочу сделать? Я пытаюсь определить, является ли найденный ZTN NUmber случаем T1 или нет, для другого рабочего процесса. (вот почему у меня есть столбец A на листе «ZTN» со значением «Да» или «Нет», касающимся номера ZTN.

К настоящему времени я застрял, потому что тот элемент, который я набираю ... Msgbox говорит: «T1 Relevant!»

Я тоже застрял с Items. К настоящему времени, когда я попытаюсь найти Salt, он найдет Salt. Но в моем списке есть разные виды Salt (другой пример UCC0.1 / UTN0 .2 / BTS0: 0; Reinigungs-und Ätzmischungen für Mikroelektronikanwendungen

Это означает, что элемент U CC .1 означает UTN0.2 означает ... Reinigungs -...)

Это было бы неплохо найти элемент, похожий на функцию поиска в самом Excel. Не касаясь верхнего и нижнего регистра

Надеюсь, у кого-то будет хорошая идея

заранее спасибо Пит

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...