Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Внос данных по 2м критериям - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Внос данных по 2м критериям (Макросы/Sub)
Внос данных по 2м критериям
Point Дата: Воскресенье, 13.12.2020, 10:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Всем привет, помогите пожалуйста написать макрос, таблица с данными находится на листе 1, пользователь видит лист 2 вводит название оборудования и даты, потом ищется соответсвующая ячейка на листе1 и в нее вписываются данные количества поступления.
К сообщению приложен файл: 7141051.png(7.2 Kb) · 5364128.png(45.1 Kb)
 
Ответить
СообщениеВсем привет, помогите пожалуйста написать макрос, таблица с данными находится на листе 1, пользователь видит лист 2 вводит название оборудования и даты, потом ищется соответсвующая ячейка на листе1 и в нее вписываются данные количества поступления.

Автор - Point
Дата добавления - 13.12.2020 в 10:56
Pelena Дата: Воскресенье, 13.12.2020, 11:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17508
Репутация: 3888 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Point, Ваша новая тема останется без ответа, также как и предыдущая, если Вы не потрудитесь приложить файл с примерами таблиц в формате Excel в соответствии с Правилами форума


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеPoint, Ваша новая тема останется без ответа, также как и предыдущая, если Вы не потрудитесь приложить файл с примерами таблиц в формате Excel в соответствии с Правилами форума

Автор - Pelena
Дата добавления - 13.12.2020 в 11:47
Point Дата: Воскресенье, 13.12.2020, 12:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Прошу прощения, вот екселька из которой скрины
К сообщению приложен файл: 2618246.xlsx(13.6 Kb)
 
Ответить
СообщениеПрошу прощения, вот екселька из которой скрины

Автор - Point
Дата добавления - 13.12.2020 в 12:39
Point Дата: Воскресенье, 13.12.2020, 22:24 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
[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ому и при этом нашлась ячейка по нужному столбу и строке, данные вписываются последними сроками после 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ому и при этом нашлась ячейка по нужному столбу и строке, данные вписываются последними сроками после with

Автор - Point
Дата добавления - 13.12.2020 в 22:24
Pelena Дата: Воскресенье, 13.12.2020, 22:40 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17508
Репутация: 3888 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Как-то так можно
[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
[/vba]
К сообщению приложен файл: 2618246.xlsm(19.9 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКак-то так можно
[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
[/vba]

Автор - Pelena
Дата добавления - 13.12.2020 в 22:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Внос данных по 2м критериям (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!