amigo paulocezar, Bom dia!

Segue conforme pedido... Abçr!

Caro xlarruda,

Muito obrigado (era exatamente o que eu estava precisando), que JESUS te abençoe e que você continue ajudando aos sofríveis como eu kkkk.

Um grande abraço e que 2018 seja cheio de bençãos pra você e sua familia.

Opa Obrigado! Desejo o mesmo pra você e sua família!

Se a resposta te atendeu, não se esqueça de marcar este tópico como Resolvido.. Até Mais!

xlarruda,

Pra o milagre ficar completo e o devoto ficar mais agradecido ainda, gostaria que você fazendo um grande favor, fizesse o seguinte:
- Quando clicasse no botão "Imprimir p/ Envio", a macro TRANSFERIR além de transferir os dados da linha 8 em diante da planilha PRESTACOES, copiasse tambem as celulas D3 e J1 da mesma planilha e colasse na planilha BDDADOS, nas colunas E e F respectivamente.

De já meus agradecimentos.

Paulo Cezar

Sub copiar()

Dim linha As Long

linha = 2

While ThisWorkbook.Sheets("BDDADOS").Cells(linha, 1).Value <> ""
ThisWorkbook.Sheets("BDDADOS").Cells(linha, 6).Value = ThisWorkbook.Sheets("prestacoes").Cells(1, 10).Value

ThisWorkbook.Sheets("BDDADOS").Cells(linha, 5).Value = ThisWorkbook.Sheets("prestacoes").Cells(3, 4).Value
linha = linha + 1

Wend
End Sub

klarc28 ,
Infelizmente não deu certo. O seu lançamento está inserindo no final da relação de nomes e tem que ser na frente de cada lançamento.
Fico no aguardo da sua correção. Fico muito grato por está me ajudando.

Paulo Cezar.

Acima há duas macros: Copiar e Copiar2. A primeira copia em todas as linhas preenchidas. A segunda somente em uma linha. Você testou as duas?

Meu caro klarc28,

Minhas desculpas. Deu certo, no capricho. muito obrigado.
Obs.: Como boto como concluido??? é no "vêzinho" verde????

Paulo Cesar

Pelo jeito você não leu os links com instruções do fórum, que eu postei no tópico da tua apresentação.

Veja como proceder para marcar o tópico com Resolvido e como agradecer aos colaboradores.

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

OBS.: Acho que já te conheço do Baboo

Meu velho e bom Patropi,

Você tem razão, na correria não reparamos nessas coisas, mas muito obrigado pelo puxão de orelha.

Obs.: Do Baboo não, você de me conhece de todos os fóruns do Brasil, pelo menos em todos os fóruns que entro vejo seu nome rolando por lá. Isso só mostra o quanto você é competente.

Um grande abraço e que JESUS abençoe seu ano novo, você e todos os participantes desse fórum.

Paulo Cézar

Destrancado por solicitação do autor do tópico

klarc28,

Após realizar vários lançamentos percebi que o conteúdo das células D3 e J1 da planilha PRESTACOES não está sendo lançado em cada lançamento e sim preenchendo toda a coluna E e F da planilha BDDADOS, isto é, preenchendo toda a coluna com o último lançamento.

Não tenho o seu conhecimento em VBA, mas não seria melhor alterar a macro TRANSFERIR do que utilizar outra macro coma função CALL???

Obs.: Planilha atualizada em anexo.

Paulo Cezar.

klarc28,

Minhas Desculpas. Me embananei todim. Deixa esclarecer definitivamente o que está acontecendo e você resolve com certeza. É o seguinte: A macro COPIAR2 que insere só uma linha está inserindo uma linha abaixo do ultimo lançamento, só isso, se resolver essa pedenga tá concluido.

Num esquente não que estou apredendo KKKK

Paulo Cezar.

Sub copiar2()

Dim linha As Long

linha = 1

While ThisWorkbook.Sheets("BDDADOS").Cells(linha, 1).Value <> ""

linha = linha + 1

Wend
linha = linha - 1
ThisWorkbook.Sheets("BDDADOS").Cells(linha, 5).Value = ThisWorkbook.Sheets("prestacoes").Cells(3, 4).Value
ThisWorkbook.Sheets("BDDADOS").Cells(linha, 6).Value = ThisWorkbook.Sheets("prestacoes").Cells(1, 10).Value


End Sub