нужен VBA для работы на всех вкладках - PullRequest
0 голосов
/ 05 июля 2018

У меня есть код VBA, который работает, но он работает только на определенной вкладке Excel. Этот код работает только тогда, когда у меня открыта вкладка «Коды ошибок». Я хотел бы, чтобы это выполнялось независимо от того, на какой вкладке я нахожусь. При отладке строки, которая начинается с {ComboBox1.List =}, то, что выделено желтым цветом. Если вы можете изменить последнюю строку, чтобы ее больше не нужно было ограничивать этой конкретной вкладкой, это было бы здорово. Кроме этого все работает!

Private Sub ComboBox3_Change()
Dim IDRow As Range
Dim LastCol  As Long

Set IDRow = ActiveWorkbook.Worksheets("Failure Codes").Range("AA:AA").Find(ComboBox3.Value)
If Not IDRow Is Nothing Then
    LastCol = Cells(IDRow.Row, Columns.Count).End(xlToLeft).Column
    ComboBox1.List = WorksheetFunction.Transpose(IDRow.Offset(ColumnOffset:=1).Resize(ColumnSize:=LastCol - 1).Value)  ' this line is highlighted in yellow when debugging
End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...