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

Страницы: 1 2 След.
Как закрепить область в условном форматирование
 
#
18.04.2020 13:42:38
Здравствуйте!
Есть таблица в которой применяется условное форматирование. Периодически в таблице строки приходиться удалять со сдвигом вверх, заданная область с форматом плывет. Подскажите какие есть варианты закрепить область.  
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:12:40
Здравствуйте.
На кнопке висит два макроса, первый копирует строку с одного листа на другой с проверкой заполненных ячеек далее происходит выход.
Как сделать так чтобы без прерывно срабатывали оба макроса.
Закоммен. Exit Sub макрос перестал работать корректно.
Поменять местами макросы тоже не вариант.
Код
'копирует корпус
Dim i As Long
 On Error Resume Next
Sheets("база корпуса нестандарт").[J79:V79].Copy
Sheets("заказ").Activate
For i = 5 To Cells(Rows.Count, 9).End(xlUp).Row + 0
  If Cells(i, 9).Value = "" Then
         Sheets("заказ").Range("I" & i).PasteSpecial
         Sheets("заказ").Activate
        Exit Sub
  End If
Next i

'копирует фурнитуру
 With Application
         .ScreenUpdating = 0
         lr = Sheets("сбор фурнитуры").Cells(Rows.Count, 6).End(xlUp).Row + 1
         Sheets("база корпуса нестандарт").[Y79:AC84].Copy
         Sheets("сбор фурнитуры").Range("B" & lr & ":F" & lr + 6).PasteSpecial Paste:=xlPasteValues
        .ScreenUpdating = 0
        End With
Изменено: Лина - 16.04.2020 17:14:13
 
Перейти    
Проверка на заполнение полей
 
#
07.04.2020 16:15:01
Здравствуйте.
Помогите отредактировать код. Как дописать еще одно условие для проверки на заполнение полей. Сейчас проверка происходит ссылаясь на UserForm и на MultiPage1..
Хотелось бы добавить еще одно условие, жесткую привязку к конкретному Frame, у меня на них расположены поля на заполнения.
Например у меня их несколько Frame1,Frame2,Frame3 надо чтобы проверка происходила только Frame1,Frame2.

 
Код
'проверка на заполнение полей
Dim i
 i = встройка.MultiPage1.Value
For Each x In встройка.MultiPage1.Pages(i).Controls
        If TypeOf x Is MSForms.TextBox Or TypeOf x Is MSForms.ComboBox Then
            If x.Visible = True Then
                If x.Value = "" Then
                    MsgBox "Все пустые поля должны быть заполнены.", 48, "Ошибка!"
                    x.SetFocus
                Exit Sub
                End If
            End If
        End If
    Next
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 15:27:36
Здравствуйте уважаемые форумчане.
Есть форма для записи с набором полей, после заполнения все данные переносятся на лист.
Как получить правильный формат в ячейках, для даты и для значения.
Видела в связке вот такие коды применяются для значения CDbl для даты CDate, к сожалению в макросах не сильна не знаю как применить куда что дописать.
Не большой кусочек кода прикрепила.
Код
Worksheets("Счет").Cells(10, 8).Value = UserForm1.TextBox3.Value '№ счета
Worksheets("Счет").Cells(10, 10).Value = UserForm1.TextBox4.Value   'дата
 
Перейти    
Сохранить из книги отдельный лист не удаляя изображения.
 
#
25.05.2019 17:18:35
Здравствуйте.
Пользуюсь рабочим макросом уже давно и все устраивало но вот возник вопрос, не много его изменить. Как это сделать, не понимаю так как не разбираюсь в них.
Вообщем как он работает, переводит формулы в значения, удаляет все картинки затем сохраняет лист.
Подскажите, как исключить удаление картинок перед сохранением?
Код
Application.ScreenUpdating = False
Dim sPath As String, sName As String, Sp As Shape, iFullName As String
Application.DisplayAlerts = False
     sPath = Sheets("путь к папке").Range("C11").Value '
    sName = InputBox("", "", "")
    If sName = "" Then
        MsgBox "", 48, ""
        Exit Sub
   End If
    iFullName = sPath & sName & ".xlsx"
    If Dir(iFullName) <> "" Then
        MsgBox "", 64, ""
    Else
        Sheets("Лист1").Copy
        For Each Sp In ActiveSheet.Shapes
            Sp.Delete
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value 
        Next
        ActiveWorkbook.SaveAs Filename:=sPath & sName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
        Application.DisplayAlerts = True
    End If
End Sub
 
Перейти    
При протягивании формулы менять ссылку в ДВССЫЛ
 
#
02.04.2019 19:32:01
Доброе время суток.
Уважаемые форумчане, подскажите как протянуть формулу ДВССЫЛ
Например =ДВССЫЛ("A2") методом протягивания формулы получить =ДВССЫЛ("A3") =ДВССЫЛ("A4") и.т.д.
 
Перейти    
Как скопировать изображение, с одного листа на другой, находящееся в копируемом диапазоне ячеек.
 
#
16.09.2018 09:55:13
Доброго времени суток.
Проблема в следующем:
макросом копируется определенный диапазон ячеек и вставляется в другой лист. В одной из ячеек находится изображение. Макросом переносятся все данные, но изображение - нет.
В случае копирования ячейки вручную - все копируется и переносится. Макросом никак.
 
Перейти    
Удаляются примечания с картинками в момент открытия файла
 
#
13.09.2018 19:48:33
Здравствуйте! Возникла проблемка следующего характера.
Имеется файлик с несколькими листами, состоит из базы данных с картинками в примечаниях.
После копирования макросом диапазона ячеек включая картинку с примечанием с базы на другой лист, в дальнейшем сохраняя новым файлом, при открытие сохраненного файла а именно на других компьютерах получаю вот такую картину файл во вложении.
Все фигуры и примечания удаляются. Кто не будь сталкивался с такой броблемкой.
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
28.06.2018 21:07:50

Здравствуйте уважаемые форумчане.

Есть макрос копирует с листа1 на лист2 строку с проверкой последней заполненной ячейкой. Диапазон для проверки является столбец А. Как добавить еще несколько столбцов для проверки.

Допустим, если ячейка в столбце А свободна, а в столбце С заполнена, при таком случае строка заполнялась бы ниже.
 
Перейти    
Как сохранить ссылку формулы при удалении строк.
 
#
13.06.2018 13:59:46
Добрый день.
имеется вот такая формула СУММПРОИЗВ(--ЕЧИСЛО(заказ!$M$1:$M$300);--(заказ!$L$1:$L$300=D3);--(заказ!$G$1:$G$300="шкаф");заказ!$M$1:$M$300;заказ!$N$1:$N$300;заказ!$Q$1:$Q$300)/1000000
При удалении строк ссылки смещаются. Догадываюсь что можно победить формулой ИНДЕКС, вот только не получается правильно подставить формулу.  
Изменено: Лина - 13.06.2018 14:25:58
 
Перейти    
Вычисление площади при наличии текста в диапазоне
 
#
09.06.2018 15:53:21
Здравствуйте уважаемые форумчане.
Подскажите какой формулой можно заменить СУММПРОИЗВ, так как в моем случае в массиве встречаются буквы, формула выдает ошибку.
Изменено: Лина - 09.06.2018 15:59:44
 
Перейти    
Копирование строк с листа на лист с проверкой последней заполненной строки.
 
#
12.05.2018 20:07:50

Добрый вечер!

Макрос копирует строку с листа1 на лист2 в таблицу, с проверкой заполненных строк. Все устраивает за исключением одного нюанса. Если же в середине таблицы имеется пустая строка он ее не заполняет, то есть скопированная строка попадает в конец таблицы. Как заполнить пустые строки в середине таблицы?
 
Перейти    
Сохранение ссылок при удалении ячеек на листе
 
#
14.03.2018 22:09:20

Как сделать чтобы при удалении строки на листе1 ячейка листа2 ссылалась на новое значение в ячейке листа1. Догадываюсь что можно сделать с помощью формулы ИНДЕКС.

Файл пример прикрепила.
 
Перейти    
VBA Проверка на ввод определенных значений в Textbox.
 
#
26.02.2018 11:40:57
Здравствуйте, дорогие форумчане.
Как ограничить пользователю ввод значения в Textbox, за исключением определенных значений, например: 64,128,160.
 
Перейти    
Как удалить выделенные строки в области со сдвигом вверх с условием.
 
#
16.02.2018 21:43:53

Здравствуйте, записала макрос макро рекордером, макрос удаляет выделенную область со сдвигом вверх. Рабочая область располагается (таблица) B:H хотелось бы уйти от ошибок, допустим, чтобы макрос не реагировал если я выделяю область больше чем положено или меньше чем положено.

Изменено: Лина - 16.02.2018 21:45:18
 
Перейти    
Отобразить рисунок на форме согласно коду из ячейки.
 
#
06.02.2018 22:27:45

Есть форма, вызывается по клику на листе 2, столбец 1. По первым набранным буквам в TextBox выводится результат из базы данных в ListBox, при выборе позиции из ListBox отображается рисунок в Image1 согласно выбранному коду. Рисунки попадают из папки указанной в макросе по заданному пути.

Возникла потребность отобразить  рисунок в Image2 согласно коду из ячейки E2.
 
Перейти    
Как выделить Imge при наведение курсором на форме.
 
#
04.02.2018 16:25:47
Нашла в сети файлик при наведении курсором на форму некоторые элементы выделяются. Как применить в своем файле не могу разобраться.
 
Перейти    
Как отобразить UserForm в правом верхнем углу монитора.
 
#
31.01.2018 10:53:12

Здравствуйте. В настройках UserForm нашла как отобразить в левом верхнем углу монитора и по центру монитора. Как сделать что бы форма отображалась в правом верхнем углу монитора, и вообще возможно ли такое.
 
Перейти    
Отобразить данные на форме Label из базы данных.
 
#
28.01.2018 18:33:06

Здравствуйте уважаемые форумчане.

Есть форма, вызывается по клику на листе 2, столбец 1. По первым набранным буквам в TextBox выводится результат из базы данных в ListBox. Возник вопрос, как вывести в Label5 данные из базы со столбца Ед-изм. согласно выбранному коду из ListBox.

В общем должно получится так, после выбора кода на форме,на Листе2 рядом с кодом должна отобразится единица измерения.

 
Перейти    
VBA Задать Enebled в зависимости от состояния CheckBox.
 
#
20.01.2018 13:48:39

Добрый день. Возник такой вопрос. На форме имеется с десяток элементов TextBox, ComboBox, CommandButton и.т.п. Как сделать так чтобы с помощью CheckBox1 можно было сделать активными и не активными  TextBox1 и ComboBox.1, не затрагивая все остальные элементы.
 
Перейти    
VBA Как вывести в активную ячейку путь к папке.
 
#
18.01.2018 21:52:18

Добрый вечер.

Возникла задача получить путь к папке после ее выбора.

На примере: допустим я становлюсь в ячейку А1, далее нажимаю кнопку, нахожу вручную нужную мне папку, выбираю ее и получаю путь к папке в ячейке.
 
Перейти    
VBA Как очистить форму.
 
#
12.01.2018 19:25:48
Добрый вечер уважаемые форумчане .
На форме имеется несколько TextBox и ComboBox а точнее в перспективе их будет гораздо больше.
Интересует вопрос как очистить одним нажатием кнопки все поля, не закрывая форму.
 
Перейти    
VBA Как отобразить рисунок на форме.
 
#
18.12.2017 23:35:22

Добрый вечер, на форме есть поиск по первым буквам, поиск происходит из базы данных. Вызов формы происходит по клику в столбце 1 на листе2. Прошу помощи в решении задачи, как отобразить рисунок согласно выбранному коду из списка на форме.

Изменено: Лина - 18.12.2017 23:58:01
 
Перейти    
VBA Поиск значения в базе по первым буквам с возможностью с последующим вводом количества и занесением данных в таблицу.
 
#
14.12.2017 23:18:27

Добрый вечер уважаемые форумчане, прошу помощи в доработке макроса.

Есть форма с поиском значений из базы данных с помощью которой я ввожу данные в таблицу в столбец НАИМЕНОВАНИЕ. Хотелось бы вводить количество в TextBox с последующей вставкой значения рядом с Наименованием.
 
Перейти    
Как управлять видимостью кнопки с другого листа?
 
#
05.12.2017 22:35:09

Добрый вечер уважаемые форумчане, Макрос отображает кнопку по событию (да)  в ячейке А1 на листе2. Подскажите как сделать так что бы, макрос срабатывал по событию на листе1 в ячейке A1. Догадываюсь что в коде надо добавить имя листа. Как это сделать не знаю так как в макросах не сильна.
 
Перейти    
VBA Как на форме отобразить значения введенные в определенной ячейке
 
#
14.11.2017 22:52:48

Добрый вечер, уважаемые форумчане.

Прошу помощи в решении задачи. Как на форме в TextBox2 отобразить результат значения  ячейки А2, при изменении в первом текстовом поле.

Изменено: Лина - 15.11.2017 08:59:12
 
Перейти    
VBA Как напрямую обратится к листу.
 
#
26.10.2017 17:45:32
Доброго времени суток.
Прошу помощи в доработки макроса.

Записала макрос макро рекордером, макрос фильтрует данные на листе2. В последствие возникла потребность, запускать макрос с листа1.
Как напрямую обратится к листу?
Код
 Range("C2:F23").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _        "M2:P3"), CopyToRange:=Range("M5:P5"), Unique:=False
 
Перейти    
VBA копирования данных с одного листа на другой лист, по событию.
 
#
04.10.2017 18:58:04

Здравствуйте, уважаемые!

Прошу помощи в переделке макроса. Макрос копирует данные с листа заказ в лист бланк, при вводе значения на листе заказ, в столбце кол-во. При удалении данных в столбце кол-во, на листе заказ, подчищает данные на листе бланк.

Что хотелось бы изменить в макросе: Убрать сортировку позиций согласно прайсу на листе бланк, (тойсть если я выбираю позиции на листе в заказе по факту снизу в верх, такой же порядок должен отображаться в бланке). После удаления какой-либо позиции на листе заказ, хотелось, чтобы макрос не заполнял нижними позициями пустые строки на листе бланк.

Если честно в макросах не разбираюсь, а только догадываюсь методом тыка, какая строка за что отвечает, в дальнейшем подстраиваю под себя. Если распишите какая строка за что отвечает было бы не плохо.

 
Перейти    
Переход между TextBox на листе
 
#
02.10.2017 18:57:34
Здравствуйте, интересует такой вопрос, как перемещаться  между TextBox на листе с помощью клавиши enter или tab. В настройках не нашла.
Изменено: Лина - 02.10.2017 22:09:01
 
Перейти    
VBA Как на форме в TextBox отобразить введенные данные на лист
 
#
26.08.2017 19:28:22

Добрый вечер, уважаемые форумчане. Прошу помощи в решении задачи. Как на форме в TextBox отобразить введенные данные на лист2 в ячейку А1 без кнопки подтверждения.

Изменено: Лина - 26.08.2017 19:47:07
 
Перейти    
Страницы: 1 2 След.
Наверх