Проверка данных VBA с другого листа

Question

В настоящее время у меня есть 2 листа. Лист1 и Лист3. В Sheet3 у меня есть несколько публично торгуемых компаний, проходящих через первую строку. Под каждой компанией у меня есть имя диаграммы/графика, которое я смог найти в другой книге, которая имеет отношение к компании.

В sheet1 у меня есть столбец компаний и столбец для графика. Я хочу создать раскрывающийся список, который позволит пользователю выбрать график и открыть его в PDF или расширенной версии. Как мне это сделать?

Sub appendGraphs() 
Dim source, target As Worksheet 
Dim LC, RC As Integer 
Set source = Sheet5 
Set target = Sheet1 
LC = source.Cells(1, Columns.Count).End(xlToLeft).Column 

For i = 2 To LC ' collect strings from each column and store it to tempList to feed to datavalidation 

    RC = source.Cells(Rows.Count, i).End(xlUp).Row 
    ReDim tempList(1 To RC) As String 
    For n = 2 To UBound(tempList) 
     tempList(n) = source.Cells(i, n).Value 
    With target.Cells(findRowB(source.Cells(1, i).Value, Sheet1), 10).Validation 
     .Delete 
     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
     Operator:=xlBetween, Formula1:=tempList 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = "" 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = True 

    End With 

    Next 

Next 

End Sub

Function findRowB(x As String, Optional y As Worksheet) As Integer 'finds specific row to start writing values in 
Dim expectedRow As Range 
Dim wbsheet As Worksheet 
If y Is Nothing Then 
    Set wbsheet = ActiveSheet 
Else 
    Set wbsheet = y 
End If 
Set expectedRow = wbsheet.Range("C:C").Find(What:=x, LookIn:=xlValues, Lookat:=xlWhole) 
findRowB = expectedRow.Row 

End Function

Answer 1

Никто не будет делать все, что VBA для вас. Просто Google каждую часть по отдельности, здесь я заставлю вас начать.

Создание выпадающего, https://support.office.com/en-us/article/create-a-dropdown-list-7693307a-59ef-400a-b769-c5402dce407b

Link это, http://software-solutions-online.com/2014/02/21/excel-vba-drop-down-lists/

Сохранить его как PDF, http://www.contextures.com/excelvbapdf.html

Google является вашим другом!

Или используйте запись макроса.

Вы можете задать вопросы.