{quote}{login=слэн}{date=27.10.2010 01:32}{thema=}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
   Application.EnableEvents = False  
   If IsNumeric(Target) Then Target = Target + 1  
   Application.EnableEvents = True  
End Sub{/post}{/quote}  
Спасибо Слэн, очень признателен вам

Извините что уже надоедаю здесь всем  
Как написать макрос чтобы когда я вводил в ячейку какое-нибудь число и нажимал Enter, к этому числу автоматически прибавлялось 1? Допустим в активной ячейке пишу число 5 нажимаю Enter и активная ячейка выдает число 6.  
 
Спасибо всем кто откликнется!

{quote}{login=Hugo}{date=27.10.2010 01:01}{thema=}{post}Sub MyFirstSteps()  
 
Dim a As Single  
Dim b  As Single  
Dim c As Date  
 
a = ActiveCell.Value  
b = Now  
c = a + b  
 
MsgBox c  
 
End Sub{/post}{/quote}  
 
Спасибо Hugo!

{quote}{login=R Dmitry}{date=27.10.2010 01:02}{thema=Re: Re: Re: Помогите подправить макрос}{post}{quote}{login=Самир, Баку}{date=27.10.2010 12:57}{thema=Re: Re: Помогите подправить макрос}{post}Даже с правильно написанным Single тоже не получается{/post}{/quote}  
а как вы пытаетесь дату получить?  
b = FormulaR1C1 = "=Today()" это не правильно  
b=Date правильно  
переменнные должны быть тоже датами    
Dim a as Data  
иначе получите число{/post}{/quote}  
 
Спасибо вам. Сейчас я понял свою ошибку. Мне главное было не решение а совет относительно того что я делаю неправильно

Даже с правильно написанным Single тоже не получается

{quote}{login=}{date=27.10.2010 12:52}{thema=}{post}Sub MyFirstSteps()  
 
MsgBox ActiveCell.Value + Date  
 
End Sub{/post}{/quote}  
 
Ой спасибо, а где я неправ?

Здравствуйте уважаемые товарищи!  
 
Попытался сам хоть в жизни один макрос написать. Не получилось.. Но я не сдаюсь и упорно иду к своей цели. Посмотрите где я намудрил. И не смейтесь пож-ста на моим макросом, я ведь только учусь..  
 
Задача такая: В активной ячейке содержится дата. Надо чтобы когда запускался макрос, он прибавлял бы к этой дате сегодняшнюю и отображал ее в MsgBox  
 
Sub MyFirstSteps()  
 
Dim a as Single  
Dim b as Suingle  
Dim c as Single  
 
a = ActiveCell.Value  
b = FormulaR1C1 = "=Today()"  
c = a+b  
 
MsgBox c  
 
End Sub

{quote}{login=Alex_ST}{date=27.10.2010 10:07}{thema=}{post}блин...  
обещанный файл не приаттачил{/post}{/quote}  
 
Супер справочник, мне как раз такой нужен! Спасибо вам Алексей!  
Я здесь давно, просто сейчас зарегистрировался.