Большой выпадающий список с данными из другой закрытой книги Excel.

[EducatedFool]

Суть вопроса - список на отдельном листе (строки шириной порядка 30 символов), количество строк от 30 и может расти, как его запихнуть в параметр "Formula1", построить список в rab легко, только когда его пихаеш Formula1:=rab обрезается до 255 знаков
Как решить ?

Я в таких случаях макросом присваиваю диапазону имя, и в параметр Formula1 заношу уже это имя диапазона.

[Alex2003]

А работающий примерчик можете показать?

[ugli]

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

По-моему, это разумно.

А если нужен вот такой вариант списков!!!
Помоему формой БЛАГОРОДНЕЕ!!!

[ugli]

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

[doober]

Щелкните два раза и увидите

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ActiveCell = "КУКУ ,это я ,Активная ячейка "
End Sub

PS.Что то меня в последнее время на юмор потянуло

[ugli]

doober
Cпасибо, но на удивление самому себе
въехал сам.
не так уж и сложно оказывается VBA
если вникнуть

[ugli]

В форме с выпадающими списком добавляю кнопку,назначение ее-дать мне выбор из определенной папки выбор файла изображения(картинки) и при выборе файла, добавить картинку на лист в определенный диапазон ячеек.КАК сделать не преложу ума...
Помогите плиз.

[doober]

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

КАК сделать не преложу ума...
Помогите плиз.

А тут и ПРЕКЛАДОВАТЬ ничего не надо.
Набираем в поиске по этому форуму в окошке слово картинка
И о чудо первая тема Ваша
Делай РАЗ





Делай ДВА



Делай ТРИ

[ugli]

спс!
не могу определить код(макрос) который будет в листах 1,2,3,...
искать в определенных ячейках и столбах значения(текст) и если они есть то прописывать их в ячейки(которые определю) на новый лист?

[doober]

Использование

Private Sub CommandButton2_Click()

Dim ssl As String

ssl = Poisk_Stroka("Лист1", 9, "ДВП")

If ssl <> "" Then
          
        Делай_Раз (ssl)
        
       End If
End Sub

Function Poisk_Stolb(NameLijst As String, Stolb As String, Znahenie As Variant) As String
Dim f As Range
   Application.ScreenUpdating = False
            Set f = Sheets(NameLijst).Columns(Stolb).Find(Znahenie)
            If Not f Is Nothing Then
          
            Poisk_Stolb = f.AddressLocal
            
            End If
      
  
  Application.ScreenUpdating = True
  

End Function




Function Poisk_Stroka(NameLijst As String, Stroka As Long, Znahenie As Variant) As String
Dim f As Range
   Application.ScreenUpdating = False
             Set f = Sheets(NameLijst).Range(Stroka & ":" & Stroka).Find(Znahenie)
            If Not f Is Nothing Then
          
            Poisk_Stroka = f.AddressLocal
            End If
      
  
  Application.ScreenUpdating = True
  
End Function