Acho que ele da erro pois na sua tabela não existe célula em branco. Gravei uma macro marcando células em branco e gravou fui rodar a macro e da o mes...

xlarruda, pelo que eu entendi do código do JNEXCEL ele esta verificando se na célula "A2" é igual a 123456789. Se for é para copiar a Tabela...

Veja se é isso. Sub executa() Dim wsheet As Worksheet Dim countlin As Long Set wsheet = Sheets("Plan1") wsheet.Select countlin = wsh...

Tente declarar conforme abaixo e veja se funciona. #If VBA7 Then Declare PtrSafe Function FindWindow32 Lib "user32" Alias "FindWindowA...

Uma coisa que já reparei no excel toda vez que mexe no arquivo personal ele sempre pergunta se deseja salvar as alterações. Pode ter somente a janela ...

Boa tarde!! Fiz duas alterações no código a primeira é para enviar pelo número do celular no lugar do nome do contato tive que alterar a parte do cód...

Aqui não deu erro. So não enviou o email pois meu outlook não esta configurado.

Sua planilha não tem código nenhum.

O problema era os nomes dos retângulos. Segue arquivo. https://mega.nz/#!HNgWnYjC!5mreGH9yzN9y4AkTxTSoocL-cndcWOoSo15fnX_ze8Y

lulenunes, veja se é isso que precisa. O problema era que a tabela 3 estava fixa, inclui na macro sua o código para redimensionar a tabela 3.

Bom dia!! Sua planilha esta bloqueada para visualização do vba. Não aparece opção para retirar senha.

É so inserir o PtrSafe Private Declare PtrSafe Function SendMessage....

Aqui funcionou a macro, não deu erro.

Boa tarde!! joragen, fiz uma opção com formatação condicional sem macro e outra por macro mas um pouco diferente do que você pediu veja qual te atend...

Anderson, tente assim: Sub Imprimir() Dim copias Sheets("Relatório").Select Range("a1:h47").Select copias = Input...