Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование циклом с фиксацией даты и времени копирования - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Копирование циклом с фиксацией даты и времени копирования
Заяц6628 Дата: Пятница, 26.05.2023, 18:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, помогите ДРУЗЬЯ!
У меня микро задача на цикл, никак не выходит. Нужно из одной таблицы скопировать данные в другую таблицу, через диапазон указанный в столбце "Ячейки для копирования", а копировать нужно только то где в колонке Статус написано "Копируем", а еще дата и время копирования нужны.
К сообщению приложен файл: zadacha1.xlsm (19.3 Kb)
 
Ответить
СообщениеДобрый день, помогите ДРУЗЬЯ!
У меня микро задача на цикл, никак не выходит. Нужно из одной таблицы скопировать данные в другую таблицу, через диапазон указанный в столбце "Ячейки для копирования", а копировать нужно только то где в колонке Статус написано "Копируем", а еще дата и время копирования нужны.

Автор - Заяц6628
Дата добавления - 26.05.2023 в 18:12
i691198 Дата: Пятница, 26.05.2023, 20:55 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 324
Репутация: 104 ±
Замечаний: 0% ±

Заяц6628, Попробуйте такой макрос.
[vba]
Код
Sub M2()
   Dim N&, Cl As Range
   N = 3
   For Each Cl In Range("F3:F" & Cells(Rows.Count, 1).End(xlUp).Row)
     If Cl = "Копируем" Then
       Cl.Offset(, -5).Resize(, 4).Copy Cells(N, 8)
       Cells(N, 12) = Now
       N = N + 1
     End If
   Next
End Sub
[/vba]
 
Ответить
СообщениеЗаяц6628, Попробуйте такой макрос.
[vba]
Код
Sub M2()
   Dim N&, Cl As Range
   N = 3
   For Each Cl In Range("F3:F" & Cells(Rows.Count, 1).End(xlUp).Row)
     If Cl = "Копируем" Then
       Cl.Offset(, -5).Resize(, 4).Copy Cells(N, 8)
       Cells(N, 12) = Now
       N = N + 1
     End If
   Next
End Sub
[/vba]

Автор - i691198
Дата добавления - 26.05.2023 в 20:55
Заяц6628 Дата: Суббота, 27.05.2023, 10:43 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

А как сделать чтобы записи не стирались, чтобы можно было отследить все копирования?


Сообщение отредактировал Заяц6628 - Суббота, 27.05.2023, 11:04
 
Ответить
СообщениеА как сделать чтобы записи не стирались, чтобы можно было отследить все копирования?

Автор - Заяц6628
Дата добавления - 27.05.2023 в 10:43
i691198 Дата: Суббота, 27.05.2023, 11:21 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 324
Репутация: 104 ±
Замечаний: 0% ±

чтобы записи не стирались
То есть нужно продолжить таблицу. Тогда третью строку нужно записать так
[vba]
Код
N = Cells(Rows.Count, 8).End(xlUp).Row + 1
[/vba]
Я думаю есть смысл удалять из исходной таблицы отметки "Копируем", чтобы избежать двойного копирования. Тогда нужно в цикл поместить строку [vba]
Код
Cl.ClearContents
[/vba]
 
Ответить
Сообщение
чтобы записи не стирались
То есть нужно продолжить таблицу. Тогда третью строку нужно записать так
[vba]
Код
N = Cells(Rows.Count, 8).End(xlUp).Row + 1
[/vba]
Я думаю есть смысл удалять из исходной таблицы отметки "Копируем", чтобы избежать двойного копирования. Тогда нужно в цикл поместить строку [vba]
Код
Cl.ClearContents
[/vba]

Автор - i691198
Дата добавления - 27.05.2023 в 11:21
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!