Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
pmike367
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 11
1

Некорректное удаление строк из таблицы

02.02.2017, 12:21. Просмотров 760. Ответов 1
Метки нет (Все метки)

Добрый день.

Перейду сразу к делу.
Есть две таблицы:
1) справочник
2) и обрабатываемая
При отсутствии ID сотрудника (2-ая таблица) в первой (справочнике) нужно удалить строку из второй таблицы.

Вот код, который есть:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Кнопка1_Щелчок() 'увольнение уволенных
    Dim a, b, i, j As Integer
    Dim id_fact, id_year As String
    Dim srch As Integer
 
    a = LastStr("справочник")
    b = LastStr("2013")
    Application.ScreenUpdating = False
    For i = 2 To b
    srch = 0
    id_year = Worksheets("2013").Cells(i, 3).Value
        For j = 2 To a
        id_fact = Worksheets("справочник").Cells(j, 2).Value
            If StrComp(UCase(id_year), UCase(id_fact)) = 0 Then
              srch = srch + 1
            End If
        Next
        If srch = 0 Then
            Worksheets("2013").Rows(i).Delete
        End If
    Next
   MsgBox ("Скрипт закончил работу")
End Sub
проблема заключается в том, что он пропускает некоторых сотрудников

Добавлено через 14 минут
Научился пользоваться поиском. Прошу удалить тему
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2017, 12:21
Ответы с готовыми решениями:

Некорректное удаление строк в цикле
Доброго всем дня! Сделала цикл,по сути очень простой. Но он сразу не удаляет...

Удаление строк из таблицы
Добрый день! подскажите, как можно разрулить следующую ситуацию: есть столбец,...

Удаление строк из умной таблицы по условию
Добрый день, уважаемые форумчане. Имеется кусок кода, который удаляет строки...

Удаление строк из "умной таблицы" макросом
Здравствуйте, уважаемые Ассы VBA! Столкнулся с проблемой удаления строк из...

Некорректное удаление последней строки в таблице
Здравствуйте. Был разработан макрос для вставки "---" в каждую строку до конца...

1
toiai
3094 / 887 / 193
Регистрация: 29.05.2010
Сообщений: 1,907
02.02.2017, 15:14 2
Лучший ответ Сообщение было отмечено KoGG как решение

Решение

Удалять строки надо от конца к началу...
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2017, 15:14

Из исходной таблицы в n строк и 6 столбцов нужно сделать таблицу-результат из кучи строк и 6 столбцов
Добрый вечер, учусь в универcитете, начал изучать макросы и подвернулась...

Удаление строк
Подскажите пожалуйста, почему у меня не удаляет строки. Вот код: Sub...

Удаление строк
Здравствуйте! Подскажите в чем может быть проблема. Делаю макрос чтобы он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru