erro no codigo abaixo

[rony00001]

Private Sub btbusca_Click()
If Me.Txtbusca.Value = "" Then
MsgBox "Digite o nome do cliente!"

End If
Exit Sub

ultimodado = Cadastro_Cliente.Range("B" & Rows.Count).End(xlUp).Row
List = Clear
Lista.RowSource = Clear
y = o
For linha = 4 To ultimodado

nome = ActiveSheet.Cells(linha, 2).Value
If nome Like Me.txtnome.Value Then
Me.Lista.AddItem
Me.Lista.List(y, 0) = ActiveSheet.Cells(linha, 1).Value
Me.Lista.List(y, 1) = ActiveSheet.Cells(linha, 2).Value
Me.Lista.List(y, 2) = ActiveSheet.Cells(linha, 3).Value
Me.Lista.List(y, 3) = ActiveSheet.Cells(linha, 4).Value
Me.Lista.List(y, 4) = ActiveSheet.Cells(linha, 5).Value
Me.Lista.List(y, 5) = ActiveSheet.Cells(linha, 6).Value
Me.Lista.List(y, 6) = ActiveSheet.Cells(linha, 7).Value
Me.Lista.List(y, 7) = ActiveSheet.Cells(linha, 8).Value
Me.Lista.List(y, 😎 = ActiveSheet.Cells(linha, 9).Value
Me.Lista.List(y, 9) = ActiveSheet.Cells(linha, 10).Value
Me.Lista.List(y, 10) = ActiveSheet.Cells(linha, 11).Value
Me.Lista.List(y, 11) = ActiveSheet.Cells(linha, 12).Value
Me.Lista.List(y, 12) = ActiveSheet.Cells(linha, 13).Value

y = y + 1

End If

End Sub

Na hora de faz de fazer a busca da o seguinte erro " For sem next"

Editado Novembro 3, 2023 por rony00001

[Alyson Ronnan Martins]

Bom dia. em que momento ele apresentou o erro? Aperta no depurar e manda um print para saber qual linha apareceu um erro.

 

@rony00001

[rony00001]

[Alyson Ronnan Martins]

Perfeito agora aperta F8 até chegar no erro. assim você vai ver a linha que está dando o erro.

@rony00001