MPrudencio, Bom dia! Seria algo parecido com isso? Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String) ' inserts new c...

vonzuben, Que bom que resolveu!. Se possível, poste a solução do problema. Assim todos que tiverem dúvidas semelhantes, terão acesso a uma solução. ...

vonzuben, Após a linha Selection.PasteSpecial adicione Selection.ClearContents para limpar a nova linha. Abs

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...