редактированние записей, через userform

[glok.01]

Здравствуйте, подскажите, пожалуйста, как можно сделать так, чтобы при выборе ячейки из столбца А открывалась userform2 и можно было редактировать эту запись, то есть все ячейки с данными встают в нужные textbox и combobox, как и в userform1, только теперь запись можно редактировать.

[yuresku]

Может так?

[glok.01]

yuresku, да благодарю, это то, что нужно

[КаМММ]

У меня возник вопрос:
Эту запись, если большое количество TextBox (например 20)

   With UserForm1
        .TextBox1.Value = Cells(RW, 2).Value
        .TextBox2.Value = Cells(RW, 6).Value
        .TextBox3.Value = Cells(RW, 7).Value
        .ComboBox1.Value = Cells(RW, 8).Value
    End With

можно записать как-то так, чтобы заполнение текст боксов было в цикле?
Точнее мне нужно заполнить 10 TextBox из ComboBox

For i = 41 To 65
Имя = Sheets("Лист1").Cells(i, 8)
ComboBox1.AddItem Имя
ComboBox2.AddItem Имя
ComboBox3.AddItem Имя
ComboBox4.AddItem Имя
ComboBox5.AddItem Имя
ComboBox6.AddItem Имя
ComboBox7.AddItem Имя
ComboBox8.AddItem Имя
ComboBox9.AddItem Имя
ComboBox10.AddItem Имя
Next i

А потом

Private Sub ComboBox1_Change()
Текст1 = ComboBox1.Text
Label1.Caption = Текст1
ComboBox1.Visible = False
Label1.Visible = True
End Sub

Private Sub Label1_Click()
Label1.Visible = False
ComboBox1.Visible = True
End Sub

и так для каждого?
Уверен это можно сделать элегантнее.

[КаМММ]

Прошу не бить за "красоту" макросов в файле.
Во первых это всё писал сам, а я тот ещё чайник..
Во вторых данная книга адаптируется из другой, под совсем другие нужды.
Пытаюсь сформировать заполнение нарядов по обработке деталей.
В данном случае лист "шатун" содержит данные.
Таких изделий будет много и разных.
Хранить их планирую в разных файлах (да и разных папках тоже)
Так что на все навесы внимания не обращайте.
Сейчас по кнопке "заполнить наряд" всплывает форма.
Заполняются комбобоксы. (что-то мне подсказывает что достаточно одного)
И после выбора фамилии она переносится в сответствующий текстбокс
Потом из них будет заполнятся наряд.

[КаМММ]

Вот пришло в голову..

Dim Combo As Collection
Dim Text As Collection


For i = 42 To 65
Имя = Sheets(Лист1).Cells(i, 8)
For n = 1 To 10

Combo(n).AddItem Имя
Next n
Next i

Осталось только объяснить что Combo - это коллекция комбобоксов на UserForm1
А Text коллекция текстбоксов

[IgorGO]

ничего обьяснять не нужно. если уж пришло в голову - пусть так и будет

[КаМММ]

Я-то не против.
Эксель против.
Ругается непонятными словами
Помогите правильно коллекцию объявить..
что Combo - это коллекция всех ComboBox на UserForm1
Имеющая 10 ComboBox
А лучше если они сами туда будут добавляться при открытии UserForm1 в определённых местах.

[КаМММ]

Ау!!! Nerv, IgorGO, EducatedFool!!!
Где вы? Помогите пожадуйста.
Я уже пять лет в стороне от этой темы был.
Чего не знал и то позабыл.
Помогите правильно объявить переменные. А дальше я уж как-нибудь сам...

[IgorGO]

если коротко и точно описать задачу, приложить пример, то наверняка найдутся люди готовые ее решить без дополнительных уговоров
понимаете? - описать нужно задачу!
а потом уже, когда понятны условия, можете показать как Вы ее пытались решить и спросить почему не получилось...
а не публиковать код, который не работает и предназначен для решения не понятно какой задачи.
лично я обхожу такие темы стороной и 100% не пытаюсь решить задачи, котарые не сформулированы или сформулированы терминами, понятными только автору.