Как подставить значение в TextBox из другого файла и с заданным условием?

Как подставить значение в TextBox из другого файла и с заданным условием?, VBA

Пользователь

Сообщений: 108 Регистрация: 23.01.2020

30.11.2020 09:29:06

Доброго времени суток, друзья!
Прошу помощи!!!

Подскажите, пожалуйста, как в TextBox на форме подставить значение из таблицы в другом файле с заданным условием?
У меня есть два файла, в одним из них форма с текстбоксом с датой и два пустых текстбокса, в которые нужно подставить значения из таблицы в другом файле исходя из сегодняшней даты.
Два файла примера во вложении.

Прикрепленные файлы

2.xlsx (8.33 КБ)
1.xlsm (17.02 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

30.11.2020 16:28:08

Dihlofos881, два файла открыты
лучше так

Код

Private Sub CommandButton2_Click()
Dim cell As Range, wb As Workbook
Set wb = Workbooks("2.xlsx")
Set cell = wb.Worksheets(1).Columns(1).Find(CDate(Format(Now, "mm/dd/yy")))
If Not cell Is Nothing Then
    TextBox2 = cell.Offset(0, 1)
    TextBox3 = cell.Offset(0, 2)
Else
    TextBox2 = "НЕТ ДАТЫ"
    TextBox3 = "НЕТ ДАТЫ"
End If
End Su

Изменено: Mershik - 30.11.2020 16:33:24

Не бойтесь совершенства. Вам его не достичь.

Dihlofos881 Пользователь Сообщений: 108 Регистрация: 23.01.2020	#3 01.12.2020 11:10:11 Mershik, да, это точто мне нужно! Большое спасибо!!!