Para procurar em um intervalo: * Altere o intervalo de coluna que deseja em -> .Range("B2:Z2") With Sheets("CONSOLIDA") ....

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