salvando novo registro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

salvando novo registro

Mensagem por zesales em Seg Fev 24, 2014 8:24 am

estou construindo um formulário para cadastro de pacientes . só que ao inserir um novo paciente na planilha ele(os dados não estão sendo inseridos na próxima linha vazia, e sim ocupa aleatoriamente 7 ou 10 linhas adiante.
como resolver isso?
abaixo estão os comandos usados.
meu email é =- josesale@gmail.com
Private Sub SALVAR_Click()

totalregistro = Worksheets("plan1").UsedRange.Rows.Count + 1
With Worksheets("PLAN1")
.Cells(totalregistro, 1) = RGP
.Cells(totalregistro, 2) = NOME
.Cells(totalregistro, 3) = ENDEREÇO
.Cells(totalregistro, 4) = BAIRRO
.Cells(totalregistro, 5) = CIDADE
.Cells(totalregistro, 6) = nascimento
.Cells(totalregistro, 7) = DIAGNOSTICO
.Cells(totalregistro, Cool = OBS
End With
MsgBox "GRAVADO COM SUCESSO"

RGP = ""
NOME = ""
ENDEREÇO = ""
BAIRRO = ""
CIDADE = ""
nscimento = ""
DIAGNOSTICO = ""
OBS = ""
localizar = ""


End Sub

zesales
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 16/02/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: salvando novo registro

Mensagem por alexandrevba em Seg Fev 24, 2014 11:30 am

Boa tarde!!

Tem mandar seu arquivo modelo?

Caso sim, deposite-o em site gratuito como sendspace e nos mande o link!

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum