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