Este fórum está sendo desativado

[Emersondaguia]

Boa tarde amigos, sou novo no forum , estou tendo dificuldade com esse codigo no excel
para alterar o cadastro na planilha, so consigo alterar a primeira linda da planilha que e a linha 6 se eu tirar o exit sub consigo cadastrar mas porem tenho que ficar apertando ok ate o loop encontrar a linha que quero alerar ...
Public Sub alterar()
linha = 6
Do Until shtdados.Cells(linha, "A") = ""
If shtdados.Cells(linha, "A") = shtcadastro.Range("cad_0") Then
For a = 1 To 11
shtdados.Cells(linha, "A").Offset(0, a) = shtcadastro.Range("cad_" & a).Value
Next
End If
MsgBox "Dados alterados com Sucesso", vbInformation, "Alterar"
Exit Sub
linha = linha + 1
Loop
End Sub

[eduardogrigull]

Só precisava por a msgbox e o exit sub dentro do "IF"... assim:

Código: Selecionar todos

Public Sub alterar()
linha = 6

Do Until shtdados.Cells(linha, "A") = ""
If shtdados.Cells(linha, "A") = shtcadastro.Range("cad_0") Then
For a = 1 To 11
shtdados.Cells(linha, "A").Offset(0, a) = shtcadastro.Range("cad_" & a).Value
Next
MsgBox "Dados alterados com Sucesso", vbInformation, "Alterar"
Exit Sub
End If
linha = linha + 1
Loop

End Sub