Envio nao seria para enviar o email?? Da forma que vc esta fazendo esta carregando dentro da variavel Envio o valor da celula I4 Vc esta dizendo que...

o ero ja da no 1º .Envio If Sheets("MAPA").Range("F2").Value > 0 Then .Attachments.Add "C:UsersAndreDesktopPedidos...

Sub X_Lojas() 'Setting up the Excel variables. Dim olApp As Object Dim olMailItm As Object Dim iCounter As Integer Dim Dest A...

usei sim as 2 dicas que vc passou ve ai acima .

Dim Wmap As Worksheet Dim SEnvio As Variant Set Wmap = Sheets("Mapa") SEnvio = Wmap.Range("I4").Value Objeto nao aceita esta pro...

assim continua dando erro Dim sEnvio sEnvio = ActiveSheet.Range("I4").value em : .sEnvio trava aqui

Ainda bem que nao fechei ainda este tópico. Coloquei numa celula "I4", na mesma aba de "MAPA" o acrescimo da macro, porem esta da...

MPrudencio, matei aqui o problema. .Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").Range("F1...

Ola M.Prudencio, tem alguma dica pra isso aqui: .Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").R...

Suponha que vc tenha isso nas celulas 10 e 20 esse comando deve lhe retornar algo assim 1020 é isso mesmo que vc pretende? E a informação é pra pegar...

desculpe, mas é que sempre surge uma nova ideia, como ja estava fechado dai abri outro,

Concordo plenamente também , pois aqui no forum foram tiradas todas as minhas duvidas, e em muitas das vezes tive que lancar uma planilha modelo com o...

Bom dia , vou testar e te falo amigo. Andre

deu erro aqui na LInha . Recipients segue o codigo na linha Nao entendi essa linha , pois antes era .BCC = Sdest é pra ser com copoia oculta mesmo ...