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

Страницы: 1 2 3 4 5 След.
ПОДСТАВИТЬ ПСТР ПОИСК на vba, как составить макрос который будег делать тоже самое что и формула в столбце В? Применимо к выделенным ячейкам
 
как составить макрос который будет делать тоже самое что и формула в столбце В? Применимо к выделенным ячейкам
Как вводить любое значение из combobox на юсерФорм в активную ячейку по кнопке ок
 
Если ввести любой символ или слово и нажать ок, то в активную ячейку оно не заносится. Это и нужно преодолеть.
А то что предопределено списком заносится без проблем,т.е вводим ФИО , нажимаем ок в ячейку вносится долж
Как вводить любое значение из combobox на юсерФорм в активную ячейку по кнопке ок
 
форма появляется при выборе n7
Combobox задан определенным списком в коде формы. Это нужно сохранить.
Требуется по нажатию ОК переносить в активную ячейку любое значение из Combobox, а не только заданное списком
Изменено: Dobepman - 15.12.2020 09:13:23
Макрос автоматической печати jpg
 
Sanja, макросом быстрее и удобнее. Макросы призваны облегчить нашу рутиную работу.

Не ужели нет способа?
Изменить регистр в словосочетаниях (место рождения)
 
Андрей_26, круто. Мне нравится. Только подскажите как переписать для одной активной ячейке?
Изменить регистр в словосочетаниях (место рождения)
 
ottobalt, о чем речь? данные переносятся через впр в другую книгу в которой требуется нажать кнопку с исковым макросом который сделает требуемое
RAN, слишком утомительно, сотнями раз это делать в течении нескольких лет
Изменить регистр в словосочетаниях (место рождения)
 
Здравствуйте! подскажите пожалуйста как изменить регистр
Исходные данные:
Скрытый текст

нужно привести к виду
гор. Иваново
гор. Бокситогорск Ленинградская обл.

Спасибо
Найти среди множества открытых книгу с указанным окончанием имени
 
Кажется я понял почему не срабатывает. Из-за того что Эксел свернут. Если не свернут, то работает. Как победить?
Найти среди множества открытых книгу с указанным окончанием имени
 
buchlotnik, почему-то не работает, при выполнении ни чего не происходит. Что делаю не так?
Ігор Гончаренко, имя книги динамично и только одно слово не изменно.
Найти среди множества открытых книгу с указанным окончанием имени
 
Как найти книгу среди множества открытых у которой в конце имени например будет «ищи»

Это нужно с целью дальнейшей активации книги среди множества открытых
При открытии книги из другой книги как избавиться от окна обновления связей?
 
При открытии книги из другой книги как избавиться от окна обновления связей?
Когда конструкция
Код
Application.DisplayAlerts = False
Application.DisplayAlerts = 1

не помогает избавиться от окна (см. рис.)
как быть?
Окно ввода появляется два раза
 
Спасибо Вам и этому форуму и всем его участникам. И с Новым годом! Всех. Пусть в новом году будет все только хорошее, позитивное. И в несколько раз больше в сравнении с предыдущим.
Окно ввода появляется два раза
 
Переставил. Изменений 0
Окно ввода появляется два раза
 

При открытии книги срабатывает событие открытия в котором выбирается ячейка после чего появляется userform для ввода фио, выбрали фио нажали энтер, фио попало в ячейку, далее из кода userform вызывается Application.InputBox вот это –то окошечко и появляется после отработки второй раз почему-то

Окно ввода появляется два раза
 
Подскажите пожалуйста. Мне нужно последовательно вводить данные в ячейке с помощью Application.InputBox. Почему-то окно ввода появляется два раза. Как этот момент исправить?
Сравнить даты и записать при выполнении условия
 
Пока работает как нужно. Спасибо
Сравнить даты и записать при выполнении условия
 

В фильтре я убрал 2018 г. оставил только 2019 г. получается макросу вручную нужно задавать строку с которой он начинает работу, как это решить? может выводить сообщение с предложением выбора ячейке?

Появилась еще одна проблемка: там где значения представлены формулой макрос их делает значениями, а это не допустимо. Как это поправить?

Еще я пришел к тому что некоторые ячейки пустые с ними не нужно ничего делать т.е. пропускать.

Может это все глупо, но других решений я пока не могу найти. Может другое решение в котором макрос будет переписывать из столбца В:В дату (только дату без №) в столбец А:А?

Получается задача состоит в том что-бы перенести дату из столбца В:В в столбец А:А
Изменено: Dobepman - 21.12.2019 20:06:24
Сравнить даты и записать при выполнении условия
 
Работает! спасибо. А как уйти от 2. Если фильтром убрать 2018 год тем самым оставив только 2019 г.?
Как можно прикрутить
Код
Set selrange = Selection.SpecialCells(12)
или что-то подобное?
Сравнить даты и записать при выполнении условия
 

Подскажите пожалуйста макрос который будет работать при условии если в столбце А дата меньше чем в столбце В то записать в столбец А дату из столбца В.

Что-то нашел на просторах инета, но оно не работает должным образом. А выполняться он должен до тех пор пока не достигнет пустой ячейки или строки как удобней не знаю. Я так понимаю ниже представлен статический вариант, а нужен динамический т.к. столбец постоянно увеличивается.

Код
Sub srav()
Dim a()
Dim b()
Dim i As Long
a = Range("a1:a6").Value
b = Range("b1:b6").Value
For i = 2 To 6
If a(i, 1) < b(i, 1) Then a(i, 1) = 1
Next
End Sub

Макросом присвоить диапазону формат ячейки
 
Не подходит. значения должны остаться, а не равняться в1
Макросом присвоить диапазону формат ячейки
 
Подскажите пожалуйста макрос который изменит формат ячеек в2:в6 на такой же как в в1
Макросом присвоить диапазону формат ячейки
 
Здравствуйте ! Подскажите пожалуйста.
Как применить формат ячейке В1 к тем ячейкам что ниже? Дело в том что в ворде при слиянии 9 есть, а 10 нет пишет 0.
В ручную избавляться от формулы и в каждой ячейке менять формат ячейке очень долго и неудобно, т.к. в каждую ячейку нужно заходить через f2.
Изменено: Dobepman - 14.10.2019 13:05:42
Как сделать нумерацию, минуя скрытую строку?
 
Мощно! Не знал ни одного. Теперь вот один узнал. Спасибо за подсказку  
Как сделать нумерацию, минуя скрытую строку?
 
Использую такой код
Код
Sub pr()
[e4].Select
[e4] = 1
[e4].AutoFill Destination:=Range([e4], Range(Selection, Selection.End(xlDown))), Type:=xlFillSeries
End Sub

Проблема возникает когда скрыта строка, ячейка в скрытой строке тоже нумеруется, а при просмотре получается как бы нумерация сбита.
Подскажите пожалуйста может есть другой способ нумерации?
 
Изменено: Dobepman - 04.08.2019 10:41:41
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Подскажите пожалуйста
Код
Sub добавить()
Application.ScreenUpdating = False
'как сделать чтобы указанное ко-во ячеек заполнялось, а не только одна.
'r-ко-во ячеек для заполнения ActiveCell.Value = "Первый"
r = 3
'этот код работает на одну ячейку
ActiveCell.Value = "Первый"
ActiveCell.Cells(1, 2).Activate
Application.ScreenUpdating = True
End Sub
Почему не срабатывает нумерация на втором листе в цикле?
 
Теперь понял. Заработало .спасибо
Почему не срабатывает нумерация на втором листе в цикле?
 
vikttur, не понимаю Вас .
кто-нибудь попробовал практически ? Перед тем как советовать
Почему не срабатывает нумерация на втором листе в цикле?
 
Что делаю не так ?
Почему не срабатывает нумерация на втором листе в цикле?
 
Не работает!
Почему не срабатывает нумерация на втором листе в цикле?
 
Пробовал и range("...") и так [...]
нумерация на втором листе все равно не срабатывает
Изменено: Dobepman - 24.07.2019 22:24:47
Страницы: 1 2 3 4 5 След.
Наверх