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

Страницы: 1
Замена макросом значений в ячейках при открытии книги
 
Огромное спасибо!
Всё отлично  
Замена макросом значений в ячейках при открытии книги
 
Вот файл, созданный по шаблону из программы.
Макрос переделал к виду For Each cell In Worksheets("КП-1").Range... Результату нуль...
Замена макросом значений в ячейках при открытии книги
 
Только начинаю разбираться с макросами для решения одной задачки, поэтому не ругайтесь.

Есть программа, CRM, построенная на базах данных Access, из таблиц программы есть возможность выгрузки данных по шаблону, в одной из таблиц базы, есть поля хранящие значения "ДА" или "НЕТ", предположим что запись в таблице может быть или товаром, или услугой или товаром и услугой одновременно, тогда чекбоксы в полях "Товар" "Услуга" принимают значения в зависимости от проверки записи триггером. Это вводная часть, теперь к сути

В шаблоне используются закладки - обращения к полям таблиц базы данных, и вот при формировании по шаблону счет.xlsx получаем табличку с неким перечнем товаров и/или услуг рядом с которыми указывается товар эта позиция, или услуга, или и то и другое, но указывается оно в виде "Да" и "Нет", макросом хочу при открытии файла проверить диапазон ячеек в которые выгружаются эти самые "Да" или "Нет" и заменить их на более понятные "V" и "Х".

Поскольку познания мои в области VBA скудны, с помощью гугла и форумов сделал такое:
Код
Private Sub Workbook_Open()
Dim cell As Range
For Each cell In Range("L10:L30").Cells
If cell.Value = "НЕТ" Then
cell.Value = ""
ElseIf cell.Value = "ДА" Then
cell.Value = "V"
End If
Next
For Each cell In Range("M10:M30").Cells
If cell.Value = "НЕТ" Then
cell.Value = ""
ElseIf cell.Value = "ДА" Then
cell.Value = "V"
End If
Next
End Sub

Закономерно - оно не работает. Подскажите, как добиться работоспособности.
Как автоматизировать (упростить) удаление пустых строк?, Прошу помощи/совета
 
Ник Никитич, оставлять
Как автоматизировать (упростить) удаление пустых строк?, Прошу помощи/совета
 
Юрий М, "Удаление пустых строк" ?
Как автоматизировать (упростить) удаление пустых строк?, Прошу помощи/совета
 
Здравствуйте! Есть таблица, выгружаемая из программы.

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

Задача вот в чем:

1. В некоторых случаях, в таблице из примера это А4 и А5, отсутствует ФИО, в ячейке А5, но оно должно быть таким же как в А4, это самый геморройный случай, потому что приходится это выискивать, и было бы просто замечательно, если бы это было возможно автоматизировать. Ориентироваться можно лишь по отсутствию границы между ячейками (в примере это А4:А5), в выгружаемой таблице этой границы нет, есть только внешние.
2. Удалить пустые строки из таблицы, пустота строки определяется отсутствием данных в ячейках B* И С* (где * - номер строки (1...N)). Т.е. в данном случае если не указан "номер телефона" и "e-mail", то строка "пустая" и её надо удалить.
3. Данные из столбца A разбить на составляющие ("Данные по столбцам"), на выходе должно получиться Фамилия Имя и Отчество в столбцах D, E, F соответственно, столбец D, т.е. фамилию надо пропустить, то есть не выводить, соответственно в столбцах D и Е должны оказаться "Имя" и "Отчество".
4. Последний шаг: в столбце F* применить формулу "=СЦЕПИТЬ(C*;", ";D*;" ";E*)"; в столбце G - "=СЦЕПИТЬ(B*;", , , ";D*) (где * - номер строки (1...N)).

Пример таблицы прилагаю.

Сейчас делаю это вручную, тратя уйму времени на ручное удаление пустых строк, благо разбиение данных по  столбцам и применение формул "=СЦЕПИТЬ..." сильно облегчает задачу, хотелось бы автоматизировать данный процесс полностью, или хотя бы удаление пустых строк.  
Страницы: 1
Наверх