Здравствуйте. Поставил перед собой задачу упростить свою ежедневную рутину. Погрязая в материалах решил систематизировать свои папки электроно. Какого-либо опыта в exсel (имею ввиду макросы и массивы) у меня нет, в связи с чем начал читать статьи и пытаться быстро найти нужное для себя решение и статьи на тематику создания. По итогу "родил" что-то, но это не работает, разобраться с ошибкой пока не могу, в связи с чем хотел бы узнать у вас - более опытных пользователей, как мне скорее найти ошибку и довести до ума свою идею?
Задачу я ставил такую. Строки из таблиц на листе "реестр" со значением из столбца F такие как "Отказано" и "передан" должны перемещаться в листы книги "отказаны" и "переданы".
Т.е. после постановки решения по материалу, реестр должен отображать то, где не принято решение, а строки с принятыми решениями должны сортироваться на одноименных страницах. Я уверен, что я делаю что-то не так, но самостоятельно уже не справляюсь.
Здравствуйте. Поставил перед собой задачу упростить свою ежедневную рутину. Погрязая в материалах решил систематизировать свои папки электроно. Какого-либо опыта в exсel (имею ввиду макросы и массивы) у меня нет, в связи с чем начал читать статьи и пытаться быстро найти нужное для себя решение и статьи на тематику создания. По итогу "родил" что-то, но это не работает, разобраться с ошибкой пока не могу, в связи с чем хотел бы узнать у вас - более опытных пользователей, как мне скорее найти ошибку и довести до ума свою идею?
Задачу я ставил такую. Строки из таблиц на листе "реестр" со значением из столбца F такие как "Отказано" и "передан" должны перемещаться в листы книги "отказаны" и "переданы".
Т.е. после постановки решения по материалу, реестр должен отображать то, где не принято решение, а строки с принятыми решениями должны сортироваться на одноименных страницах. Я уверен, что я делаю что-то не так, но самостоятельно уже не справляюсь.Shikelf
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False u = Cells(Rows.Count, "a").End(xlUp).Row If Not Intersect(Target, Range("f7:f" & u)) Is Nothing Then If Target.Count > 1 Then Exit Sub On Error Resume Next s = Target.Value If s <> "" Then a = Sheets(s).Cells(Rows.Count, "a").End(xlUp).Row + 1 b = Target.Row Rows(b).Copy Sheets(s).Range("a" & a) Rows(b).Delete End If End If Application.EnableEvents = True End Sub
[/vba]
вдруг правильно [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False u = Cells(Rows.Count, "a").End(xlUp).Row If Not Intersect(Target, Range("f7:f" & u)) Is Nothing Then If Target.Count > 1 Then Exit Sub On Error Resume Next s = Target.Value If s <> "" Then a = Sheets(s).Cells(Rows.Count, "a").End(xlUp).Row + 1 b = Target.Row Rows(b).Copy Sheets(s).Range("a" & a) Rows(b).Delete End If End If Application.EnableEvents = True End Sub
Для меня максимально правильно, учитывая, что я 3 дня не мог сдвинуться с мертвой точки. Спасибо Вам за помощь. Попрошу Вас, единственное, подскажите литературу, которой Вы пользовались, чтобы получше разобраться в рамках созданной мной темы
Для меня максимально правильно, учитывая, что я 3 дня не мог сдвинуться с мертвой точки. Спасибо Вам за помощь. Попрошу Вас, единственное, подскажите литературу, которой Вы пользовались, чтобы получше разобраться в рамках созданной мной темы Shikelf
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
