Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать макрос! / 3 сообщений из 3, страница 1 из 1
28.09.2011, 09:29
    #37458370
ren_kz
ren_kz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите написать макрос!
Здравствуйте! Есть одна проблема! Помогите решить!

Есть таблица, в которой столбец В, начиная с 5-й строки, заполнен некоторыми данными, нужно сделать так чтобы напротив каждой строки, в столбце С, была установлена текущая дата, если в столбце В нет данных, то и в столбце С тоже ничего нет??? Это нужно сделать в макросе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2011, 10:24
    #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
| Ответить | Цитировать | Написать  
29.09.2011, 10:16
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать макрос! / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 178ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158413]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 81ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 11ms
total:  178ms
x
x
Закрыть


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