Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

inserir dados em células em sequencia, e limitar a quantidade de linhas[RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
kikoehu
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 14, 2018 11:31 pm

inserir dados em células em sequencia, e limitar a quantidade de linhas[RESOLVIDO]

Mensagem por kikoehu » Dom Mar 29, 2020 10:07 am

Olá a todos;
Tenho o seguinte código para inserir dados na minha planilha, porém, necessito que a inserção se limite a apenas 9 linhas a partir da linha 37, podem me ajudar?
segue código:
Private Sub CommandButton3_Click()
Dim lin As Integer
'valor inicial da variavel lin
lin = 37
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 1).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 2).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 3).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 5).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 7).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 8).Value = Empty
lin = lin + 1
Loop
Do Until ThisWorkbook.Sheets("planilha1").Cells(lin, 9).Value = Empty
lin = lin + 1
Loop

ThisWorkbook.Sheets("planilha1").Cells(lin, 1).Value = txtnf.Value
ThisWorkbook.Sheets("planilha1").Cells(lin, 2).Value = TXTCOD.Value
ThisWorkbook.Sheets("planilha1").Cells(lin, 3).Value = TXTMAT.Value

ThisWorkbook.Sheets("planilha1").Cells(lin, 5).Value = TXTLOTE.Value
ThisWorkbook.Sheets("planilha1").Cells(lin, 7).Value = TXTQTD.Value
ThisWorkbook.Sheets("planilha1").Cells(lin, 8).Value = TXTFAB.Value
ThisWorkbook.Sheets("planilha1").Cells(lin, 9).Value = TXTVAL.Value
End Sub
Editado pela última vez por kikoehu em Seg Mar 30, 2020 4:03 am, em um total de 1 vez.



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.


srobles
Jedi
Jedi
Mensagens: 778
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: inserir dados em células em sequencia, e limitar a quantidade de linhas

Mensagem por srobles » Dom Mar 29, 2020 6:19 pm

kikoehu,

Veja se o modelo em anexo atende sua necessidade.

Aguardo retorno.
Anexos
modelov1.zip
(19.17 KiB) Baixado 67 vezes


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].


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