только так можно ?  
никаких команд для ActiveWindow.SmallScroll не существует ?

как блокировать скроллинг вправо по условию заполнения  
строки 5 начиная с D5 ?  
пример приложил

спасибо

Такой вопрос -    
советуют  
при работе с большими диапазонами в макросе применять  
Application.ScreenUpdating = False  
..............  
Application.ScreenUpdating = True  
дерганье картинки действительно снижается  
 
 
зачем нужен тогда для отключения событий  
Application.EnableEvents = False  
.................  
Application.EnableEvents = True  
сколько ни применял его только зависы макросов идут  
 
в чем полезность отключения-включения Application.EnableEvents  
для чего ?

да часть ответов нашел спасибо за ссылку

интересуюсь    
есть ли макрос который может в заданный  макрос на листе в книге или модуле  
в коде VBA сделать так  
 
1 допустим в макрос Sub ZZZ()  добавить или убрать букву Sub ZZZ(d)  
таким образом заблокировав макрос  
 
2 добавить или убрать (закомментировать) строку Stop в заданную строку кода  
 
возможно ли такое ?

халява  
 
http://forum.ru-board.com/topic.cgi?forum=35&topic=37882&start=20#lt

финальный вариант - nilem благодарю за поддержку и советы

вроде доделал вариант - вставил MsgBox на заполненные ячейки    
Проблема одна осталась - не успевает форматироваться колонка "Время след звонка"  
Хотя в форме указал и форматирование TextBox и форматирование ячейки

чего то про защиту листа не подумал - можно сделать на диапазон где формы работают  
 
еще как можно - при попытке ручного внесения данных в активную ячейку с формой проверять кол-во внесенных символов и соответствие формату ввода - если несоответствует то ручные внесенные данные стираются (+ MsgBox = "Вносите данные в столбец только по двойному клику !")  
 
Это годится для Календаря - 11.11.2011 (10 символов) и формат Дата  
для Времени 21:30 - (5 символов) и формат ActiveCell.NumberFormat = "h:mm;@"  
 
вот только для формы Этапы  условия не придумал еще

вот так получилось по двойному клику (добавил еще запрет перехода на другой лист если незаполнена строка в таблице)    проблема снялась но появилась новая -  
как запретить пользователю в ячейки с формами заносить левые данные (те данные в ячейки с формами должны вносится только из формы - больше никак)

извиняюсь недосмотрел

макрос проверки по заполнению строк таблицы - выделяет первую незаполненную ячейку    
в таблице и вызывает соответствующую форму для заполнения этой ячейки    
заполняет нормально таблицу  но работает некорректно при клике на свободных ячейках  
 
как побороть ?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

спасибо за ответ  
главное ценный совет дали

Вот так заработало все  
 
Private Sub UserForm_Activate()  
initial  
End Sub  
Private Sub UserForm_Initialize()  
'initial  
End Sub  
 
а вот так  
Private Sub UserForm_Activate()  
'initial  
End Sub  
Private Sub UserForm_Initialize()  
initial  
End Sub  
 
ошибка другого рода рассмотренная в начале темя  
 
ПОЧЕМУ так - чем эти коианды в принципе отличаются ?

вынужден вернутся к теме так как создавать новую по однотипной не имеет смысла думаю  
 
макрос работает но вскрылась новая ошибка из разряда "непознанное"  
при вызове формы из заполненных ячеек с определенным текстом вылазит ошибка  
типа  
 
Run-time error '-2147024809 (80070057)':  
 
Could not find the specified object.  
 
Прошел макрос по F8 - в TextBox-ы заносятся левые значения, отличные от содержимого ячейки (отсюда ошибка)  
На другом тексте все нормально  
Никаких взаимосвязей с определенным текстом не вижу    
Надеюсь что Hugo поможет    
Заранее благодарен

да просмотрел впредь внимательней буду  
спасибо за помощь и поддержку !

в общем мой тестовый упрощенный файл который выкладывал с помощью поправок Hugo (респект за идею)работает нормально  
ввел данные изменения в рабочий файл    
Private Sub UserForm_Activate()  
init  
End Sub  
Private Sub UserForm_Initialize()  
init  
End Sub  
Private Sub init()  в форму  
 
и str = ""  
 
- нарвался на тоже самое - эффект дублирования формы  
при копировании данных из формы в ячейку и выходу из формы снова форма с введенными данными вылазит  
просмотрел по F8 - эффект непонятный - после End Sub кнопки "закрыть форму"  
макрос чудным образом перемещается на лист и дублирует выполнение операции  
 
ничего не понимаю ..

как по шагам посмотреть выполнение макроса    
тоесть запустив макрос далее по горячей клавише нажимая - видно в VBA редакторе перемещение подсвеченных строк исполняемых команд    
 
не помню сочетания клавиш что и в какой последовательности нажать  
подскажите

пока ответ писал вы уже ответили БЛАГОДАРЮ ЗА ПОМОЩЬ !

Private Sub CommandButton1_Click()  
ActiveCell.Value = TextBox1.Text  
str1 = 0  
Me.TextBox1.SetFocus  
End Sub  
 
обнулил переменную в форме Город    
но 2 я форма уже пустая все равно вылазит

прикрепил файл сегодня вчера не успел поздно было

сделал text box в форме  
   
проблема непонятная  
 
вызываю форму  
набиваю в текстбоксе формы требуемое значение    
затем по кнопке ввод формы значение из текстбокса переносится в активную ячейку  
закрываю форму крестиком  
 
и тут проблема появляется -  
форма не закрывается а в текст боксе появляется  значение предыдущей записи  
лишь на 2 клик по крестику форма закрывается  
 
попробую так еще чтоб понятнее  
1.запускаю форму  
2.пишу в текстбоксе например 4444  
3.ввожу в ячейку  
4.закрываю форму  
5 снова запускаю форму    
6 пишу в текстбоксе 8888  
7 ввожу в ячейку  
8 закрываю форму-ФОРМА НЕ ЗАКРЫВАЕТСЯ А В ТЕКСТБОКСЕ ПОЯВЛЯЕТСЯ 4444 (значение предыдущего сеанса работы)  
9 еще раз закрываю форму - форма закрывается  
 
если щас снова открыть форму вввести значение - при ее закрытии уже 8888 появляются  
 
где проблема ? в свойствах текстбокса или в чем (как пред значение в памяти чтоли остается ?)