Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запись данных на листы с UserForm
 
#1
17.05.2021 12:27:18
Здравствуйте!

Нужна Ваша помощь

При выборе продукта (Манго...итд) в UserForm, ввожу килограммы в TextBox1/2/3 (Приход/Отгрузку/Склад), как реализовать запись данных, в последнюю пустую ячейку выбранного продукта (Манго...итд) на Листе1 Склад, Листе2 Приход/Отгрузку.
Изменено: Вадим - 17.05.2021 16:04:35
 
 
 
#2
19.05.2021 14:09:59
Вот часть кода до которого сумел дойти, он ищет только первый поиск  (Манго...итд) как мне дописать код для поиска еще и место нахождения (Приход/Отгрузку/Склад)
Код
Private Sub CommandButton6_Click()

    x_text = ComboBox1
    Dim cell As Range
     Set cell = Columns(2).Find(What:=x_text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If cell Is Nothing Then
        MsgBox "Ничего не найдено", vbCritical
    Else
        cell.Activate    ' выделяем найденную ячейку

    End If

End Sub
Изменено: Вадим - 19.05.2021 14:57:52
 
 
 
#3
19.05.2021 14:38:54
Цитата
Вадим написал:
он ищет только первый поиск  (Манго
неа, не ищет. Т.к. в Columns(1) только "склад" и никакого "Манго"
П.С. по моему приход и отгрузку лучше на разных листах сделать.
Find ищет только на одном листе, по этому нужно в цикле переходить по листам и проводить процедуру поиска на каждом листе.

написанный код добавляйте в файл пример.
Изменено: V - 19.05.2021 14:42:54
 
 
 
#4
19.05.2021 14:57:25
Подредактировал, ищет и выделяет ячейку.
 
 
 
#5
19.05.2021 17:21:15
а "последняя пустая ячейка выбранного продукта" это что и где?
 
 
 
#6
19.05.2021 17:53:10
Цитата
Вадим написал:
ищет и выделяет ячейку.
ищет - это хорошо, зачем сразу выделять-то? достаточно найти
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Наверх