Передача текста с листа на лист в VBA не работает при использовании пользовательской формы CommandButton

Question

У меня есть этот код прямо здесь и по какой-то причине он не работает

Public Sub CommandButton3_Click()
'agregar'

ComboBox2.Value = sel
For i = 2 To 200
celda = ActiveCell.Row
Add = Worksheets("Programación").Cells(i, 2)
If sel = Add Then

    Sheets("Programación").Activate
    Sheets("Programación").Select
    Tipo = Sheets("Programación").Cells(i, 3).Text
    Expl = Sheets("Programación").Cells(i, 4).Text
    Recom = Sheets("Programación").Cells(i, 5).Text
    Vul = Sheets("Programación").Cells(i, 6).Text
    Ame = Sheets("Programación").Cells(i, 7).Text
    Rie = Sheets("Programación").Cells(i, 8).Text
    HA = Sheets("Programación").Cells(i, 2).Text

    Sheets("Matriz_de_Hallazgos").Activate
    Sheets("Matriz_de_Hallazgos").Select
    Sheets("Matriz_de_Hallazgos").Cells(celda, 2) = Tipo
    Sheets("Matriz_de_Hallazgos").Cells(celda, 4) = HA
    Sheets("Matriz_de_Hallazgos").Cells(celda, 5) = Expl
    Sheets("Matriz_de_Hallazgos").Cells(celda, 6) = Vul
    Sheets("Matriz_de_Hallazgos").Cells(celda, 7) = Ame
    Sheets("Matriz_de_Hallazgos").Cells(celda, 8) = Rie
    Sheets("Matriz_de_Hallazgos").Cells(celda, 9) = Recom

  celda = celda + 1
Sheets("Matriz_de_Hallazgos").Cells(celda, 4).Select

i = 201
End If

Next i


ComboBox2.Clear

End Sub

Я пытаюсь сделать то, что макрос ищет тот же текст в выпадающем списке внутри "Programación "лист, если текст такой же, то он сохраняет некоторые текстовые категории и вставляет их на лист" Matriz de Hallazgos ", так же как поиск, выглядит, если равны, копирует и вставляет. Я был бы очень полезен, если бы вы, ребята, могли бы дать мне несколько советов

Answer 1

Поскольку вы хотите сравнить выпадающий список со значениями в ячейках, я думаю, что строка

ComboBox2.Value = sel

должна быть

sel = ComboBox2.Value

, чтобы получить значение для сравнения правильно. Прямо сейчас, первая строка в том виде, в котором она находится в данный момент, устанавливает в поле со списком все, что хранится в sel, что будет ничем, если переменная еще не использовалась. При сравнении со значениями ячеек Sel остается пустым.