ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 107 ocorrências

por Wagner Morel
Seg Jul 06, 2020 8:47 am
Fórum: VBA Básico
Tópico: [RESOLVIDO] Chamar macro inserida em um módulo a partir de uma condição atendida
Respostas: 10
Exibições: 4388

Re: Chamar macro inserida em um módulo a partir de uma condição atendida

Anexa teu arquivo aqui que aí fica mais fácil de rodar e depurar pra saber o que tá havendo.
por Wagner Morel
Sáb Jul 04, 2020 7:53 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Chamar macro inserida em um módulo a partir de uma condição atendida
Respostas: 10
Exibições: 4388

Re: Chamar macro inserida em um módulo a partir de uma condição atendida

João, Boa noite! Se for para qualquer célula da coluna B, a partir da linha 2, o código é esse: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count > 1 Then Application.EnableEvents = True Exit Sub End If If Target.Row => 2 And Target.Column = 2 Then ...
por Wagner Morel
Sáb Jul 04, 2020 7:46 pm
Fórum: VBA Básico
Tópico: Erro em tempo de execução '424' quando clica-se na opção 'Cancelar' em um Application.InputBox
Respostas: 5
Exibições: 3056

Re: Erro em tempo de execução '424' quando clica-se na opção 'Cancelar' em um Application.InputBox

joaoemduvida, Boa Noite! Você pode fazer assim: Sub Limpar_valores_e_fórmulas() Dim TestaPreenchimento As Variant Dim RangeToClear As Range TestaPreenchimento = Application.InputBox("Selecione as células que deseja limpar") If TestaPreenchimento <> "" And TestaPreenchimento <> False Then Set RangeTo...
por Wagner Morel
Sex Jun 05, 2020 3:59 pm
Fórum: VBA Básico
Tópico: Escrever Data do Datetimepicker no excel
Respostas: 3
Exibições: 1401

Re: Escrever Data do Datetimepicker no excel

andrefalex,

Boa tarde!

Para levar o resultado para a planilha ao escolher a data basta usar dessa forma:

Código: Selecionar todos

Private Sub DTPicker1_Change()
    Range("A2").Value = DTPicker1.Value
End Sub
A outra necessidade comentada eu não entendi...
por Wagner Morel
Seg Jun 01, 2020 10:32 am
Fórum: VBA Básico
Tópico: Salvar item do Outlook no computador
Respostas: 1
Exibições: 1596

Re: Salvar item do Outlook no computador

Pessoal, bom dia! Agradeço a todos que leram e que tentaram, de algum modo, ajudar. Pesquisei um pouco mais e após gastar mais alguns neurônios, achei a solução. Segue abaixo para quem tiver a mesma necessidade em algum momento: Sub SaveEmailNoComputador() '==========================================...
por Wagner Morel
Seg Jun 01, 2020 7:14 am
Fórum: Freelancers e Serviços
Tópico: Soluções em VBA Excel
Respostas: 4
Exibições: 3095

Re: Soluções em VBA Excel

Obrigado Reinaldo. Valeu!
por Wagner Morel
Sáb Mai 30, 2020 5:26 pm
Fórum: Freelancers e Serviços
Tópico: Soluções em VBA Excel
Respostas: 4
Exibições: 3095

Soluções em VBA Excel

Boa tarde pessoal! A quem possa interessar, trabalho com o desenvolvimento de pequenas soluções em VBA para Excel. Os preços são bem baixos e, dependendo do nível de complexidade e do esforço de desenvolvimento da solução, poderá variar na faixa de R$ 20,00 a R$ 100,00. Se lhe interessar, você me en...
por Wagner Morel
Sáb Mai 30, 2020 1:18 pm
Fórum: VBA Básico
Tópico: Salvar item do Outlook no computador
Respostas: 1
Exibições: 1596

Salvar item do Outlook no computador

Pessoal, Boa tarde! Sei que não temos uma área própria para desenvolvimento de VBA em Outlook e, por essa razão estou colocando essa dúvida aqui. Preciso de um código VBA para Outlook que salve os itens lidos e já fechados que estão na pasta Itens Enviados do Outlook, em qualquer pasta no computador...
por Wagner Morel
Ter Mai 19, 2020 3:14 pm
Fórum: VBA Básico
Tópico: BUSCAR PASTA
Respostas: 1
Exibições: 705

Re: BUSCAR PASTA

tiagoljr, Boa tarde! Não sei se entendi corretamente mas... vamos lá: 1 e 2 - Seria algo assim para colocar o resultado em C1 da aba chamada Plan1: Sheets("Plan1").Range("C1").Value = Sheets("Plan1").Range("A1").Value & " " & Sheets("Plan1").Range("B1").Value 3 e 4 - Seria algo assim para abrir a ca...
por Wagner Morel
Ter Mai 19, 2020 7:33 am
Fórum: VBA Básico
Tópico: Fazer cancelamentos de itens alterados em Listbox
Respostas: 1
Exibições: 602

Re: Fazer cancelamentos de itens alterados em Listbox

anexe seu arquivo e explique melhor sua necessidade.