{quote}{login=The_Prist}{date=05.07.2010 09:10}{thema=Re: Re: }{post}{quote}{login=Denis.ch}{date=05.07.2010 09:09}{thema=Re: }{post}А можно как-то эту кнопочку скрыть чтобы съэкономить пространство?{/post}{/quote}Насколько я знаю - нет.{/post}{/quote}  
Спасибо, очень помогли!

{quote}{login=The_Prist}{date=05.07.2010 09:08}{thema=}{post}Забыл добавить: не обязательно жать на кнопочку "-" в RefEdit. Достаточно просто поставить курсор в поле RefEdit-а.{/post}{/quote}  
Спасибо! Я жал на кнопочку. А можно как-то эту кнопочку скрыть чтобы съэкономить пространство?

{quote}{login=The_Prist}{date=05.07.2010 09:01}{thema=}{post}А у меня нет таких проблем. RefEdit на форме, просто выбираю ячейку и ничего жать не надо....  
Вы как выбираете ячейки через RefEdit?{/post}{/quote}  
 
Нажимаю RefEdit - выбираю ячейку - нажимаю Enter(возвращаюсь обратно)  
Так хотелось бы это лишнее нажатие (Enter) миновать.

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

{quote}{login=EducatedFool}{date=27.06.2010 06:01}{thema=}{post}вот что получилось:  
 
Sub test()  
   Dim component As Range: Set component = [a2] ' исходный уровень
   Range("f:f").ClearContents    ' очиска прежних результатов  
   component.EntireRow.Cells(6) = 1  
   Dim cell As Range, ra As Range: Application.ScreenUpdating = False  
   Set ra = Range(component(2, 3), Range("c" & Rows.Count).End(xlUp))  
   Dim SearchRange As Range, CurrentLevel As Range: Set SearchRange = ActiveSheet.UsedRange.Columns(1)  
   For Each cell In ra.Cells  
       Set CurrentLevel = Nothing: Set CurrentLevel = SearchRange.Find(cell, , , xlWhole)  
       If Not CurrentLevel Is Nothing Then  
           If CurrentLevel.EntireRow.Cells(6) = 1 Then cell.EntireRow.Cells(6) = 1  
       End If  
   Next cell  
End Sub  
 
 
Пример в файле: http://excelvba.ru/XL_Files/Sample__27-06-2010__20-00-00.zip  
 
Единствееное, что вам надо менять в макросе - это адрес ячейки в строке    
Set component = [a2]
 
Можете и так сделать:  
Dim component As Range: Set component = ActiveCell.EntireRow.Cells(1)        
' исходный уровень - строка с выделенной ячейкой{/post}{/quote}  
 
Спасибо, все работает, теперь осталось понять принцип, буду разбираться

{quote}{login=KuklP}{date=27.06.2010 05:38}{thema=}{post}Н-да. С такой постановкой вопроса... Достаточно одного цикла. Будет определять, что строка не принадлежит к наивысшему уровню и маркировать ее единичкой. А если честно, я ни фига не понял. Мож, как-то переформулировать вопрос?{/post}{/quote}  
 
Пример: Это каталог запчастей в нем показана иерархия, например дверь состоит из стеклоподъемника, стеклоподъемник состоит блока управления. Так в этом примере надо найти все составный части этой двери и маркировать их.  
 
В файле видно одни компоненты ссылаются на другие. Надеюсь это объяснение помогло

Вот сам макрос если кто не хочет качать файл  
 
component = Cells(2, 1)  
Cells(2, 6) = 1  
 
For Each zeller In Range("C2", "C8")  
If zeller = component Then  
Cells(zeller.Row, 6) = 1  
component1 = Cells(zeller.Row, 1)  
 
   For Each zeller1 In Range("C2", "C8")  
   If zeller1 = component1 Then  
   Cells(zeller1.Row, 6) = 1  
   component2 = Cells(zeller1.Row, 1)  
 
       For Each zeller2 In Range("C2", "C8")  
       If zeller2 = component2 Then  
       Cells(zeller2.Row, 6) = 1  
       component3 = Cells(zeller2.Row, 1)  
 
           '''''''  
           '''''''  
 
       End If  
       Next zeller2  
 
   End If  
   Next zeller1  
 
End If  
Next zeller

Файл перезалил

Извиняюсь, видимо когда сохранял он не сохранился в книге. Сейчас напишу заново

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

Получилось вот так:  
 
Private Sub CommandButton3_Click() 'Exit  
Unload Me  
End Sub  
 
Private Sub RefEdit1_Сhange()  
     TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
End Sub  
 
Вроде бы работает, тьфу-тьфу-тьфу. Спасибо всем за помощь!

{quote}{login=The_Prist}{date=19.06.2010 07:29}{thema=}{post}Я бы на Вашем месте проверял кол-во ячеек в диапазоне RefEdit в процессе обработки, а не при событии Exit. Если ячеек больше одной - выдаете сообщение о недопустимости выделения больше 1 и Exit Sub. Пусть выделяют как надо.{/post}{/quote}  
 
Спасибо за хорошую идею!  
Как быть с этим    
TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
Необходимо во время ввода установить в TextBox1  значение RefEdit1

{quote}{login=Юрий М}{date=19.06.2010 07:33}{thema=Re: Re: Re: }{post}{quote}{login=Denis.ch}{date=19.06.2010 07:30}{thema=Re: Re: }{post}{quote}{login=KuklP}{date=19.06.2010 07:27}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}{/post}{/quote}{/post}{/quote}Кто такие Сторонние разработчики? Это делал я {/post}{/quote}  
:-){/post}{/quote}  
Да не смейтесь, я в Excel ламер, то что я делаю это вынужденная необходимость.

{quote}{login=KuklP}{date=19.06.2010 07:27}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}А я и проверить не могу - Excel вылетает{/post}{/quote}  
У меня тоже.:-( Точно, сторонние разработчики. Или локализация глючит.{/post}{/quote}  
 
Кто такие Сторонние разработчики? Это делал я из найденного в интернете. Может попробовать в другом формате сохранить?

Какой-то полтергейст. Работу в понедельник надо показывать а тут такое. Что удивительно, две аналогичные формы у меня работают, эта нет, проверил все одинаково. Help

{quote}{login=Юрий М}{date=19.06.2010 07:19}{thema=}{post}Неправильно - в проверку в If Range(RefEdit1...{/post}{/quote}  
 
Сделал так, не помогло  
 
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
  If Range(RefEdit1.Value).Cells.Count > 1 Then  
     RefEdit1.Value = ""  
     Else  
     Cancel = True  
  End If  
     TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
End Sub

{quote}{login=Юрий М}{date=19.06.2010 07:12}{thema=}{post}Может в проверке добавить  
Else  
Cancel=True  
Exit sub{/post}{/quote}  
 
Попробовал  
Private Sub CommandButton3_Click() 'Exit  
Unload me  
Else  
Cancel=True  
End Sub  
 
Не рабоате. Или я не правильно понял...

{quote}{login=}{date=19.06.2010 06:59}{thema=}{post}ОТКЛЮЧИЛ  
'Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
'   If Range(RefEdit1.Value).Cells.Count > 1 Then  
'      RefEdit1.Value = ""  
'   End If  
'      TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
'End Sub  
'  
РАБОТАЕТ - ГДЕ-ТО ОШИБКА{/post}{/quote}  
 
Спасибо что нашли ошибку. Но с помощью этой команды я ограничиваю выбор только одной ячейки RefEdit1. При том если RefEdit1 содержит значение, то форма закрывается без ошибки. Как быть если ничего не выбрано и нажать Cancel?

{quote}{login=KuklP}{date=19.06.2010 06:50}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 06:34}{thema=}{post}1. Зачем Exit Sub?  
2. Если кнопка принадлежит ЭТОЙ форме, то вместо Unload UserForm3 можно написать:  
Unload Me{/post}{/quote}  
Можно еще  
End  
Убьет все объекты и переменные.{/post}{/quote}  
 
Попробовал, ничего не меняется

Прикрепил в версии 2003 <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

как я уже говорил, Таблица из одного листа, на первом листе кнопка, по нажатию на которую я вызываю форму. Выходит форма первый раз ее можно закрыть. Прописал    
Private Sub CommandButton3_Click() 'Exit  
Unload Me  
End Sub  
При очередном вызове формы программа зависает. Единственное решение, после первого раза нажать в редакторе СТОП, тогда форма выгружется.

c Unload Me таже история. Может кто-нибудь проверит мой файл, наверно я чего-то не понимаю.

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

честно говоря не знаю, я нашел макрос и переделал под себя.

Спасибо всем за помощь, получилось вот так  
Cells(rng1.Row, 7).Formula = "=" & Cells(klm1.Row, 6).Address

немного изменил  
 
rng1.Row=15  
klm1.Row=5  
 
'  в ячейку 15,7 = ссылка на ячейку 5,6  
Cells(rng1.Row, 7).Formula = "" = " & Cells(klm1.Row, 6).Address"""  
 
опять ругается

{quote}{login=Юрий М}{date=21.05.2010 01:43}{thema=}{post}.Cells(0, 7) = .Cells(klm1.Row, 6){/post}{/quote}  
 
ничего не происходит, возможно использует не ту ячейку.    
 
Можно ли задать здесь вместо "=R[6]" просто шестую колонку?
.Cells(0, 7).FormulaR1C1 = "=R[6]" & klm1.Row

Надо связать со строкой klm1.Row

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

Никогда не знал про эту возможность. Спасибо за помощь!