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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
inserir dados em células em sequencia, e limitar a quantidade de linhas[RESOLVIDO]
inserir dados em células em sequencia, e limitar a quantidade de linhas[RESOLVIDO]
Editado pela última vez por kikoehu em Seg Mar 30, 2020 4:03 am, em um total de 1 vez.
Re: inserir dados em células em sequencia, e limitar a quantidade de linhas
kikoehu,
Veja se o modelo em anexo atende sua necessidade.
Aguardo retorno.
Veja se o modelo em anexo atende sua necessidade.
Aguardo retorno.
- Anexos
-
- modelov1.zip
- (19.17 KiB) Baixado 278 vezes