Código VBA com erro
Enviado: 25 Jan 2021 às 22:16
Olá tenho o seguinte código
Private Sub curso_AfterUpdate()
Dim W As Worksheet
Dim i As Integer
Dim l As Integer
Set W = Sheets("Cursos")
i = 2
l = W.Range("A" & Rows.Count).End(xlUp).Row
Do Until i > l
If CDbl(curso.Value) = (W.Cells(i, 1)) Then
sigla.Value = W.Cells(i, 2)
curso.SetFocus
Exit Sub
End If
i = i + 1
Loop
End Sub
basicamente ele compara o texto do combobox com o texto de uma célula.
Caso o texto seja igual o textbox (Sigla) deveria pegar o valor da celula (W.Cells(i, 2))
Porem quando executo isso da erro, diz Tipos incompatíveis, caso eu troque as variáveis Integer por String, o código executa porem não retorna nenhum valor.
OBS: Quando da erro o seguinte trecho fica destacado
If CDbl(curso.Value) = (W.Cells(i, 1)) Then
Se coloco o mouse em cima de curso.value e W.Cells aparece o texto correto.
Alguém consegue me dar uma ajudar para resolver isso?
Private Sub curso_AfterUpdate()
Dim W As Worksheet
Dim i As Integer
Dim l As Integer
Set W = Sheets("Cursos")
i = 2
l = W.Range("A" & Rows.Count).End(xlUp).Row
Do Until i > l
If CDbl(curso.Value) = (W.Cells(i, 1)) Then
sigla.Value = W.Cells(i, 2)
curso.SetFocus
Exit Sub
End If
i = i + 1
Loop
End Sub
basicamente ele compara o texto do combobox com o texto de uma célula.
Caso o texto seja igual o textbox (Sigla) deveria pegar o valor da celula (W.Cells(i, 2))
Porem quando executo isso da erro, diz Tipos incompatíveis, caso eu troque as variáveis Integer por String, o código executa porem não retorna nenhum valor.
OBS: Quando da erro o seguinte trecho fica destacado
If CDbl(curso.Value) = (W.Cells(i, 1)) Then
Se coloco o mouse em cima de curso.value e W.Cells aparece o texto correto.
Alguém consegue me dar uma ajudar para resolver isso?