pbonavita

Obrigado @Muca Costa . Funciona perfeitamente. Vou tentar adaptar pra minha realidade. mais uma vez, obrigado.

@Muca Costa Obrigado. Então, fiz com o código que postou, porém quando executo ele me pede o nome do cliente O que eu preciso é que a consulta me traga todos os clientes com as datas das últimas 3 compras. Exemplo: Cliente A - Data 1 (última compra) Cliente A - Data 2 (penúltima compra) Cliente A - Data 3 (antepenúltima compra) Cliente B - Data 1 Cliente B - Data 2 Cliente B - Data 3 ... E assim por diante. Muito obrigado pela ajuda. Não sei usar muito o access, mas não tenho como fazer em Excel tem mais de 3 milhões de registros.

Bom dia pessoal. Preciso de uma ajuda de vcs mais uma vez. Seguinte. Tenho uma base no access onde tem um campo com o código do cliente e um campo com a data da venda do cliente. Eu preciso criar uma consulta que me traga o registro somente das 3 últimas datas de venda de cada cliente como tabela. Exemplo: Cliente 1 - venda em 13/06/2020 Cliente 2 - venda em 13/06/2020 Cliente 1 - venda em 10/06/2020 Cliente 1 - venda em 05/06/2020 Cliente 2 - venda em 05/05/2020 Cliente 1 - venda em 03/05/2020 Resultado esperado Cliente 1 - venda em 13/06/2020 Cliente 2 - venda em 13/06/2020 Cliente 1 - venda em 10/06/2020 Cliente 1 - venda em 05/06/2020 Cliente 2 - venda em 05/05/2020 Ele retiraria da consulta as datas mais antigas de cliente e somente me retornaria as ultimas 3 vendas. Alguém sabe me ajudar? Agradeço a ajuda.

Resolvi este problema. Adicionei o seguinte código logo abaixo Cells(Rows.Count, "C").End(3)(2) = "DS" & Format(Now, "ddmmyyhhmmss") n = False Meu código finalizado ficou assim. Public n As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If n Then Exit Sub 'itens 1 e 2 If Target.Column = 4 And Target.Value <> "" Then Cells(Target.Row, "F") = Me.Name Cells(Target.Row, "G") = Now If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = "PT" & Format(Now, "ddmmyyhhmmss") Cells(Target.Row, "C") = "NV" & Format(Now, "ddmmyyhhmmss") Else: Cells(Target.Row, "C") = "DS" & Format(Now, "ddmmyyhhmmss") End If 'itens 3 e 4 ElseIf Target.Column = 5 And Target.Value <> "" Then Cells(Target.Row, "H") = Now If Target.Value = "Designar" Then Cells(Rows.Count, "B").End(3)(2) = Cells(Target.Row, "B") n = True Cells(Rows.Count, "D").End(3)(2) = Cells(Target.Row, "D") n = True Cells(Rows.Count, "C").End(3)(2) = "DS" & Format(Now, "ddmmyyhhmmss") n = True Cells(Rows.Count, "F").End(3)(2) = Me.Name n = True Cells(Rows.Count, "G").End(3)(2) = Now n = False End If End If End Sub

@osvaldomp Obrigado Oswaldo, o código estava perfeito, ele não funcionava por completo pois no código estava a palavra designar tudo minúsculo e eu estava preenchendo com o D maiusculo. Obrigado mais uma vez pela ajuda e paciência em explicar. adicionado 14 minutos depois @osvaldomp Tive um problema, expliquei um pouco errado a tarefa 4. Além de copiar e colar as células informadas preciso que preencha na coluna C na linha em que foi colado os valores com DS + segundos, minutos, hora e data de agora. Já consegui formatar da forma que preciso. Segue abaixo a célula faltante. O restante esta tudo perfeito.

@osvaldomp Obrigado. Quase tudo funcionou. Já adaptei aqui. Só não funcionou a parte 4, em que precisa copiar e colar alguma células na linha debaixo. Acredito que seria esta parte do seu código. If Target.Value = "designar" Then Cells(Rows.Count, "B").End(3)(2) = Cells(Target.Row, "B") n = True Cells(Rows.Count, "D").End(3)(2) = Cells(Target.Row, "D") n = False End If Desculpe abusar, sou bem leigo com VBA. Poderia me explicar o que faz este código? Obrigado

@Kadu Du Acredito que não tenha como fazer a lista de validação com os dados fora da ordem. Precisará ser classificado. Poderia fazer uma macro para quando preencher alguma célula da coluna A ele classificaria automaticamente.

@ViniciusSacramento Se foi o que eu entendi você não precisa de SOMASES e sim de um SOMASE porque os dados da Coluna Uniorg da Sheet SIMPLIFICADO são iguais ao da Sheet RESUMO. Copie e cole esta fórmula na célula b2 da sheet simplificado e depois arrasta para o resto da planilha. =SOMASE(RESUMO!$B$1:$AR$1;SIMPLIFICADO!B$1;RESUMO!$B2:$AR2) Segue a sua planilha em anexo com a fórmula. Informe se é isso que precisa e se funcionou. Espero ter ajudado. ----.xlsx

@ViniciusSacramento Não entendi muito bem sua planilha. O que você quer somar nela? Poderia colocar um exemplo?

Boa tarde pessoal. Estou com uma dúvida que não consigo sanar. Seguinte, tenho um arquivo que preciso que preencha algumas células quando outra for preenchida. As regras seriam as seguintes: 1 - Quando o usuário preencher a coluna D (chamada) preencher a coluna F (Usuário) com nome da sheet e a coluna G (Inicio) com a data e hora do momento do preenchimento. 2 - Quando o usuário preencher a coluna D (chamada), verificar se a coluna B (Protocolo) esta vazia. Caso esteja vazia, preencher a coluna B com "PT" + segundos, minutos, hora e data de agora e preencher a coluna C (Ocorrencia) com "NV" + segundos, minutos, hora e data de agora. Caso a coluna B não esteja vazia preencher a coluna C (Ocorrência) com DS + segundos, minutos, hora e data de agora. Exemplo: Protocolo: PT250917200521 Ocorrência caso a coluna B esteja vazia: NV250917200521 Ocorrência caso a coluna B esteja preenchida: DS250917200521 3 - Quando o usuário preencher a coluna E (finalização), preencher a coluna H (Fim) com a data e hora do momento do preenchimento. 4 - Caso o usuário preencha a coluna E (finalização) com a palavra "designar", além de fazer a tarefa 3, preciso que copie os valores das células da linha correspondente das colunas B eD e cole nas mesmas colunas na próxima linha abaixo que estiver vazia. OBS: O Log da planilha ficar em uma coluna fora dos olhos de quem for preencher. OBS2 : A planilha será compartilhada na rede para acessos simultâneos OBS2: Cada usuário terá uma sheet própria, serão aproximadamente 20 usuários. Acho que é isso. Estou começando com VBA, aprendendo aos poucos. Segue em anexo o arquivo e uma foto para ilustrar. Estava adaptando este código abaixo para o meu arquivo, mas já deu erro! rs Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Cells(Target.Row, Target.Column).Value <> "" Then Cells(Target.Row, Target.Column + 56).Value = Now End If If Target.Column = 19 And Cells(Target.Row, Target.Column).Value <> "" Then Cells(Target.Row, Target.Column + 42).Value = Now End If If Target.Column = 4 And Cells(Target.Row, Target.Column - 2).Value = "" And Cells(Target.Row, Target.Column).Value <> "" Then Cells(Target.Row, Target.Column - 2).Value = Now End If End Sub Macro CH.zip

Tu é o cara @Midori. Funcionou perfeitamente. Obrigado pela ajuda!

Infelizmente não funcionou @Midori. Vou anexar uma planilha como exemplo aqui para ver se consegue me ajudar. Planilha Clube do Hardware.zip

Boa tarde pessoal. Estou iniciando no VBA e estou com uma dúvida que não consigo resolver. Adicionei em uma célula com validação de dados de lista, com os nomes de pessoas que podem ser escolhidas (Exemplo: Pablo, Igor e Teresa). Tenho hoje 1 macro diferente para cada pessoa e gostaria que ao selecionar o nome da pessoa executasse a macro correspondente. Ex: Selecionando na célula o nome "Pablo" execute a macro Pablo. PS: Hoje todas as macros correspondentes tem o mesmo nome das pessoas listadas na respectiva célula. Alguém consegue me salvar?

Bom pessoal, Instalei o BF2 FULL e ele roda perfeitamente no meu PC (config abaixo). Claro que não posso configurar tudo como high. Mas roda bem. Uma pergunta. Não existe mapas novos que possamos baixar, pois acho que tem muito poucos mapas no jogo single player. No agurado