Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2024, 19:57   #1
Arteo
Новичок
Джуниор
 
Регистрация: 06.01.2024
Сообщений: 1
По умолчанию перемещение данных с условием

Всем привет, подскажите подскажите, что нужно изменить, что бы на листе "1111" выделялась строка, в которой в ячейке "J" значение меньше, чем например "01.01.1991" и копировалась на лист "USSR"? При этом на что бы на листе "USSR" были только уникальные значение и они же оставались и на "1111".
Код:
Sub updateList()
'переменные и их данные
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long

   'Ссылки на листы

   Set sourceSheet = ActiveWorkbook.Worksheets("1111")
   Set targetSheet = ActiveWorkbook.Worksheets("USSR")
   
   'Поиск последней строки в столбце A на листе 1111
   lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
   
   'Копируем данные без заголовков и пустых строк на лист USSR
    j = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    For i = 2 To lastRow
        If Not IsEmpty(sourceSheet.Cells(i, 1)) Then
            sourceSheet.Range("A" & i & ":AD" & i).Copy targetSheet.Range("A" & j)
                j = j + 1
        End If
    Next i
End Sub
Arteo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка данных каждой ячейки в столбце с условием и при совпадении, занесение данных в параллельные ячейки другого столбца DEE9 Помощь студентам 3 12.04.2014 08:46
Копирование данных между листами с условием igorMalov Microsoft Office Excel 3 24.02.2012 11:03
Программа обработки данных (разобраться с условием) Dj_Leff Помощь студентам 1 27.05.2010 15:27
Копирование данных в другой документ с условием oleg544 Microsoft Office Excel 2 05.04.2010 11:12
Перемещение данных Мария100684 Microsoft Office Access 6 26.09.2008 03:45