none
Gerador de Carnê com Logos - Como excluí-las a partir do 2º carnê em diante ao clicar em um botão limpar carnê RRS feed

  • Pergunta

  • Boa tarde, 

    No meu gerador de carnê ao mandar gerar os carnês senti a necessidade de colocar uma logo da minha empresa definida como logo1.png no canto superior esquerdo do mesmo, quando mando gerar os carnês de acordo com a data do 1º vencimento que informo e a qtde de parcelas que quero é gerado os carnês juntamente com as logos, até aí tudo bem, mas o que quero é que quando eu clicar no botão 'Limpar Carnê' que executa uma função que percorre a partir de uma linha de intervalo que corresponde do 2º carnê em diante, os carnês são limpos/excluídos perfeitamente, porém, as logos não, se eu gerar 5 carnês, quando mando limpar, os 4 carnês são excluídos, porém, ficam as 4 imagens uma em cima da outra, acumuladas, não quero que exclua a 1ª img do carnê, e sim a partir do 2º carnê em diante, apenas dos carnês que estão gerados ali depois do 1º. Abaixo o código que faz a limpeza/exclusão dos carnês depois de gerados chamados pelo botão 'Limpar Carnês'.

    Sub LimparDadosCarne()
    Rows("18:18").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        ActiveWindow.SmallScroll Down:=-24
        
        Range("A1").Select
        
        PlanCliente.Select
    End Sub

    Agradeço pela atenção e quem possa me ajudar.

    Atenciosamente

    quinta-feira, 19 de julho de 2018 16:19

Todas as Respostas

  • Olá, boa noite.

    Estou entendendo que as imagens estão nas planilhas. Neste caso, com o mesmo comando que está utilizando é possível excluir as imagens, basta que nas propriedades das imagens esteja marcado "Mover e Dimensionar com Células". Se esta opção estiver marcada os objetos são excluídos junto com as células. Caso uma das outras duas opções seja marcada o objeto é preservado.

    Poderia testar?


    Filipe Magno

    quinta-feira, 19 de julho de 2018 22:48
  • Boa noite meu caro Filipe Magno,


    Foi além das minhas expectativas, resolveu meu problema, deu tudo certo com a sua resolução!

    Cordialmente e atenciosamente,

    Muito obrigado!

    quinta-feira, 19 de julho de 2018 23:16