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

por pedrobb
Dom Mar 29, 2015 10:53 pm
Fórum: Geral
Tópico: Calcular Média Últimos 12 Meses
Respostas: 4
Exibições: 2350

Calcular Média Últimos 12 Meses

Pessoal, Como no exemplo anexo, preciso do seguinte: Na Coluna B, tenho data. Na Coluna C, tenho Peso. . Na Coluna D, preciso dos últimos 12 meses da coluna B (Exemplo: Mar/2015, Fev/2015, Jan/2015, Dez/2014, etc.....) Na coluna E, preciso da Média dos Pesos cadastrados na coluna C referente ao Mês ...
por pedrobb
Sáb Mai 17, 2014 4:23 pm
Fórum: VBA Básico
Tópico: Localizar e Deletar Zero [Resolvido]
Respostas: 3
Exibições: 1017

Re: Localizar e Deletar Zero [Resolvido]

Resolvido com Função de Reinaldo:

Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
por pedrobb
Sáb Mai 17, 2014 4:23 pm
Fórum: VBA Básico
Tópico: Localizar e Deletar Zero [Resolvido]
Respostas: 3
Exibições: 1017

Re: Localizar e Deletar Zero

Resolvido com Função de Reinaldo:

Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
por pedrobb
Sex Mai 16, 2014 9:30 pm
Fórum: VBA Básico
Tópico: Localizar e Deletar Zero [Resolvido]
Respostas: 3
Exibições: 1017

Localizar e Deletar Zero [Resolvido]

Pessoal, No Intervalo T2:U25 preciso de função que Localize célula(s) com Valor(es) igual a Zero e Delete-o(s). Mas, é para localizar e deletar Zeros somente a partir do último Valor diferente de Zero, como no exemplo abaixo: Intervalo [T2:U25] T..............U  Out/13.......8.400 Nov/13.......0 (nã...
por pedrobb
Seg Abr 28, 2014 9:37 pm
Fórum: VBA Básico
Tópico: Erro 13 Tipos Incompatíveis em Form
Respostas: 2
Exibições: 7309

Re: Erro 13 Tipos Incompatíveis em Form

Obrigado, Rafael.
Era isso mesmo.
Grato,
Pedro
por pedrobb
Sáb Abr 26, 2014 9:17 am
Fórum: VBA Básico
Tópico: Erro 13 Tipos Incompatíveis em Form
Respostas: 2
Exibições: 7309

Erro 13 Tipos Incompatíveis em Form

Tá dando o erro: Erro em tempo de execução '13': Tipos incompatíveis. FIM ou DEPURAR.
Ocorre ao fechar o formulário.
Ao depurar, na rotina de Cálculo do CPF, mostra a linha: total = total + Mid(Numero, i, 1) * fator, da função calculadigito.

Espero ajuda,
Pedro
por pedrobb
Qui Mar 13, 2014 9:33 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Exportar Valor para Outra Planilha
Respostas: 2
Exibições: 718

Re: Exportar Valor para Outra Planilha

Consegui: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim KeyCells As Range Dim L As Integer Set KeyCells = Range("E17") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing And Range("E17").Value <> "" Then L = Application.WorksheetFunc...
por pedrobb
Qui Mar 13, 2014 8:35 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Exportar Valor para Outra Planilha
Respostas: 2
Exibições: 718

[RESOLVIDO] Exportar Valor para Outra Planilha

Em Vba, como devo fazer para Exportar o valor da célula E17 (planilha Menu) para a última célula vazia da Coluna C (da planilha Dados)?
por pedrobb
Sáb Jul 28, 2012 12:54 pm
Fórum: VBA Básico
Tópico: Validação de Dados
Respostas: 8
Exibições: 2360

Re: Validação de Dados

Very Good!
Isso mesmo que eu precisava.
Obrigado, amigo.
Pedro
por pedrobb
Sáb Jul 28, 2012 8:37 am
Fórum: VBA Básico
Tópico: Validação de Dados
Respostas: 8
Exibições: 2360

Re: Validação de Dados

JoseA, Obrigado pela ajuda. Tá dando conflito, pois já tenho a Worksheet_Change abaixo: Private Sub Worksheet_Change(ByVal Target As Range) If Not Range("A15") Is Nothing Then If Range("a15") = "PARABÉNS!" Then Alarme1 End If If Range("a15") = "" Then Sheets("Dados").Label2.Visible = False End If En...