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 1379 ocorrências

por Reinaldo
Qui Jul 09, 2020 2:06 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: 2005

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

Uma possibilidade; experimente/teste: Sub Limpar_valores_fórmulas() Dim RangeToClear As Range Dim UserInput As String On Error GoTo strErro Set RangeToClear = Application.InputBox("Selecione as células que deseja limpar", Type:=8) UserInput = MsgBox("Confirma a exclusão? Esta operação não poderá ser...
por Reinaldo
Qui Jul 09, 2020 11:40 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Colorir linha do Listview de acordo com critério
Respostas: 5
Exibições: 599

Re: Colorir linha do Listview de acordo com critério

Rotina para colorir, com outra "escrita" Sub Colore() Dim Colunas As Integer, linhas As Integer Dim x As Integer, y As Integer Dim Azul As Integer, Verde As Integer, Vermelho As Integer On Error Resume Next With frmPesquisa Colunas = .lstLista.ColumnHeaders.Count - 1 linhas = .lstLista.ListItems.Cou...
por Reinaldo
Qua Jul 08, 2020 11:56 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Colorir linha do Listview de acordo com critério
Respostas: 5
Exibições: 599

Re: Colorir linha do Listview de acordo com critério

Pelo que entendi/pude observar, a "colorização" está sendo feita e a rotina e executada normalmente; porem o controle list... não está sendo atualizado em tela (se mover a barra para ver as demais colunas irá notar a colorização). O motivo desse "congelamento" não pude precisar, mas acrescentando a ...
por Reinaldo
Ter Jul 07, 2020 4:56 pm
Fórum: VBA Básico
Tópico: Fórmula SE no VBA
Respostas: 4
Exibições: 1562

Re: Fórmula SE no VBA

por Reinaldo
Seg Jul 06, 2020 11:25 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: 3231

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

Todos os arquivos aqui postado devem estar compactados (zip / rar/ 7z...)
por Reinaldo
Seg Jul 06, 2020 9:49 am
Fórum: VBA Básico
Tópico: Fórmula SE no VBA
Respostas: 4
Exibições: 1562

Re: Fórmula SE no VBA

Experimente algo +/- assim If Sheets("Plan1").Range("C2") <= Sheets("TabPc").Range("C4") Then SuaCelula.Value = Sheets("Plan1").Range("C2") * Sheets("TabPc").Range("D4") ElseIf Sheets("Plan1").Range("C2") <= Sheets("TabPc").Range("C5") Then SuaCelula.Value = (Sheets("Plan1").Range("C2") * Sheets("Ta...
por Reinaldo
Seg Jul 06, 2020 9:27 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: 3231

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

Um aparte, aparentemente "...linha 2 assumirem a condição "SIM"..." indica que essa condição é "escrita" por formula e não via input/digitação.
Valores em células alterados via formula não "disparam" o evento Change da planilha.
por Reinaldo
Dom Jul 05, 2020 6:28 pm
Fórum: VBA Básico
Tópico: Fórmula SE no VBA
Respostas: 4
Exibições: 1562

Re: Fórmula SE no VBA

Não entendi a demanda
por Reinaldo
Dom Jul 05, 2020 11:49 am
Fórum: VBA Básico
Tópico: Lista de Aniversariantes
Respostas: 4
Exibições: 2034

Re: Lista de Aniversariantes

Bem, de seu modelo inicial para o atual, mudou da agua para o vinho, isso afeta diretamente a rotina. Varios problemas: A definição "automática" do numero de colunas utilizadas ficou quebrada ao incluir na planilha a linha de Titulo A definição do dia ou mes de aniversario também ficou quebrado pois...
por Reinaldo
Sex Jul 03, 2020 8:02 pm
Fórum: Excel + Access
Tópico: Carregar Textbox com seleção Combobox
Respostas: 3
Exibições: 5851

Re: Carregar Textbox com seleção Combobox

Aparentemente sua sql está equivocada e imcompleta. Se deseja "informar" o Apto e retornar o Interfone creio que seria algo =/- assim: Sub Carrega_Interfones() ConnectDB Rs.Open "Select Codigo, CodBloco, Apto, Interfone from TbAptos where Apto = " & SeuCombobox.Value, Db, 3, 3 Me.txtInterfone.Text =...