Charley Rocha

Bom, eu não conheço o negócio do @LuizLeal, então não sei se a coluna A faz parte da nomenclatura dos clientes. Olhando para a planilha, eu considerei que apenas as colunas B e C formavam a nomenclatura dos clientes. Sob essa óptica, são 23 registros; Agora, se a coluna A também conta, aí são 28.

@Patropi Acho que a soma é 23, e não 21. Observe que os clientes "B" são 3: (19,20,24) e não 1 como consta na sua planilha. Amanhã cedo anexo a minha pra ele. Ficou no escritório.

@LuizLeal Estou bem próximo de resolver seu problema, só que não entendi por que você tem 28 clientes... Nas minhas contas tem 23. Você pode conferir isso pra mim por favor? Se for 23 eu tenho a solução pronta e te entrego. A Planilha está retornando 19A, 3B e 1C.

Dá sim cara... Ryzen 5 1600 + B350 (B450) + 16GB Ram.

Gentileza anexar a planilha pra gente dar uma olhada.

Nesse caso fica impossível também te ajudar. Minha dica para o futuro é: sempre faça backup das suas planilhas antes de alterar algo significativo, principalmente se você não domina muito bem o que está fazendo. Caso seja uma alteração pequena em um código, ao invés de apagar/editar a linha, coloque-a como um comentário e faça suas alterações. Se der errado é só voltar lá , apagar o que você fez e descomentar as linhas. Abraço!

@DigusX Eu abri sua planilha pra dar uma olhada, mas sem saber como ela deveria funcionar, não tem como saber o que está errado. E principalmente, eu teria que saber qual foi a alteração que você fez que causou o problema. Sem essas informações é procurar agulha num palheiro.

Acho que você quis dizer entre R$3000,00 e R$6000,00 né?

Boa tarde. Estou examinando sua planilha aqui. Assim que eu abri, me bateu uma curiosidade: foi você mesmo que fez ou você comprou/pagou pra fazer essa planilha?

Por hora sei do Farming Simulator 19 de graça na Origin e de alguns Títulos do Half Life de graça da STEAM.

Bom dia! Sub Deleta_Linhas_Alternadas_Pares() ' ' Deleta_Linhas_Alternadas Macro Dim i As Integer For i = 2 To 100 Step 1 Rows(i).Delete 'Shift:=xlUp Next i ' End Sub Sub Deleta_Linhas_Alternadas_Impares() ' ' Deleta_Linhas_Alternadas Macro Dim i As Integer For i = 1 To 100 Step 1 Rows(i).Delete 'Shift:=xlUp Next i ' ' End Sub

Sim, é possível. Mas você precisa ter familiaridade com programação em VBA, porque embora eu possa dar uns toques, essa é uma tarefa complicada que eu não tenho tempo de fazer completamente pra você... talvez alguém aqui do fórum tenha. Mas definitivamente é possível.

A coluna de e-mails já está pronta. Está na aba extra que eu criei. Você altera todas as quilometragens da planilha e ele vai preenchendo as colunas com os e-mails para disparar depois. A última coisa que você faz é apertar o botão da macro. P.S.: Perdão porque eu anexei a planilha sem te explicar como usar.

A questão do botão para disparar a macro veio para solucionar a questão acima. Se você botar o envio no evento Change ele vai enviar um por um. Por que no momento que você alterar, por exemplo, a quilometragem de algum veículo, o processamento de dados será executado e a célula mudará de "NÃO" para "SIM", logo o e-mail precisa ser disparado nesse momento. Para se enviar o e-mail um por um é bem fácil. Você estava no caminho certo. adicionado 5 minutos depois É muito diferente você ir mandando e-mails um por um à medida que vai alterando os inputs das células do que você apertar apenas um botão para enviar automaticamente dezenas de e-mails. Tenta adicionar mais carros na planilha que você vai conseguir ver a vantagem disso.

@DigusX Consegui aplicar a ideia na sua planilha. Basicamente eu estou usando a coluna N para armazenar o status anterior dos veículos. Você pode ocultar essa coluna que continua funcionando. Tive que criar uma nova aba também. Eu não tive tempo de comentar todo o código, mas acho que você vai conseguir adaptar para sua planilha sem problemas. Mas qualquer dúvida, estamos aqui. ExemploTrocadeÓleo - Fórum.rar

Por isso eu pedi que ele anexasse a planilha. Porque eu por exemplo tenho planilhas cujo relatório final depende de várias e várias células, ficando inviável a vinculação do evento Change para as células de input. Mas caso a planilha dele tenha 1 ou 2 células de input a sua sugestão resolve perfeitamente.

@Belmar Costa Você quer impedir alguns usuários de visualizar ou apenas editar a planilha? Se não quiser que editem, basta usar o recurso "Proteger planilha" do Excel. A aba estará visível, mas para alterá-la seria necessário inserir a senha.

@DigusX Eu estou interessado em resolver esse seu problema, até mesmo pra eu aprender a solução, porque com o que eu trabalho, é praticamente certo que vou precisar disso em breve. Eu consegui fazer aqui, porém eu receio que minha planilha de teste é muito diferente da sua. O ideal seria você anexar um exemplo da sua planilha pra gente tentar trabalhar na solução.

@DigusX Como você fez para que o valor da variável PrevVal fique armazenada? Ao meu ver, o condicional If Range("M2").Value <> PrevVal Then Sempre vai dar Verdadeiro, porque ao iniciar a macro PrevVal vai estar vazia.

Só gostaria de acrescentar 3 coisas: - Mantenha sempre os drivers da sua placa atualizados. Eu tenho uma RX580 há pouco mais de 1 ano e ela tem melhorado o desempenho a cada driver novo lançado. - Você consegue fazer um OC de forma relativamente simples com o MSI Afterburner, e o resultado pode te agradar. Como o amigo falou aí em cima, não dá pra aumentar muito porque ela já vem próxima do limite, mas no meu caso consegui botar a 1430MHz e foi literalmente a solução para meus problemas. Note que 5 ou 6 FPS pode parecer um ganho marginal, mas pode significar a diferença entre manter os 75 FPS cravados com V-Sync ou não... o que afeta diretamente sua sensação de "fluidez" dos jogos. - No software Adrenalin da AMD tem uma opção de resolução adaptável, que reduz um pouco a resolução dos jogos nos momentos mais exigentes da placa (explosões, muitos objetos se movimentando rapidamente na tela, etc). Tente habilitá-la, pode ser que melhore sua experiência.

Mas a condição do IF não é se a célula não for vazia?? Como eu estou aprendendo, na minha concepção essas linhas estão pegando as células não-vazias, botando em uma string, e depois colocando de volta na célula de onde ela veio. (???) Não é isso não?

Bom dia amigo. Poderia me explicar por favor o que essa parte do seu código faz? For Each Cell In [C12:C15] If Cell > "" Then numero = Str(Cell.Value) Cell.Activate ActiveCell.FormulaR1C1 = numero Else End If Next

Coloque em todas as células que você quiser que só apareçam quando você entrar com a data da venda. É claro que onde eu botei "SUAFORMULAAQUI" vai mudar para cada célula, mas é isso.

=SE($D1="";"";SUAFORMULAAQUI) Considerei que D seja a coluna com a data da venda.

@André Weiss Tmj