Delean, Experimente o seguinte : Clique com o botão direito sobre o controle e vá em Formatar controle; Na guia Tamanho marque a opção Fixar proporç...

André, Tentei assim e funcionou Dim vCel, vCel1 As String vCel = Sheets(aba).Range("AS20") vCel1 = Sheets(aba).Range("AS24&...

Andre, Experimente o que o mestre falou. Caso não atenda, experimente alterar a string corpo para: corpo = Sheets(aba).Range("AS20")...

Miguel70, Você precisa que a pesquisa seja feita através de um ComboBox? Caso negativo, veja o exemplo em anexo que utiliza um TextBox. A pesquisa é ...

ANGELOLIMA, Segue em anexo, seu modelo com as funções que solicitou. Só não ficou claro a questão de IMPRIMIR. Quando você diz página, seria uma pág...

wally, Uma opção seria para fazer isso, seria você fazer um Find para verificar se determinado curso já existe na planilha. Ex : Sub preencher() ...

asampras, Esqueci do anexo. Abs

asampras, Peço desculpas pelo inconveniente. Não me atentei ao fato de que você queria gravar valores na base. Refiz o código para gravar as informa...

ANGELOLIMA, Segue em anexo seu modelo editado conforme o que solicitou. Abs

asampras, Verifique se não é por causa do tipo de formatação da célula. As vezes, devido ao formato, o dado pesquisado pode não bater com o que está ...

ANGELOLIMA, Baixei seu modelo, e estou analisando o mesmo ok? Já consertei o código de carga das imagens e mais algumas funções, porém levará um tem...

asampras, Segue em anexo seu modelo. Favor lembre-se : Sempre que anexar aquivos no fórum, compacte o mesmo com extensão .zip, .rar, .7zp, OK? Qua...

Samuel9696, Vamos lá: 1ª linha : Define com Set e cria um objeto para conexão á banco de dados, utilizando a classe do tipo ADODB 2ª linha : Define ...

XDinho, Existem diversas maneiras para se obter os pc's em uma rede. Uma delas seria escrever um script .VBS e chamá-lo pelo vba, outra seria a que s...

André, Isso aí cara!!! Que bom que correu como desejado! Abs