Lucienne, Infelizmente, não consegui elaboar uma macro que faça isso. Espero que outro integrante aqui do fórum possa te ajudar.

Igualmente, Melque. Obrigado.

andrek78, Bom Dia! Obrigado. Por gentileza, siga as recomendações do amigo alexandrevba. Isso ajuda a todos nós do fórum a deixá-lo mais coerente,...

Marciel, O códigi foi desenvolvido de maneira a apanhar o nome do arquivo Amigos.mdb na mesma pasta onde estiver o arquivo do Excel. Ou seja: essa é ...

Wilmar, Infelizmente não tenho a menor idéia. Creio que você deva procurar saber como se chama o servidor de correio da sua empresa e utilizar esse n...

Infelizmente, não tenho idéia. Creio que você deva pergunta como é o nome do servidor de correio da sua empresa e utilizar esse nome.

Marciel, Boa Tarde! veja se esse pequeno exemplo que fiz ajuda a elucidar a sua dúvida. Consulta de Dados em mais de uma tabela.zip

Wilmar, no smtp aqui eu utilizo o institucional. "D001COR02" é o nome do meu servidor de correio, o qual funciona com o Microsoft Exchange.

Lucienne, Veja se assim atende a sua necessidade. Copiar Itens.zip

Nesse caso, creio que ao invés de você utilizar várias células para que seja determinado o código da ausência, você deve colocar apenas uma coluna, on...

Nesse caso, a fórmula então deverá ser essa abaixo: =SE(E10=6;H10;0)+SE(I10=6;L10;0)+SE(M10=6;P10;0)+SE(Q10=6;T10;0)+SE(U10=6;X10;0)+SE(Y10=6;AB10;0)...

Melque, Você precisa definir uma forma melhor de limpar os controles logo após gravar uma Nota. Veja: Na sua rotina btnGravar_Click() a última linha ...

Luciene, Da forma que você especifiou na sua mensagem, você não está copiando para as linhas abaixo como dito na sua mensagem, pois se A1 = ITEM1-ITE...

Acho que esse é um problema de referência a algum objeto que precisa existior no seu projeto. No momento, nã sei exatamente qual é o objeto mas estou ...

Wilmar, O que tenho aqui e que funciona perfeitamente bem é esse: Sub EMail() Dim msgf As String 'Configurando os dados do E-mail S...