GERAR CARNÊS BASE QUANTIDADE DE PARCELAS  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

GERAR CARNÊS BASE QUANTIDADE DE PARCELAS

Mensagempor evedelmiro » Seg Jan 15, 2018 12:13 pm

Pessoal, boa tarde!

Preciso de uma grande ajuda de vocês.

No arquivo anexo contém um modelo e um formulário para geração de carnês, preciso de um código que com base na quantidade de parcelas e data da primeira parcela, seja gerado um quantidade de folhas de carnês para pagamento, alterando em cada folha as datas de vencimento (Célula B2 e E2) e número de parcelas (Célula A5 e E7), por exemplo : na folha 1 (1/12), na folha 2 (2/12). Estas folhas de parcelas deverão estar na mesma "aba", e se possível ajustada ao modo de impressão

Apenas estes campos serão alterados, as demais folhas permanecerão com os dados da primeira.

Desde já muito obrigado!

Everton Delmiro
Você não está autorizado a ver ou baixar esse anexo.
evedelmiro
Membro
Membro
 
Mensagens: 2
Registrado em: Seg Jan 15, 2018 12:06 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: GERAR CARNÊS BASE QUANTIDADE DE PARCELAS

Mensagempor Mauro Coutinho » Seg Jan 15, 2018 12:35 pm

evedelmiro, uma sugestão, como você já tem o espelho do recibo, poderia gerar os dados que precisa em uns campos ocultos na própria aba ou em uma outra e ao enviar para impressora ir preenchendo o espelho e imprimindo, assim não precisaria criar vários recibos.
Se pesquisar no forum, temos alguns modelos para criação de parcelas e outros para impressão conforme quantidades variáveis.

[]s
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.

For this post the author Mauro Coutinho thanked:
evedelmiro (Seg Jan 15, 2018 12:36 pm)
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3934
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1447 times

Re: GERAR CARNÊS BASE QUANTIDADE DE PARCELAS

Mensagempor Patropi » Seg Jan 15, 2018 12:37 pm

Boa tarde Everton

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8719
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 212 times
Have thanks: 3450 times

Re: GERAR CARNÊS BASE QUANTIDADE DE PARCELAS  [Resolvido]

Mensagempor evedelmiro » Ter Jan 16, 2018 1:58 pm

Pessoal, consegui o código. Ficou assim:

Código: Selecionar todos
Private Sub btnGerarCarne_Click()

Call Macro2

Dim qtdeParc As Integer
    Dim dataVenc As Date
    Dim x As Integer
   
    'Desabilita os saltos de macro
    Application.ScreenUpdating = False
   
    'Obtém o valor das parcelas
    qtdeParc = CInt(txtQtdParc)
    dataVenc = CDate(txtDataPriParc)
   
    'Determina o ponto inicial
    Range("A1").Activate
    Range("E2") = DateAdd("m", -1, dataVenc)
    Range("E7") = 1 & " de " & Str(qtdeParc)
    Range("E8") = txtValParc
    'Cria o Loop que percorre a quantidade de parcelas
    For x = 2 To qtdeParc
        Range("1:10").Copy
        Range("A" & Rows.Count).End(xlUp).Offset(2, 0).PasteSpecial xlPasteAll
        ActiveCell.Offset(1, 3) = DateAdd("m", x - 1, dataVenc)
        ActiveCell.Offset(6, 3) = x & " de " & Str(qtdeParc)
        ActiveCell.Offset(7, 3) = txtValParc
    Next x
    'Habilita os saltos de macro
    Application.ScreenUpdating = True
   
    'Mensagem
    MsgBox "Parcelas Geradas com Sucesso!!!"

End Sub
evedelmiro
Membro
Membro
 
Mensagens: 2
Registrado em: Seg Jan 15, 2018 12:06 pm
Has thanked: 1 time
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes