Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ktcmax
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Неправильный выбор значения в столбце
 
#
15.02.2022 11:08:19
Добрый день.
При подборе значения в ячейке столкнулся с таким казусом:
Есть форма в ней textbox с именем Num. Вводим в него значение "6"
При таком раскладе:
Код
S = Range("C:C").Find(Num)
If Not S Is Nothing Then
        a = S.Row
        b = Cells(a, 5).Value
            If Val(Pl.Value) <> b Then   'Проверка соответствия Pl значениям в других строках
            MsgBox "Значение неверное" 
            Exit Sub
            Else
            'MsgBox "Значение нормальное"
            End If
        End If

предполагался возврат строки со значением "6" в ячейке.
Но если такого значения нет, то возвращается строка со значением "16" в ячейке.
Как сделать правильно? Чтобы если если значения "6" нет, то код выполнялся дальше?
 
Перейти    
Сравнить сумму значений по указанному имени и заведению со значением, указанным на форме.
 
#
02.02.2022 15:57:52
Пока не хватает опыта сваять такую конструкцию:

Есть UserFotm для ввода значений и записи в таблицу.
Что требуется:
Форма: введено значение в строку "Выпито данным человеком".
Проверка по таблице, сумма значений ячеек "Выпито данным человеком" в остальных строках, где совпадает "№ Бара", + сумма введенная в форме, не должна быть больше значения "Сколько бутылок в заведении" остальных ячеек с соответствующим значением "№ Бара" в строке.
Если больше Msgbox "Быть того не может"
Проверка срабатывает по кнопке "Сохранить"
Таблица будет с защитой, пользователь вводит и удаляет данные только через формы, поэтому, как я думаю, риском наличия в таблице данных уже не соответствующих критериям проверки, можно пренебречь.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 08:51:52
День добрый.
Подскажите пример кода в такой ситуации:
Есть форма с Combobox1 (диапазон значений инициализирован из столбца таблицы) и кнопка CommandButton1.
Как сделать чтобы при нажатии кнопки выбранное в Combobox1 значение возвращало ячейку и удалялась вся строка содержащая эту ячейку?
Код
Private Sub UserForm_Initialize()
'Список значений в combobox 
'ComboBoxcod.List = ActiveWorkbook.Worksheets("Книга1").Range("A4", Cells(Rows.Count, 1).End(xlUp)).Select
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Последняя строка по столбцу 
Set x = Range(Cells(4, 1), Cells(LastRow, 1))
ComboBox1.List = x.Value
End Sub

EnPrivate Sub CommandButton1_Click()

End Sub
Изменено: ktcmax - 02.02.2022 09:34:11
 
Перейти    
Сохранение высоты строк при вставке в шаблон
 
#
31.01.2022 17:38:50
Добрый день.
Для копирования данных и вставки в шаблон сделал так:
Скрытый текст
Проблема в том, что в шаблоне есть шапка и там высота строки больше чем остальные. Как сделать, чтобы при вставке сохранялась высота строки как в шаблоне?
Для универсальности и ширина столбцов так же.
 
Перейти    
Обращение к динамическому имени книги excel
 
#
29.01.2022 18:15:50
День добрый.

В vba не силён, только пытаюсь осваивать, так что сильно не пинайте.
Вопрос в следующем:
обработка задач по кнопке
'создаем книгу с динамическим именем
Код
Private Sub CommandButton3_Click()
Workbooks.Add
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Новый отчет " & Format(Now(), "DD MMM YYYY hh-mm-ss AMPM") & ".xlsx")

в дальнейшем в ходе выполнения требуется переключиться на другую книгу, для извлечения данных
Код
Workbooks("Книга1.xlsm").Activate

Как сделать переключение на созданную книгу обратно?  
 
Перейти    
Страницы: 1
Наверх