Исключение строк по условию
maluska
Дата: Вторник, 24.12.2013, 09:29 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Добрый день! На основании данных, представленных в табличной форме формируется реестр. Помогите, пожалуйста, дописать макрос, чтобы строки, содержащие определенное условие (например, данные по городу Анжеро-Судженск) исключались из реестра, но не удалялись из таблицы данных. Буду признательна за помощь, самостоятельно справиться не смогла.
Добрый день! На основании данных, представленных в табличной форме формируется реестр. Помогите, пожалуйста, дописать макрос, чтобы строки, содержащие определенное условие (например, данные по городу Анжеро-Судженск) исключались из реестра, но не удалялись из таблицы данных. Буду признательна за помощь, самостоятельно справиться не смогла. maluska
Ответить
Сообщение Добрый день! На основании данных, представленных в табличной форме формируется реестр. Помогите, пожалуйста, дописать макрос, чтобы строки, содержащие определенное условие (например, данные по городу Анжеро-Судженск) исключались из реестра, но не удалялись из таблицы данных. Буду признательна за помощь, самостоятельно справиться не смогла. Автор - maluska Дата добавления - 24.12.2013 в 09:29
KuklP
Дата: Вторник, 24.12.2013, 09:49 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
[vba]Код
For Each r In oSourData.Rows If Format(r.Cells(1, 7), "dd.mm.yyyy") = Format(oDataCell.Value, "dd.mm.yyyy") Then If r.Cells(1, 3) <> "Анжеро-судженск" Then nCount = nCount + 1 ... End If End If
[/vba]
[vba]Код
For Each r In oSourData.Rows If Format(r.Cells(1, 7), "dd.mm.yyyy") = Format(oDataCell.Value, "dd.mm.yyyy") Then If r.Cells(1, 3) <> "Анжеро-судженск" Then nCount = nCount + 1 ... End If End If
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение [vba]Код
For Each r In oSourData.Rows If Format(r.Cells(1, 7), "dd.mm.yyyy") = Format(oDataCell.Value, "dd.mm.yyyy") Then If r.Cells(1, 3) <> "Анжеро-судженск" Then nCount = nCount + 1 ... End If End If
[/vba] Автор - KuklP Дата добавления - 24.12.2013 в 09:49
maluska
Дата: Среда, 25.12.2013, 11:23 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Не получается, строка перед Анжеркой удаляется, последняя, содержащая Анжерку - остается. Не могу понять, не доходит до меня...
Не получается, строка перед Анжеркой удаляется, последняя, содержащая Анжерку - остается. Не могу понять, не доходит до меня... maluska
Ответить
Сообщение Не получается, строка перед Анжеркой удаляется, последняя, содержащая Анжерку - остается. Не могу понять, не доходит до меня... Автор - maluska Дата добавления - 25.12.2013 в 11:23
KuklP
Дата: Среда, 25.12.2013, 14:13 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Выложите файл, где не получается. У меня все работает в Вашем примере.
Выложите файл, где не получается. У меня все работает в Вашем примере. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Выложите файл, где не получается. У меня все работает в Вашем примере. Автор - KuklP Дата добавления - 25.12.2013 в 14:13
maluska
Дата: Четверг, 26.12.2013, 06:45 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Доброе утро! KuklP , спасибо Вам за помощь! Выкладываю файл, где не работает.
Доброе утро! KuklP , спасибо Вам за помощь! Выкладываю файл, где не работает. maluska
Ответить
Сообщение Доброе утро! KuklP , спасибо Вам за помощь! Выкладываю файл, где не работает. Автор - maluska Дата добавления - 26.12.2013 в 06:45
KuklP
Дата: Четверг, 26.12.2013, 09:03 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Вы не туда End If сунули.
Вы не туда End If сунули. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Вы не туда End If сунули. Автор - KuklP Дата добавления - 26.12.2013 в 09:03
Serge_007
Дата: Четверг, 26.12.2013, 20:17 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
[offtop]данные по городу Анжеро-Судженск
Обалдеть! Я в Анжерке все свои школьные летние каникулы проводил, с первого класса и до института... maluska , Вы оттуда?[/offtop]
[offtop]данные по городу Анжеро-Судженск
Обалдеть! Я в Анжерке все свои школьные летние каникулы проводил, с первого класса и до института... maluska , Вы оттуда?[/offtop] Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение [offtop]данные по городу Анжеро-Судженск
Обалдеть! Я в Анжерке все свои школьные летние каникулы проводил, с первого класса и до института... maluska , Вы оттуда?[/offtop] Автор - Serge_007 Дата добавления - 26.12.2013 в 20:17
maluska
Дата: Пятница, 27.12.2013, 07:55 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Нет, я из Кемерово
Ответить
Сообщение Нет, я из Кемерово Автор - maluska Дата добавления - 27.12.2013 в 07:55