Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Especificar Linha p/ Inserir Dados de UserForm

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Especificar Linha p/ Inserir Dados de UserForm

Mensagem por fabiodias »

Tomaz,
continuando a conversa do topico de melhorando a planilha... to criando esse topico para minha duvida em especifico.

seguinte, criei um botao para abrir o form de cadastro de nome, email e setor. Baseado em uma planilha sua de "Modelo de Cadastro".

o problema é que quando digito os dados no form q clico em adicionar, ele adiciona na linha 61, sendo q deveria começar da linha 2, por que a 1 é onde tem os títulos.

A coluna sei que muda nesse código:

Option Explicit

Const colCodigoCoordenador As Integer = 1
Const colCoordenador As Integer = 2
Const colSetor_Coordenador As Integer = 3
Const colEmail_Coordenador As Integer = 4
Const indiceMinimo As Byte = 2
Const corDisabledTextBox As Long = -2147483633
Const corEnabledTextBox As Long = -2147483643

Private wsCadastro As Worksheet
Private indiceRegistro As Long


mas e a linha?
onde que eu especifico que tem q comecar da linha 2?
lembrando q o Form ta na planilha "controle" e os dados tao sendo inseridos na planilha "cadastro".


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Especificar Linha p/ Inserir Dados de UserForm

Mensagem por webmaster »

Fabio,

Não especifica. Veja o código que insere um novo registro:

Código: Selecionar todos

    'Novo
    If optNovo.Value Then
        proximoId = PegaProximoId
        'pega a próxima linha
        Dim proximoIndice As Long
        proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
        Call SalvaRegistro(proximoId, proximoIndice)
        txtCodigoFornecedor = proximoId
        lblMensagem.Caption = "Registro salvo com sucesso"
    End If
A linha em destaque é a "proximoIndice = wsCadastro.UsedRange.Rows.Count + 1". Ele usa a função UsedRange para contar as linhas ocupadas na planilha. Por isso disso no outro post que a planilha de dados tem que estar limpa de todo e qualquer formato. Mesmo uma formatação pode acusar uma linha usada na hora de executar o UsedRange.

Abraços


Darci Souza
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Sex Mai 07, 2010 3:43 pm

Re: Especificar Linha p/ Inserir Dados de UserForm

Mensagem por Darci Souza »

Caro,
Tomás!

Estou vendo somente agora esse tópico, mas me interessou.
Nesse caso, os dados serão inseridos na sequencia, a cada vez que solicitar a gravação.
Pergunto: É possível fazer isso, com mais de uma linha simultanea., ou seja , em uma unica gravação, inserir dados em duas ou mais linhas?

Grato


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Especificar Linha p/ Inserir Dados de UserForm

Mensagem por webmaster »

Darci,

Só haveria alguma implicação ou problema caso houvessem acessos simultâneos no momento da gravação da planilha. Se ela for mono-usuário, não há com o que se preocupar.

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder