Excel Cadastrar Nota com loop

[Valdinei_ATS_Info]

Olá pessoal. Sou novo no fórum, mas sempre que encontro algo no canal, consigo as informações que preciso.

O sistema da minha loja é todo por excel e com varios userforms que em determinado botão jogam os dados das textbox para a planilha determinada. Até ai beleza.

Mas um userform "Cadastrar nota fiscal", tem informações de:  numero NF, data, fornecedor, produto, qtde, valor unitario, valor total e valor total da NF.

Só que são 12 linhas de itens, e quero aumentar para uns 2 . E o código fica muito extenso:

 

Dim UL1, UL2, UL3, UL4, UL5, UL6, UL7, UL8, UL9, UL10, UL11, UL12 As Long 'UL = ultimalinha preenchida
Dim data As Date
data = txtData
UL1 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 1
UL2 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 2
UL3 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 3
UL4 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 4
UL5 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 5
UL6 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 6
UL7 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 7
UL8 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 8
UL9 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 9
UL10 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 10
UL11 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 11
UL12 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 12


If txtQtde1 <> "" Then
Cells(UL1, 1).Value = txtFornecedor
Cells(UL1, 2).Value = CDbl(txtNF)
Cells(UL1, 3).Value = data
Cells(UL1, 4).Value = txtProduto1
Cells(UL1, 5).Value = txtQtde1
Cells(UL1, 6).Value = "ENTRADA"
Cells(UL1, 7).Value = CDbl(txtValorUnit1)
Cells(UL1, 8).Value = CDbl(txtValorTotal1)

If txtQtde2 <> "" Then
Cells(UL2, 1).Value = txtFornecedor
Cells(UL2, 2).Value = CDbl(txtNF)
Cells(UL2, 3).Value = data
Cells(UL2, 4).Value = txtProduto2
Cells(UL2, 5).Value = txtQtde2
Cells(UL2, 6).Value = "ENTRADA"
Cells(UL2, 7).Value = CDbl(txtValorUnit2)
Cells(UL2, 8).Value = CDbl(txtValorTotal2)

 

e vou acrescentando mais um código até chegar no 12

 

queria fazer uma programação por loop mas não acho nada na net de acordo com minha necessidade.

 

tentei assim mas não funciona:

dim UL1 as long

UL1 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 1

for i = 1 to 12

If txtQtde & i  <> "" Then
Cells(UL1, 1).Value = txtFornecedor
Cells(UL1, 2).Value = CDbl(txtNF)
Cells(UL1, 3).Value = data
Cells(UL1, 4).Value = txtProduto & i
Cells(UL1, 5).Value = txtQtde1
Cells(UL1, 6).Value = "ENTRADA"
Cells(UL1, 7).Value = CDbl(txtValorUnit & i)
Cells(UL1, 8).Value = CDbl(txtValorTotal & i)

end if

next i

 

Desculpe se foi longo o post mas imagina meu codigo aqui. E agora to querendo adicionar frete, valor unitario com frete e valor total com frete para cada item. dai da muito trabalho a cada novo item a adicionar..

 

escolha os arquivos... Cique para escolher arquivos

[Visitante]

Em 12/01/2019 às 08:56, Valdinei_ATS_Info disse:

Só que são 12 linhas de itens, e quero aumentar para uns 2 .
 

 

Sugestão: disponibilize uma amostra do seu arquivo Excel (imagens não servem) com os Forms e os códigos instalados.

Informe também qual o seu objetivo ao disponibilizar o print abaixo.

A propósito, print idêntico foi postado por outro usuário também (link abaixo) ...

Em 12/01/2019 às 08:56, Valdinei_ATS_Info disse: