vonzuben, Experimente o código abaixo: Sub addLinha() With ThisWorkbook.Sheets("Financeiros") .Activate Rows...

ANGELOLIMA, Que bom que ficou como esperava. Grato, Abs

ANGELOLIMA, A impressão foi feita como desejado? Não saiu mais o texto da pergunta impresso? Seria problema para você, não existir esta pergunta? Ab...

ANGELOLIMA, Entendi perfeitamente agora.. Baixei novamente seu modelo (o ultimo que poste com as alterações), mandei imprimir uma das abas e não con...

wquintela, Veja se o modelo em anexo atende suas necessidades. Abaixo o código que faz a mágica. Private Sub OptionButton1_Click() If OptionButt...

ANGELOLIMA, Se for isso mesmo, faça o seguinte: Abra o editor do VBA e localize o módulo mdl_Imprimir; Dentro deste módulo, temos a rotina imprimir_...

ANGELOLIMA, Não entendi muito bem sua pergunta. Você quer retirar esta pergunta antes de imprimir? Aguardo retorno Abs

Jean, Esta dropdown é do tipo ActiveX ou formulário? Caso seja ActiveX, habilite o modo de designna barra de ferramentas Desenvolvedor, ao lado do b...

Franz66, Faça o seguinte : Inicie o Excel em branco (sem planilhas) e abra o editor do VBA, depois abra sua planilha, volte para a tela do editor do...

ODRACIR, Boa noite! Segue em anexo seu modelo. Teste e retorne ok? Abs

ANGELOLIMA, Refiz seu modelo e agora tudo funciona a contento. Realmente havia um erro no código, acabei esquecendo de adicionar um parâmetro, mas a...

Lorenzon, Experimente alterando a seguinte linha : If lslista.ListItems(i).Checked = True And Me.lslista.SelectedItem.Sub...

Delean, Experimente o seguinte : Clique com o botão direito sobre o controle e vá em Formatar controle; Na guia Tamanho marque a opção Fixar proporç...

André, Tentei assim e funcionou Dim vCel, vCel1 As String vCel = Sheets(aba).Range("AS20") vCel1 = Sheets(aba).Range("AS24&...

Andre, Experimente o que o mestre falou. Caso não atenda, experimente alterar a string corpo para: corpo = Sheets(aba).Range("AS20")...