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"