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

Страницы: 1
Проверить имя листа в условии, используя RegExp
 
Добрый день!

Пытаюсь написать условие которое проверяло бы Имя листа с Паттерном: Имена листов например "К1", "К10" или "К100"
Первый символ обязательно латинская 'K' затем идет число от 1 до 3 знаков

Я составил выражение таким образом и оно не работает:
Код
If Sht.Name Like "\AK\d+\z" Then

Заранее спасибо
Изменено: Genesys - 10.10.2018 11:56:36
VBA. Пропуск пустых строк при копировании
 
У меня есть таблица в которой через определенный интервал повторяется группа ячеек. Эту группу мне нужно скопировать на другой лист. Если в первой найденой строке группы данные есть - то все работает хорошо, но если она пустая - код зацикливается и начинает копировать мне пустые ячейки. Помогите пожалуйста модифицировать код чтобы добавить проверку - если первая строка пустая, то переходить к следующей итерации:
Код
Do    For j = n To .Cells(n - 1, "K").End(xlDown).Row
      Cells(i, "B") = FoundCell.Offset(, 1)     
      Cells(i, "C") = .Cells(j, "K")             
      Cells(i, "D") = .Cells(j, "J")       
      Cells(i, "F") = .Cells(j, "L")           
      Cells(i, "G") = .Cells(j, "M")    
      i = i + 1
Next
Перенос данных из заданных областей на отдельный лист с сортировкой
 
Всем привет!

Столкнулся со следующей проблемкой:
Мне нужно чтоб данные из заданных диапазонов (области выделены желтым) разных листов (в примере их 2, в жизни - больше) переносились на лист итогов в соответствующие столбцы с сортировкой данных по дате.

Условия:
1) переносить только не пустые строки: строка считается пустой если поле даты - пустое
2) заполнять в итогах поле "поставщик", которое берется из шапки соответствующей таблицы
3) иметь возможность добавлять дополнительные области.

Буду благодарен за помощь с реализацией - насколько я понял встроенными средствами эксель этого не сделать.
Страницы: 1
Наверх