Как игнорировать конкретное имя листа?

Мой код ниже, это поле со списком пользовательской формы, которое позволяет пользователю выбирать определенные данные из других рабочих листов. Моя проблема заключается в том, что она также показывает мой лист «Сводка» в качестве варианта выбора. Как заставить его отображать все листы в индексе списка, исключая таблицу «summary»?

Private Sub cmb_copycontact_Change() If cmb_copycontact.ListIndex <> -1 Then With ActiveWorkbook.Sheets(cmb_copycontact.Value) txt_MailAdd1.Value = .Range("B21").Value txt_mailadd2.Value = .Range("B22").Value txt_mailburb.Value = .Range("B23").Value cmb_mailstate.Value = .Range("B24").Value txt_pcode.Value = .Range("B25").Value End With End If End Sub 

Как указано в UGP, исключите итоговый лист при заполнении ComboBox на UserForm.

Включите следующий код в свой код события инициализации UserForm.

 Private Sub UserForm_Initialize() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "Summary" Then Me.cmb_copycontact.AddItem ws.Name End If Next ws End Sub 
  • Импорт PDF в Excel
  • MS Excel «индекс вне диапазона» при копировании рабочих листов в новую рабочую книгу
  • Разрешить пользователям изменять имена листов, VSTO
  • Как запустить макрос vba на конкретном листе, не выходя из текущей рабочей таблицы
  • VBA Excel, как активировать макрос для листов 2, 3 и 4 из листа 1
  • Имя новых добавленных листов на основе имени переменной или массива
  • Настройка защиты листа Excel с помощью EPPlus
  • Как удалить листы excel из книги excel в c #?
  • Как загрузить определенный лист из файла excel, запросив пользователя в R?
  • VBA - параметр рабочего листа в функции
  • Замена текста в полях excel
  • Давайте будем гением компьютера.