Здравствуйте!  
Интересует вот такой вопрос: После выбора ячейки приходится каждый раз нажимать Enter чтобы подтвердить выбор и вернуться в RefEdit. Можно ли это миновать чтобы ускорить работу?

Нужна ваша помощь в оптимизировании Макроса.    
В кратце:  
Существует база Excel в которой все строки подчинены друг другу по принципу каталогов как в Проводнике Windows. Количество уровней вложений может быть, скажем, неограниченное.  
 
Задача такая:    
Найти все строки нижележащих уровней и маркировать их цифрой "1".  
Я написал макрос, но количество уровней в нем ограниченное(в данном примере 3)  
Есть ли у кого какие идеи, ну не писать же 100 раз один и тот же макрос для каждого уровня.  
Пример с готовым макросом прикрепил.

Здравствуйте, никак не получается закрыть UserForm3 использую следующий макрос  
 
Sub Rev_Level() 'Вызываю форму  
UserForm3.Show  
End Sub  
 
Private Sub CommandButton3_Click() 'Exit  
Unload UserForm3  
Exit Sub  
End Sub  
 
При нажатии на кнопку Cancel (CommandButton3) программа сворачивает форму. При очередном вызове формы кнопка уже не работает и программа зависает.  
 
При том что удивительно для первых двух форм UserForm1 и Userform2 все работает.  
 
Пример прикрепил, спасибо за помощь!

Здравствуйе. Пишу макрос, для связи между ячейками.  
 
With rng  
' в ячейку седьмой колонки вставить ссылку на ячейку из шестой колонки, строка klm1.Row    
.Cells(0, 7).FormulaR1C1 = "=R[6]" & klm1.Row
End With  
 
Программа ругается.  
Подскажите что делаю не так?

Как можно с помощь макроса просматривать колонку А первого листа и при отсутствии совпадений на втором листе закрашивать всю строку на первом листе?  
Заранее благодарю!

Спасибо всем за помощь в предыдущих постах.  
Хочу написать новый макрос к спецификации,  но не знаю с какой стороны к нему подойти.  
Есть таблица, в ней надо найти совпадения и выдать сумму совпадений по каждой строке.  
файл прикрепил, надеюсь все будет понятно.

Новое задание, новые проблемы.    
 
Как реализовать с помощью макроса копирование строк между листами. Например на первом листе появляется диалоговое окно "Выберите строку для копирования", а на втором "Выберите место вставки". Притом между листами создаются относительные ссылки, и при изменении значения на первом листе меняется значение на втором.  
Я попытался смастерить вот что, но не работает, может кто подскажет?  
 
Sub Makro7()  
 
' вставляем пустую строку в Накладные  
     
Dim poz As Range, poz1 As Range  
Dim rng As Range, rng1 As Range  
 
Set rng1 = Application.InputBox("Выберите строку куда вставить", Type:=8)  
Set rng = Cells(rng1.Row, 1)  
rng.EntireRow.Insert Shift:=xl  
Cells(rng1.Row - 1, 1).Select  
ActiveCell.Name = "actcll"  
 
' Копируем строку  
 
Sheets("Список").Select  
 
Set poz1 = Application.InputBox("Выберите строку для копирования", Type:=8)  
Set poz = Cells(poz1.Row, 1)  
poz.EntireRow.Copy  
 
' Идем обратно  
 
Sheets("Накладная").Select  
Range("actcll").Activate  
 
' Тут я хотел для каждой ячейки сделать ссылку, но выдает ошибку  
 
With rng  
 
.Cells(0, 1).FormulaR1C1 = "=Normteile!R1C(poz1.Row)"  
.Cells(0, 2).FormulaR1C1 = "=Normteile!R2C(poz1.Row)"  
.Cells(0, 3).FormulaR1C1 = "=Normteile!R3C(poz1.Row)"  
.Cells(0, 4).FormulaR1C1 = "=Normteile!R4C(poz1.Row)"  
 
End With  
 
Application.CutCopyMode = False  
 
 
End Sub

Всем привет, помогите с макросом. Хочу скопировать ячейки но только чтобы при изменении первой менялось значение второй (т.е. во Второй должна быть формула =Первая ячейка). Пытаюсь сделать так  
.Cells(0, 2) = .Cells(0, 1)  
но он это копирует значение.  
Что делаю не так, кто подскажет?

Хочу написать макрос который бы создавал новую строку из активной ячейки. Потом просматривал  колонки и как только находил нужный результат копировал содержимое соседней с найденой ячейкой. Вот что уже нарыл:  
Sub Insert_Row()  
   On Error Resume Next  
   ActiveCell.EntireRow.Insert  
   With ActiveCell.EntireRow  
       .Cells(1) = .Cells(1).Offset(-1)    
     
End With  
 
End Sub  
 
Еще, если кто знает как сделать счетчик в ячейке при каждом запуске макроса.  
 
Пример таблицы и подробное описание прикрепил.  
 
Помогите, иначе на работе хана...