DV большое спасибо

Нужно значения "я" автомотически вводились с переодичностью через 3 дня

Помогите пожалуйста,реально зделать чтобы далее значения автомотически вводились с переодичностью через 3 дня, а тагже если B8 есть информация,то в B9:B11t` нельзя было вставить

И как в этот TextBox ввести данные? Ничего ведь на получается!

Подскажите как задать текстбоксу на форме числовой формат. Не проверку, а именно формат. Вопросы с проверкой и ограничением вводимых символов я нашел здесь на сайте. Справка Excel не помогла.

Извините, что вмешался.  
А если нужно больше 7 Иф, как в такую конструкцию Select Case можно вставить?

Макросом нахожу последнюю заполненную строку.  
Не получается выделить три ячейки в найденной строке. Исправьте пожалуйста синтаксис.  
Sub Макрос1()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
For i = 5 To iLastRow  
Range(Cells(i, 1):(Cells(i, 3))).Select ‘Тут ошибка  
Next  
End Sub

А так не пойдет?

Чет я не понял в чем проблема? Копируем, затем вставляем.

С Outlook Express так не получится

Ни чо не понял!  
Беру столбец А и пишу в нем по порядку  
9  
10  
11  
14  
Создал. И что?

Возможно разговор про отключение обновления экрана?

http://www.planetaexcel.ru/forum.php?thread_id=5337&forumaction=newreply&page_forum=lastpage&allnum_forum=30  
Может там чего подойдет если переделать немного

Не фига себе!!! Неа, не буду ставить :-)

Ошибочка: СУММЕСЛИ

Вам поможет СЧЕТЕСЛИ

Мазай, второй вульгарис меня убедил - перемудрил я. Хотя и мой вариант тоже работает. Нагородил, блин! :-)

Мазай, так мы немного о разном: в твоем примере раскрашивается сторонняя ячейка, а я раскрашиваю ячейки, которые сравниваются. :-)

Мазай, это я забыл подписаться - говорю что у меня без этого И не срабатывает. А с ним все ОК.

=ЕСЛИ(И($G$10=$B$10;$B$10=$G$10);1)

Посмотрите в ПРИЕМАХ. Там про это расписано подробно.

Попробуйте умножить на 1 или прибавить 0. Иногда помогает :-)

Бух, пробел и нажмите :-)

У меня пищит. Может быть на компе отключен системный динамик?

Вот проверил:  
Sub Макрос1()  
Dim k As Integer  
Dim m As Integer  
k = Sheets("Лист1").Range("A1").Value  
m = Sheets("Лист1").Range("A2").Value  
If k > m Then  
Sheets("Лист1").Range("A3").Value = "А1 больше А2"  
Else  
Sheets("Лист1").Range("A3").Value = "А1 меньше А2"  
End If  
End Sub  
Все корректно срабатывает. В ячейках формат Общий

Игорь, я в скаченный пример их Приемов вставля. Вашу формулу. Не работает: есть только номер 2 в строке 4.

Как я понимаю нужен аналог "Сумма прописью", только применительно к дате. И назвать его следует "Дата прописью". Блин, - умный я какой-то сегодня... :-)

И вправду не работает. Решение есть?

Application.Wait (Now + TimeValue("00:00:01") / 10)    
Блин! Стыдно, что сам не догадался. Спасибо.

Лузер, а как изменить формат (уменьшить время до 0,1 сек например). Никак не получается.