Minicurso de Introdução ao VBA com Certificado
https://sun.eduzz.com/280766?pf=1

E-mail: [email protected]

Faça parte da Lista VIP →https://www.sieitreinamentos.com/listavip/

Curso Completo
http://mestresdoexcel.com.br/loja/combo-excel-3/
Siga-me nas redes sociais

Linkedin → https://www.linkedin.com/in/claudio-damasceno/
Instagram → https://www.instagram.com/mestresdoexcel/
Facebook → https://www.facebook.com/professorclaudiodamasceno/
Twitter → https://twitter.com/profcdamasceno
Site → http://claudiodamasceno.com.br


Código da Aula:
Sub CadastrarCliente()
Dim nrolinha As Integer

If ([Sistema!C2] = "") Then
MsgBox "Nome é obrigatório"
ElseIf ([Sistema!C3] = "") Then
MsgBox "Idade é obrigatório"
ElseIf ([Sistema!C4] = "") Then
MsgBox "Telefone é obrigatório"
Else
nrolinha = WorksheetFunction.CountA([Dados!A:A]) + 1
Planilha2.Cells(nrolinha, 1) = [Sistema!C2]
Planilha2.Cells(nrolinha, 2) = [Sistema!C3]
Planilha2.Cells(nrolinha, 3) = [Sistema!C4]
[Sistema!C2:C4].Clear
MsgBox "Cadastrado com sucesso!"
End If
End Sub