{quote}{login=Kruzik}{date=03.09.2010 06:18}{thema=Проставление даты}{post}Здравствуйте Форумчане. На Планете в ПРИЕМАХ - есть пример, где при заполнении одной ячейки, автоматически проставляется в другой ячейке дата и время. Как изменить правильно макрос, что бы проставлялась только дата БЕЗ ВРЕМЕНИ?{/post}{/quote}  
замените в коде на эту стр  
.Value = Format(Date, "dd.mm.yyyy")

{quote}{login=Kruzik}{date=03.09.2010 06:30}{thema=}{post}R Dmitry спасибо большое - все рабтпет. Хотел еще уточнить у Вас - завтра, эта дата поменяется на текущую, или останется сегодняшней?{/post}{/quote}  
как же она поменяется? вы же ее внесли уже в ячейку  
а если введете в ячейку чего либо то дата будет в соседней ячейке всегда "сегодня"  
_______  
69334

Можно ли сделать так чтобы дата автоматически проставлялась при открытии файла?

Можно, в модуль ЭтаКнига  
 
Option Explicit  
 
Private Sub Workbook_Open()  
activesheet.range("A1").Value = Format(Date, "dd.mm.yyyy")  
 
End Sub

И какой вариант удачней? или точнее чем отличаются?

{quote}{login=Лиска}{date=04.09.2010 11:27}{thema=}{post}И какой вариант удачней? или точнее чем отличаются?{/post}{/quote} Они одинаковы, просто я глянул Ваш пример и конкретно под него написал код. А Игорь предоставил Вам возможность самой чуточку подумать:-)  
 
85252  
Во прет сегодня.

{quote}{login=KuklP}{date=04.09.2010 11:35}{thema=Re: }{post}{quote}{login=Лиска}{date=04.09.2010 11:27}{thema=}{post}И какой вариант удачней? или точнее чем отличаются?{/post}{/quote} Они одинаковы, просто я глянул Ваш пример и конкретно под него написал код. А Игорь предоставил Вам возможность самой чуточку подумать:-)  
 
85252  
Во прет сегодня.{/post}{/quote}  
я вот сегодня на 3 часика на рыбалку съездил и линька на 1.5 поднял, вот это поперло.....  
 
да кстати 49449!тоже прет  
 
R Dmitry

{quote}{login=KuklP}{date=05.09.2010 12:10}{thema=}{post}У меня сегодня и стрит был. А рыбачу я в основном в супермаркете:-){/post}{/quote}  
 
Лентяй. Лишь бы поесть. Рыбалка - это процесс, это отдых...

{quote}{login=KuklP}{date=04.09.2010 11:13}{thema=Re: Авто проставление даты!}{post}{quote}{login=Лиска }{date=04.09.2010 11:03}{thema=Авто проставление даты!}{post}Можно ли сделать так чтобы дата автоматически проставлялась при открытии файла?{/post}{/quote}В модуль книги:  
Private Sub Workbook_Open()  
Sheets("заказник").[J2].Value = Day(Date)
Sheets("заказник").[K2].Value = Format(Date, "mmmm yyyy")
End Sub  
 
45768{/post}{/quote}  
Ещё разик добрый вечер, скажите как нужно изменить этот макрос чтобы дата ставилась не автоматом а только при изменении текста в диапазоне столбцов (D:AH)

{quote}{login=KL}{date=06.09.2010 01:28}{thema=}{post}В модуль листа "заказник":  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Intersect(Target, [D:AH]) Is Nothing Then Exit Sub
   Application.EnableEvents = False  
   [J2].Value = Day(Date)
   [K2].Value = Format(Date, "mmmm yyyy")
   Application.EnableEvents = True  
End Sub{/post}{/quote}  
в новом документе вставила, рядом с предыдущим макросом первый работает а второй нет не работает    
нужны оба чтобы отображать дату изменения документа и дата печати с ролью которой первый макрос  прекрасно справляется  
что я не так  сделала?  
Option Explicit  
Private Sub Workbook_Open()  
Sheets("ТАБЕЛЬ").[W9].Value = Day(Date)
Sheets("ТАБЕЛЬ").[Z9].Value = Format(Date, "mmmm yyyy")
End Sub  
Private Sub Worksheet_Change(ByVal Target As Range)  
If Intersect(Target, [D:AH]) Is Nothing Then Exit Sub
Application.EnableEvents = False  
[W10].Value = Day(Date)
[Z10].Value = Format(Date, "mmmm yyyy")
Application.EnableEvents = True  
End Sub  
может подскажите как вставить в диапазон [D:AH]строки 12, вставить названия дней недели ПН ВТ СР ЧТ ПТ СБ ВС
с привязкой к календарю компьютера, и заливкой только именно в этой строке будних=бледно зелёным,выходные=ярким синим    
диапазон [D:AH]в строке13 является числами месяца соответственно D=1:AH=31
можно было бы скрывать лишние столбцы с датой несуществующей в данном месяце,но их надо в таком случае при сокрытии очищать сразу в диапазоне 14-60

Глядел еще раз Ваш пример, ничего не понял. Как посреди Вашей таблицы втулить дни, числа... И уже в процессе написания этого поста, увидел ответ The_Prist.  
Он прав - давайте пример с есть и надо.

У Вас у самой, от этого попугая глаза не устают? Мне так сразу дурно стало. Все это решается формулами. Подождите, скоро спецы подтянутся.

Макросы надо ставить туда, куда Вам написали.  
Посмотрите пример "проставления" дня недели с использованием формул и заливку через Условное Форматирование.  
Еще - объединенные ячейки - зло;) Снял объединение в W & Z  и выделив несколько ячеек в формате указал по центру выделения.  
Дальше пока нет времени. И формула в УФ не оптимальна, что первое вспомнил.  
Игорь67