使用用户窗体命令按钮时，在 VBA 中将文本从一个工作表传递到另一个工作表不起作用

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保持为空。