Tente usar o "With ..." With Sheets("CONSOLIDA") .Activate .Cells.find(What:=Sheets("JUNTADA")�...

jcerbaro, tente inserir no corpo do email (HTMLBody), o endereço da sua imagem png: Dim SuaImage As sting: image = "http://sitedaimag...

Henrique, já tentou usar a biblioteca Cdo ? Segue ex.: http://www.rondebruin.nl/win/s1/cdo.htm

Bom veja se é isso... Acrescentei a formatação do cnpj/cpf na coluna B, e formatação na nomenclatura das colunas. E pelo que entendi voce quer inserir...

Segue um exemplo veja se consegue adaptar: Sub Inseri_FurmulaSUM() Dim LastRow As Long LastRow = Range("A1048576").End(xlUp).Ro...

Bom veja se é isso... Acrescentei a formatação do cnpj/cpf na coluna B, e formatação na nomenclatura das colunas. E pelo que entendi voce quer inserir...

Na verdade isso acontece quando se usa o metodo "Pictures.Insert" Para não acontecer isso, use: "AddPicture" Exemplo: ' Ao inve...

Tenho este modelo que fiz para outra situação que adaptei ao seu caso. A macro cria as 'abas' caso ainda nao existam, copia os dados para as abas, cas...

Da forma que o Trindade fez, seria um boa opção. Se o usuario inserir um email invalido, retorna um valor vazio e muda a cor de fundo do seu Textbox: ...

@ViiSanches Veja este topico: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=17252

Veja se essa udf lhe atende Se o email for invalido retorna Empty. -> Sugestao de uso : TextBox1.Text = EMAIL(Me.TextBox1.Text) ...

MLuna, segue em anexo um modelo. Nunca testei p/ esta qtd de abas, nao é de minha autoria, nao sei se vai suportar...de qq forma me parece ser eficie...

Se puder postar sua planilha ou um modelo, fica mais facil investigar como disse o mauro pode ser varias coisas eh dificil opnar por suposicoes.

bom dia, segue a macro: Sub DeleteIntervalosNomes() ' * essa macro deleta todos interalos da pasta de trabalho Dim wb As Workbook Dim nN As ...

Imagino que tenha que dar um find através de um campo único (pensei em telefone) para puxar os outros dados, mas ainda não encontrei uma forma de faze...