не могу разобраться с макросом

[Lexey_fan]

Вот код формы:
Option Compare Text
Private Sth As Boolean
Private LAr() As Variant

Private Sub UserForm_Initialize()
Dim x, i As Long, j As Object
i = ActiveCell.Column
With ActiveSheet
Set j = .Range(.Cells(1, i), .Cells(.Rows.Count, i).End(xlUp)) ' <-- тут можно отсечь "шапку" таблицы
End With
On Error Resume Next
With New Collection
If j.Count = 1 Then x = j.Value
For Each x In j.Value
If VarType(x) = vbString Then x = Trim(x)
If Len(x) > 0 Then
If .Item(CStr(x)) = "" Then
For i = 1 To .Count
If x < .Item(i) Then
.Add x, CStr(x), Before:=i: Exit For
End If
Next
.Add x, CStr(x)
End If
End If
Next
ReDim LAr(1 To .Count)
For i = 1 To .Count: LAr(i) = .Item(i): Next
End With
Set j = ActiveCell
With FDDL
.Caption = "Всего элементов: " & i - 1
.Left = .Width - j.Left + j.Width
.Top = .Height * 2 + j.Top - j.Height
.ComboBox1.List = LAr()
.ComboBox1.DropDown
End With
End Sub

Private Sub ComboBox1_Change()
If Sth Then Exit Sub
Dim x, mask As String
mask = "*" & Me.ComboBox1.Value & "*"
With CreateObject("Scripting.Dictionary" )
For Each x In LAr
If x Like mask Then .Add x, x
Next
Me.Caption = "Всего элементов: " & .Count: Me.ComboBox1.List = .Items
Me.ComboBox1.DropDown
End With
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Sth = False
Select Case KeyCode
Case vbKeyReturn: ActiveCell.Value = Me.ComboBox1.Value: Unload Me: Exit Sub
Case vbKeyEscape: Unload Me: Exit Sub
Case vbKeyDown: Sth = True
Case vbKeyUp: Sth = True
End Select
End Sub

Private Sub UserForm_Terminate(): Unload Me: End Sub

Что она делает: при нажати сочетания клавиш ctrl+enter открывается форма в которой есть некий список для вбора значения, макрос написан таким образом, что он формирует список из текущего столбца (т.е из того столбца, в котором была активна ячейка при нажатии сочетания клавиш)! чего хочется добиться, что бы список формировался из конкретного столбца с другого листа книги, если кто поправит код или подскажет как это реализовать буду признатеоен!

[IgorGO]

замените это:
i = ActiveCell.Column
With ActiveSheet

на:
i = Номер_Колонки_с_Данными
With WorkSheet("Имя_листа с данными")

где вместо
Номер_Колонки_с_Данными можете вписать конкретное число
"Имя_листа с данными" - напишите имя листа (то что на ярлыке указано)

[Hugo121]

Давайте пример в файле.
Что-то очень напоминает код из http://www.planetaexcel.ru/forum.php...hread_id=33137
Если у Вас другое - посмотрите в той теме - там два похожих варианта рассматривали (и делали).

[nerv]

ну-ну
http://www.planetaexcel.ru/forum.php...llnum_forum=52

Hugo121, спасибо

Судя по всему придется обращаться к модераторам, а то сейчас код пойдет гулять по форумам : )

[Hugo121]

Всё, слово выпустил - не поймаешь

[Ne prosto Masha]

Нужна помощь: формулы "ЕСЛИ", формулы отвечающие за диапазоны, ну и возврат к листу содержащему значения.... к ГОТОВОЙ программе - необходимо дополнение!!! сама владею знаниями только с определенными формулами. Немножечко позолочу Вашу ручку)))по договоренности конечно.

[nerv]

А в чем вопрос то? Это только мне кажется, или Ваше сообщение мимо темы?