Выпадающий список + ComboBox

[staniiislav]

Доброго времени суток, Ув. форумчане
Помогите пожалуйста решить один из вопросов с выпадающим списком.
Нашел вот такие вот примеры (DataValComboboxSheetTableClick,Авт озаполнение Relise OLECreate), а как применить к своему примеру (Книга2) не могу понять как, нужно применить к желтым ячейкам, но есть еще одно но, в моем примере нужно чтобы объединенные ячейки остались и таблички в книге2 будут размножатся.
Заранее огромное спасибо!
...
Забыл файлики добавить, сорри (((

[staniiislav]

Сообщение от staniiislav

Доброго времени суток, Ув. форумчане
Помогите пожалуйста решить один из вопросов с выпадающим списком.
Нашел вот такие вот примеры (DataValComboboxSheetTableClick,Авт озаполнение Relise OLECreate), а как применить к своему примеру (Книга2) не могу понять как, нужно применить к желтым ячейкам, но есть еще одно но, в моем примере нужно чтобы объединенные ячейки остались и таблички в книге2 будут размножатся.
Заранее огромное спасибо!
...
Забыл файлики добавить, сорри (((

Сорри, добавил примеры.

[staniiislav]

может я не корректно выразился? поправьте меня пожалуйста.

[staniiislav]

разобрался. Тему можно закрывать.
Спасибо

[nerv]

\еще вариант выпадающий список с поиском

[staniiislav]

Сообщение от nerv

\еще вариант выпадающий список с поиском

Спасибо большое! Проблема в том, что надстройки не желательно использовать ((( не на одном компьютере могу работать...

а тот код который у меня получился к моему примеру:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Dim wsList As Worksheet
Set ws = ActiveSheet
Set wsList = Sheets("Ñïðàâî÷íèê")
Application.EnableEvents = False
Application.ScreenUpdating = False

Set cboTemp = ws.OLEObjects("TempCombo")
  On Error Resume Next
  With cboTemp
    .Top = 10
    .Left = 10
    .Width = 0
    .ListFillRange = ""
    .LinkedCell = ""
    .Visible = False
    .Value = ""
    End With
   
On Error GoTo errHandler
   If Target.Validation.Type = 3 Then
    Application.EnableEvents = False
    str = Target.Validation.Formula1
    str = Right(str, Len(str) - 1)
    With cboTemp
      .Visible = True
      .Left = Target.Left
      .Top = Target.Top
      .Width = Target.Width + 15
      .Height = Target.Height + 5
      .ListFillRange = str
      .LinkedCell = Target.Address
    End With
    cboTemp.Activate
    'Cells(ActiveCell.Row, 13) = TempCombo.ListIndex
  End If

errHandler:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Exit Sub
End Sub

Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Or KeyCode = vbKeyReturn Then
If Shift = 0 Then Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate 'Else CommandButton6.Activate
End If
End Sub