Eduardo, Experimente sua macro, porém adaptada como segue: Sub ExportarAreaParaJPG()Dim tmpSheet As WorksheetDim tmpChart As ChartDim tmpIm...

humberto, Adicione em um módulo, o que se segue : Sub atualizaPreco(ByVal CodProduto As String, ByVal precoProd As Double) Dim planBase As Works...

ACG, Neste caso, você terá de executar uma nova consulta ao banco de dados, passando como parâmetro o valor do ComboBox, exemplo : Private Sub Combo...

willian, Segue modelo atualizado. Favor, teste e retorne.

willian, Este erro está ocorrendo, acredito eu, quando a rotina citada retorna os dados, ela está tentando converter possivelmente um valor nulo (em ...

willian, Repare nos módulos adicionados, que existem duas rotinas : Sub pesquisaAluno e Sub pesquisaAlunoListBox. Ambas, ao encontrar o registro na ...

guma, No botão / controle que chamará o segundo Form, experimente : Load nomeSegundoForm 'Passe os dados que desejar para 'cada campo deste Form nom...

Respondido e solucionado no fórum do Tomás http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=7378

RRMartins, Veja se a rotina abaixo atende sua necessidade. Sub indexarLista() Dim primeiraLinha, ultimaLinha, contador As Long With Thi...

roblua, Conforme o amigo Klark28 disse, repare nas instruções da rotina que Edita / Adiciona um registro : Sub EditAdd() Dim emptyRow As Long If Fr...

erik, Verifique a Function validarCPF existente nos módulos. Nela vai ter o seguinte trecho: If Not vPesquisa Is Nothing Then 'Adicione a linha abai...

erik, Veja se as alterações feitas no modelo, atendem sua necessidade. Download : https://www.sendspace.com/file/yl2xo1

kaioaraujo, Como não especificou se está utilizando controles de Formulário ou ActiveX, elaborei a rotina usando controles de Formulário. Favor, vej...

Fragoso, Veja se a opção que adicionei ao seu modelo, atende sua necessidade. Link : https://www.sendspace.com/file/l3r19m

Raike, Experimente : Sub Macro8() Dim valorPesquisado As String valorPesquisado= Range("G8") Sheets("FÉRIAS").Select Rang...