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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2011, 22:28   #1
Feller
Новичок
Джуниор
 
Регистрация: 01.11.2011
Сообщений: 2
По умолчанию Макрос по копированию строки, в зависимости от даты

Помогите с макросом. Условие такое, если ячейка из столбца равна сегодняшней дате, то скопировать строку, содержащую данную ячейку на другой лист.
VBA
В приложении файл с таблицей.
Вложения
Тип файла: rar 1.rar (17.6 Кб, 15 просмотров)

Последний раз редактировалось Feller; 01.11.2011 в 22:30.
Feller вне форума Ответить с цитированием
Старый 02.11.2011, 14:16   #2
gluk_fm
Форумчанин
 
Аватар для gluk_fm
 
Регистрация: 09.06.2011
Сообщений: 515
По умолчанию

if range("B1") = date then
gluk_fm вне форума Ответить с цитированием
Старый 02.11.2011, 19:30   #3
Feller
Новичок
Джуниор
 
Регистрация: 01.11.2011
Сообщений: 2
По умолчанию

у меня есть пример для другого случая, может подскажете, как его применить для моей таблицы?

Код:
Dim a, i&, dt
x = 2
dt = Sheets("1").Cells(11, 3).Value
a = Sheets("2").[a3].CurrentRegion.Value
For i = 1 To UBound(a)
If a(i, 1) = dt Then
x = x + 1
Sheets("1").Rows(x).Value = Sheets("2").Rows(i + 2).Value
End If
Next


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 03.11.2011 в 08:25.
Feller вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос, проставляющий статусы в зависимости от даты Oriella Microsoft Office Excel 2 26.05.2010 18:45
Подкачка данных в зависимости от даты Belokuraya Microsoft Office Excel 1 24.08.2009 20:19
Вычисленя в зависимости от даты Belokuraya Microsoft Office Excel 6 14.08.2009 16:04
подсчет ячеек в зависимости от даты Алексей777 Microsoft Office Excel 4 20.02.2009 13:48
Макрос по копированию данных из другого фаила Devourer12345 Microsoft Office Excel 30 17.07.2008 04:54