Este fórum está sendo desativado

[douglasgoulart40]

Boa tarde!
Gostaria de saber ou quem puder me ajudar, fazer uma validação que, ao aparecer a caixa do Inputbox e ao clicar no campo vazio, fornecer uma mensagem de campo obrigatório e logo após aparecer novamente para digitar. Vou colocar o código aqui:

Sub cadastro_agenda()

nome = InputBox("Digite o nome:")
telefone = InputBox("Digite o telefone:")
setor = InputBox("Digite o setor:")

lin = Range("A1").End(xlDown).Row + 1

Cells(lin, 1) = nome
Cells(lin, 2) = telefone
Cells(lin, 3) = setor

Espero que possam me dar essa luz! Forte abraço!

End Sub

[babdallas]

Código: Selecionar todos

Option Explicit

Sub cadastro_agenda()
    Dim vrtNome         As Variant
    Dim vrtTelefone     As Variant
    Dim vrtSetor        As Variant
    Dim lngLin          As Long
    
    With wshTeste
        Do
            vrtNome = InputBox("Digite o nome:")
        Loop While vrtNome = vbNullString
        
        Do
            vrtTelefone = InputBox("Digite o telefone:")
        Loop While vrtTelefone = vbNullString
        
        Do
            vrtSetor = InputBox("Digite o setor:")
        Loop While vrtSetor = vbNullString
        
        lngLin = .Range("A1").End(xlUp).Row + 1
        
        .Cells(lngLin, 1) = vrtNome
        .Cells(lngLin, 2) = vrtTelefone
        .Cells(lngLin, 3) = vrtSetor
    End With
End Sub