ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать макрос!
3 сообщений из 3, страница 1 из 1
Помогите написать макрос!
    #37458370
ren_kz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ren_kz
Гость
Здравствуйте! Есть одна проблема! Помогите решить!

Есть таблица, в которой столбец В, начиная с 5-й строки, заполнен некоторыми данными, нужно сделать так чтобы напротив каждой строки, в столбце С, была установлена текущая дата, если в столбце В нет данных, то и в столбце С тоже ничего нет??? Это нужно сделать в макросе.
...
Рейтинг: 0 / 0
28.09.2011, 09:29
| Ответить | Цитировать | Написать  
Помогите написать макрос!
    #37458459
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Код: plaintext
1.
2.
3.
4.
5.
Sub Макрос1()
For J =  5  To Cells(Rows.Count,  2 ).End(xlUp).Row
Cells(J,  3 ) = ""
If Cells(J,  2 ).Value <> "" Then Cells(J,  3 ) = Date
Next
End Sub
...
Рейтинг: 0 / 0
28.09.2011, 10:24
| Ответить | Цитировать | Написать  
Помогите написать макрос!
    #37460322
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Вроде ещё позавчера в другом месте ответил:
Код: plaintext
Selection.SpecialCells( 2 ).Offset(,  1 ) = Date
можно чуть добавить:
Код: plaintext
Range([b5], Range("b" & Rows.Count).End(xlUp)).SpecialCells( 2 ).Offset(,  1 ) = Date
...
Рейтинг: 0 / 0
29.09.2011, 10:16
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать макрос!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]