Всем привет, помогите пожалуйста написать макрос, таблица с данными находится на листе 1, пользователь видит лист 2 вводит название оборудования и даты, потом ищется соответсвующая ячейка на листе1 и в нее вписываются данные количества поступления.
Всем привет, помогите пожалуйста написать макрос, таблица с данными находится на листе 1, пользователь видит лист 2 вводит название оборудования и даты, потом ищется соответсвующая ячейка на листе1 и в нее вписываются данные количества поступления.Point
Point, Ваша новая тема останется без ответа, также как и предыдущая, если Вы не потрудитесь приложить файл с примерами таблиц в формате Excel в соответствии с Правилами форума
Point, Ваша новая тема останется без ответа, также как и предыдущая, если Вы не потрудитесь приложить файл с примерами таблиц в формате Excel в соответствии с Правилами форумаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Private Sub CommandButton1_Click() Dim i&, d As Range Set d = Лист1.Columns(2).Find([C3]) If Not d Is Nothing Then
Set d = Лист1.Rows(2).Find([C2]) If d Is Nothing Then MsgBox "123 " & [C2] & " не найдена в базе данных.", vbExclamation:
End If Exit Sub With [C6] For i = 1 To .Rows.Count If Len(.Cells(i, 1)) Then d.Offset(, i) = .Cells(i, 1) Next End With End Sub
[/vba]
Есть такой код, но он не работает, я просто не знаю, как сделать так, чтобы после того как он нашел ячейку соответвуюущю первому требованию, программа сразу начала поиск по 2ому и при этом нашлась ячейка по нужному столбу и строке, данные вписываются последними сроками после with
[vba]
Код
Private Sub CommandButton1_Click() Dim i&, d As Range Set d = Лист1.Columns(2).Find([C3]) If Not d Is Nothing Then
Set d = Лист1.Rows(2).Find([C2]) If d Is Nothing Then MsgBox "123 " & [C2] & " не найдена в базе данных.", vbExclamation:
End If Exit Sub With [C6] For i = 1 To .Rows.Count If Len(.Cells(i, 1)) Then d.Offset(, i) = .Cells(i, 1) Next End With End Sub
[/vba]
Есть такой код, но он не работает, я просто не знаю, как сделать так, чтобы после того как он нашел ячейку соответвуюущю первому требованию, программа сразу начала поиск по 2ому и при этом нашлась ячейка по нужному столбу и строке, данные вписываются последними сроками после withPoint
Sub Кнопка1_Щелчок() Dim i&, d As Range, n As Range Set n = Лист1.Columns(2).Find([C2]) If Not n Is Nothing Then
Set d = Лист1.Rows(2).Find([C3]) If Not d Is Nothing Then Лист1.Cells(n.Row, d.Column) = [C5] Else MsgBox "Дата " & [C3] & " не найдена в базе данных.", vbExclamation End If Else MsgBox "Оборудование " & [C2] & " не найдено в базе данных.", vbExclamation End If End Sub
[/vba]
Как-то так можно [vba]
Код
Sub Кнопка1_Щелчок() Dim i&, d As Range, n As Range Set n = Лист1.Columns(2).Find([C2]) If Not n Is Nothing Then
Set d = Лист1.Rows(2).Find([C3]) If Not d Is Nothing Then Лист1.Cells(n.Row, d.Column) = [C5] Else MsgBox "Дата " & [C3] & " не найдена в базе данных.", vbExclamation End If Else MsgBox "Оборудование " & [C2] & " не найдено в базе данных.", vbExclamation End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
