Добрый день. Есть таблица с сотрудниками и изделиями. Каждый день заполняется какое количество тех или иных изделий сделал каждый сотрудник. В конце месяца надо каждому сотруднику распечатать табличку с его показателями. Сейчас каждому сотруднику приходится печатать табличку на отдельном листе, при этом табличка может занимать у одного сотрудника 1/5 листа, у другого 1/3. Как собирать эти таблички на один лист, чтобы они разделялись пустой строкой? А при печати, если табличка не влезает на А4 то она не разрывалась, а переносилась на следующий лист целиком?
Доброго дня всем. Подскажите, возможно сделать так, чтобы свои кнопки на ленте отображались или нет в зависимости от того кто открыл файл? Есть форма авторизации, в зависимости от того какой логин/пароль ввели на листе видны или нет определенные строки, столбцы и кнопки на листе. Есть большое желание и необходимость перенести кнопки с листа на ленту.
Добрый день. Проверяю поле формы на заполненность таким кодом
Код
For Each X In Me.Controls
If TypeOf X Is MSForms.TextBox Or TypeOf X Is MSForms.ComboBox Then
With X
If .Value = "" Then
MsgBox "Недопустимое пустое поле!", 48, "Сообщение"
.SetFocus
Exit Sub
End If
End With
End If
Next
Вроде все хорошо, но есть одно но... Если ввести в такое поле пробел, то оно считается заполненным, а по факту данных в нем нет. Подскажите как устранить?
Доброго дня, товарищи! Копирую диапазоны из разных мест одного листа на другой, таким образом
Код
Dim rng1, rng2, rng3 As Range
Set rng1 = ActiveSheet.Range("A5:A15")
Set rng2 = ActiveSheet.Range("D5:R15")
Set rng3 = ActiveSheet.Range("AI5:AJ15")
Union(rng1, rng2, rng3).Copy
Sheet1.Activate
ActiveSheet.Paste Range("C8")
Вставляются все диапазоны подряд. Возможно вставить сначала rng1, rng2, потом вставить столбик с подсчетами rng2, а после него rng3?
Извиняюсь за не точность, границы надо сделать макросом, т.к. данные копируются/вставляются тоже макросом. Найти последний столбец в таблице не проблема, первую ячейку обвести тоже получается, а вот все что ниже с учетом количества строк в таблице никак. Еще раз прошу прощения за неточность в первом посте.
Добрый день. Есть таблица которая получается путем копирования и вставки данных с других листов. Надо сделать столбец примечания после последнего столбца и каждую ячейку обвести границами. Подскажите как реализовать? и еще вопрос: при удалении листа макросом выскакивает окно где надо подтвердить удаление. Как избавиться от этого окна и сразу удалять лист?
Уважаемые, нужна помощь. В примере, если количество найденных строк 2 и более, например при вводе в комбобокс быквы Р, в Combobox.List будет две строки: 2 Петров 3 Сидоров а если ввести С, то будет также две строки, только вид другой: 3 Сидоров а должна быть одна : 3 Сидоров Как быть?
наконец-то добрался... В комбобоксе отображается список из двух столбцов, при вводе руками в комбобокс части искомого, формируется новый список из одного столбца и подтягивается к комбобоксу. Подскажите как при вводе формировать список из двух столбцов?
Доброго времени уважаемые. Помогите, подскажите.. на форме есть комбобокс который заполняется при открытии формы из именованного диапозона. В диапозоне два столбца и оба видны в комбобоксе. как вести поиск по второму столбцу при начале ввода в комбобокс? Во всех примерах что находил используется один столбец в комбобоксе.
прошу прощения за отсутствие файла, пишу с телефона.