Olá pessoal.
Estou montando meu primeiro programa de VBA através do excel. Tenho pouco conhecimento e estou aproveitando muito as dicas aqui do fórum, a galera manja muito!! Minha dúvida é a seguinte:
Criei um botão que executa um UserForm com 10 caixas de texto, neste UserForm criei o botão "salvarempresa", consegui esse código abaixo em uma vídeo-aula do youtube. Ele conta quantas linhas foram usada e grava os dados na próxima. Preciso que ele grave sempre na "Linha 2" e se tiver algo digitado nela, sobreponha. Outra coisa, gostaria de deixar esses 10 campos com preenchimento obrigatório, como fazer isso??
Private Sub salvarempresa_Click()
totalregistro = Worksheets("plan5").UsedRange.Rows.Count + 1
With Worksheets("plan5")
.Cells(totalregistro, 1) = nomeempresarial
.Cells(totalregistro, 2) = cnpjcpf
.Cells(totalregistro, 3) = fantasia
.Cells(totalregistro, 4) = logradouro
.Cells(totalregistro, 5) = numero
.Cells(totalregistro, 6) = bairro
.Cells(totalregistro, 7) = uf
.Cells(totalregistro, 8) = cidade
.Cells(totalregistro, 9) = responsavel
.Cells(totalregistro, 10) = telefone
nomeempresarial = ""
cnpjcpf = ""
logradouro = ""
fantasia = ""
numero = ""
bairro = ""
uf = ""
cidade = ""
responsavel = ""
telefone = ""
End With
MsgBox "Gravado com sucesso!"
End Sub
Minha dúvida deve ser meio besta, rsrsrs!!! Mas com essa informação vou conseguir acertar 5 userform de cadastro!!!
Abraços, obrigado!!! <o/
Postado : 07/06/2012 11:44 am