Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Перенос строк с данными, Перенос только полностью заполненных строк
 
Добрый день.
Может кто сталкивался с подобным.
Есть два листа с умными таблицами. На одном листе полный перечень склада, на другом только то, что необходимо для заявки. Хотелось бы с помощью макроса перенести на вторую таблицу только те строки, которые заполнены полностью и указано кол-во (т.к. список очень большой).
Перерыл кучу тем, но подобного не нашел.
Заранее спасибо за помощь.
Полное скрытие кнопок на листе без "багов"
 
Добрый день ув. знатоки! Снова нуждаюсь в Вашей помощи. Заметил один неприятный момент. Если скрыть кнопки на листе, то в режиме редактора либо до разрешения макросам творить видны все кнопки. Как можно решить данный баг?) Заранее спасибо!
Как убрать пустые строки в лист бокс
 
Добрый день. Заполнение ListBox с умной таблицы. Как можно убрать пустые строки, что бы они не отображались. Заранее спасибо.
Вставка из одной книги в другую
 
Добрый день. Подскажите пожалуйста, как можно решить проблему со вставкой из одной книги в другую, при том, что одно имя книги постоянное, а другое может быть разным.

Этот макрос работает при постоянном названии книг.

Private Sub Button6_Click()

Windows("Книга 1.xlsx").Activate 'Постоянное название книги
Sheets("Лист1").Range("A2:S300").Copy
Windows("Книга 2.xlsm").Activate 'Переменное название книги
Sheets("Лист 1").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

End Sub

Заранее спасибо.
Изменено: Дмитрий Баранов - 29.03.2021 12:28:41
Удаление выделенной позиции в рамках умной таблицы
 
Доброго времени суток. Небольшая проблема( На листе есть умная таблица и кнопка удаления. Вот только удаление по данному методу не ограничивается рамками умной таблицы. Что бы не было выделено - будет удалено(
Код
Private Sub Button2_Click() 'Удалить строку
    If MsgBox("Удалить выделенную строку?", vbYesNo + vbDefaultButton2 + vbQuestion) = vbYes Then
        Selection.Delete Shift:=xlUp
    End If
End Sub

Подскажите пожалуйста, как можно ограничить рамками внутри умной таблицы? Заранее спасибо
Проверка TextBox по нажатию CommandButton
 
Добрый день. Есть два текстбокса. Текстбокс1 идёт кол-во нормы (фиксированное), в текстбокс2 вводиться само кол-во. Нужна проверка по нажатию. Т.е. если текстбокс2 разделить на текстбокс1 получиться целое число, то всё оке, если же нет, то сообщение, что введено неверное кол-во. На вас вся надежда. Заранее спасибо.
Удаление выделенной позиции в ListBox с другого листа
 
Добрый день. Нужна помощь. На отдельном листе находиться содержимое ListBox. Задумано его скрыть (Лист2) и работать через форму на другом листе (Лист1). Добавление в ListBox работает, а вот удаляет строки именно на том листе, на котором запущена форма. Как сделать так, что бы удаление происходило с любого листа? Заранее спасибо.
Строка общей суммы в конце таблицы, Нужна помощь с добавлением строки снизу таблицы или формула сдвига на одну строку при добавлении.
 
Всем привет. Постараюсь правильно сформулировать.
Есть таблица с кнопкой добавления товара из формы лист бокс, записывает в таблицу, добавляя новую строку. Данная таблица будет использоваться как спецификация для выставления счёта. В конце нужен общий итог. Либо добавлялся по закрытию формы, либо был сразу, но сдвигался с появлением строк. Заранее спасибо за помощь.
Страницы: 1
Наверх