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

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 »

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: 805
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 »

kikoehu,

Veja se o modelo em anexo atende sua necessidade.

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


kikoehu
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 14, 2018 11:31 pm

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

Mensagem por kikoehu »

Obg ajudou sim!


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