Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 74 ocorrências

por pedrobb
Seg Mar 30, 2015 1:20 pm
Fórum: Geral
Tópico: Calcular Média Últimos 12 Meses
Respostas: 4
Exibições: 5059

Re: Calcular Média Últimos 12 Meses

Eu participo e gosto desses 2 fóruns, por isso os posts. Foi contrariada alguma regra? . A demanda: 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 de D ...
por pedrobb
Seg Mar 30, 2015 12:35 pm
Fórum: Geral
Tópico: relatório entre datas
Respostas: 2
Exibições: 2132

Re: relatório entre datas

Amigo,
Seguem 2 exemplos no anexo.
por pedrobb
Dom Mar 29, 2015 10:53 pm
Fórum: Geral
Tópico: Calcular Média Últimos 12 Meses
Respostas: 4
Exibições: 5059

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: 2703

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: 2703

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: 2703

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: 9961

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: 9961

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: 1955

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...
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: 1955

[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)?