jcgmcs

Olá, bom dia! Peço ajuda pra fazer... À partir da linha 5, Ao digitar em qualquer linha de "L" e dar Enter, simular tbém Enter em "N" OBs: A coluna "N" já contém dados portanto, só preciso dar esse Refresh pra que uma outra coluna seja tbém atualizada conforme alteração de "L". Dsd já obrigado e um Feliz 2025 à todos ae...!!

OBs: Na print, me esqueci de setar a coluna "J" que também é seta Verde... e "BJ" que saiu cortada é de "R"

Boa tde Midori...!!!!!! Tentei de todo jeito, sem sucesso. No anexo setei em cores pra que entenda o que vae ser retirado e colocado... As colunas da esquerda onde estão em Verde "J, L, M, N, Q, R" é onde serão tiradas as informações pra serem colocadas à direita em Vermelho de AM pra frente... É só seguir ae como está na linha 118...

Alguém ajudaee..!!

Socorro!!!

Será que alguém mais ae poderia nos prestar essa colaboração...?

Midori boa noite! Amigão meus miolo já tá fumaciando aqui... rsrs Não to conseguindo os resultados esperados nas colunas em vermelho. Pra cada uma delas as informações são diferentes e ae eu me embanano todo... Por favor, te agradeço se puder montar ae esses códigos pra nós. Tá muito complexo rsrs obrigado!!

Muito obrigado!!! Vou tentar aqui.... Abç ae rsrs

Viiixi... Midori kd você...!? rsrs

Então... é fazer "BH" ficar como está em "BF" mas acrescido com Mês e Ano tdeu... Ficaria tipo assim exemplos: ON SET/22+ ON JUN/18 OFF AGO/18 OFF MAI/23 ON OUT/24+

Midori uma outra coisa... Desculpe complicar um pouco ae mas éq não tá ocorrendo o que Achei q fosse ocorrer... Preciso que sempre ao alterar as Colunas "J, L, M, N, Q ou R" que se faça tbém um tipo de Refresh nas colunas: "AM, AO, AQ, AS, AU, AW, AY, BA, BD, BF, BH" pra ocorrer a atualização. Pois da maneira como está somente se teclando Enter em: "J, L, M, N, Q, R" que ocorre a modificação... Preciso fazer q tudo seja automático tdeu!! Mais uma vez obrigado dsd já...

Bom dia! Midori tá ficando show"" Achei q iria ser fácil adicionar uma nova coluna mas não tá dando certo... Preciso adicionar a "BH" q trás o resultado de "BF" mas tbém com Mês e Ano de "R" Como fazer isso...?

Peço ajuda para Trazer por VBA Resultados em "BA" "BD" "BF" "BJ" Em "N" e "R" se eu alterar pra qualquer outro Status ou excluír, as respectivas colunas adiante tbém se devem alterar. A inserção de dados em "N" e "R" a partir da linha 5 é manual. OBs: Em "BA" gostaria de tirar o espaço e incluír "/" entre Status e Ano. obrigado! Excel VBA - Trazer Resultados em BA_BD_BF_BJ.xls

beleza Midori, deu certo o Localizar... Muito obrigado mesmo e todo de bom ae... Vlwwww!!!

Bom dia!! agora sim a data ficou jóia!! E a questão da M1... como é..?

Midori não entendi a função... Como e onde coloco ela? To copiando e colando.. dando erro: Era esperado: Identificador ou Expressão entre colchetes

Midori, M1 realmente funcionando mesmo mas só se digitar exatamente como estiver na B... Minha B contém os códigos dos clientes iniciados com C tipo assim: C0727, C0850, C0100... Queria q só digitando a parte numérica 850 ele já fizesse a localização tdeu... Já na parte do Z q refere à "PedidoDia" ele tá trazendo a data dd/mm/aaaa como abaixo... PDD CANCEL 17/04/2018 S/DVL Preciso q seja assim: dd/mm/aa como abaixo... PDD CANCEL 17/04/18 S/DVL É só isso pra finalizar.. rsrs

Midori boa tde! Testei seus códigos e maiúsculas funcionando tudo certinho... Já o Localizar de "M1" da coluna "B" não está... Preciso tbém que quando digitado ou deletado em "K" algo diferente de CANCELOU PEDIDO S/DVL e CANCELOU PEDIDO C/DVL, na coluna "Z" seja tbém deletado conforme a linha... Por favor, se puder me ajudar com esses dois impasses agradeço muito. obrigado!

obrigado Midori por seu retorno... Vou sim avaliar seus códigos e testar beleza... quanto ao OreiaG, Me desculpe se te fiz perder seu tempo... O caso éq não se trata de à cada postagem, venho com um novo problema e sim que sua proposta sugerida até ajudou em partes mas, acabou q não solucionou o que venho tentando resolver aqui.. Expliquei tudo ae da forma mais clara possível mas, tudo bem, ninguém é obrigado a nada aqui no Fórum, contamos apenas com a boa vontade de vcs expert em Excel. Mas obrigado assim mesmo OreiaG... valeu a tentativa...

Sim Midori... porisso meus códigos em separados por... 'xxxxxxxxxxxxxxxxxxxxxxxx Fica um pouco poluído mas ajuda nas orientações... rsrs Mas minha intenção era assim... Se quero mexer nas Maiúsculas e Minúsculas, então vou lá no Módulo das referidas tdeu... É coisa simples e acredito q dessa maneira resolveria meus problemas... OreiaG... Fiz os ajustes com seu código e alguns remanejos acrescentando mais algumas colunas... Mas agora problemas surgindo por causa esse códigos abaixo: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'Excel VBA - Só permitir uma data, nada mais que isso na célula_Por OreiaG Data em "L" 'Forçar Data "dd/mm/aa" 'Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "L5:L" Then Exit Sub If Target.Value = "" Then Exit Sub If IsDate(Target.Value) = False Or Target.HasFormula Then Target.Value = "": MsgBox "COLOQUE UMA DATA VÁLIDA" 'End Sub 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx As maiúsculas param de funcionar se coloco eles acima ou abaixo do seu... ...If Intersect(Target, Range("B:C,G:H,K:N,O:R,T:U,W:X")) Is Nothing Or Target.Row < 5 Then Exit Sub... A linha acima é só pra referenciar o seu ok... E quando excluo o código "Forçar Data "dd/mm/aa", tudo volta à funcionar...

Eu quiz dizer ..mais organizados.. lá no evento Change, que ficaria mais enxuto... aqui, só postei as referidas colunas e esses 3 códigos ae.. mas minha planilha vae até "GY" e com muitos códigos dentro Change, tudo misturados tdeu... rsrs Mas agradeço ae OreiaG pela sua explicação... logo testarei e dou retorno ae.. obrigado!

Bom dia!! beleza, assim q tiver um tempinho vou testar sim.. Mas só pra tirar dúvida... Seria mesmo possível como pensei, colocar códigos das maiúsculas dentro de um módulo..??Até porque ficariam até mais organizados né...!

Boa tde OreiaG! Obrigado novamente pelo seu retorno... Bem, eu não testei ainda este seu novo código ae... mas vou tentar explicar o que ocorrendo aqui no momento.. Eu já tenho o código abaixo no evento Change: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Maiúsculas If Target.Cells.Count > 1 Then Exit Sub End If On Error GoTo ErrHandler: If Not Application.Intersect(Me.Range("K5:K5000"), Target) Is Nothing Then If IsNumeric(Target.Value) = False Then Application.EnableEvents = False 'Target.Value = StrConv(Target.Text, vbLowerCase) Target.Value = StrConv(Target.Text, vbUpperCase) 'Target.Value = StrConv(Target.Text, vbProperCase) Application.EnableEvents = True End If End If 'ErrHandler: Application.EnableEvents = True 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx E também logo abaixo tenho os seguintes: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'Localiza conteudo da celula Coluna "B" Código_Por OreiaG 'Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Target.Address <> "$M$1" Then Exit Sub 'Localizar "M1" Set c = Range("B5:B" & Cells(Rows.Count, 2).End(3).Row).Find(Target.Value) If Not c Is Nothing Then c.Select Else: MsgBox "NÃO ENCONTRADO" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'digitar em K à partir da linha 5 "CANCELOU PEDIDO S/DVL" ou "CANCELOU PEDIDO C/DVL" _ Por OreiaG 'Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 5 Or Target.Column <> 11 Then Exit Sub If Target.Value = "CANCELOU PEDIDO S/DVL" Then Cells(Target.Row, "AK") = "PDD CANCEL " & Format(Target.Offset(, -1).Value, "dd/mm/yy") & " S/DVL" ElseIf Target.Value = "CANCELOU PEDIDO C/DVL" Then Cells(Target.Row, "AK") = "PDD CANCEL " & Format(Target.Offset(, -1).Value, "dd/mm/yy") & " C/DVL" End If 'End Sub 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx E após acrescentar este último os problemas de conflitos começaram... As colunas que me refiro não mais ficando em Maiúsculas. Porisso pensei na possibilidade de tirar os códigos de Maiúsculas do evento Change e coloca-los em um Módulo pra separa-los dos demais pra não ocorrer estes conflitos tdeu... Não sei se o que pensei de fazer é o certo mas seria uma tentativa. o que você me diz...?

Boa tde! Peço ajuda para um código dentro do Módulo. Tudo que digitar em minúsculas se converta em Maiúsculas quando teclar "Enter" As colunas são: B, C, G, H e K à partir da linha 5

Boa noite! Desculpe, mas só agora q pude voltar aqui na resolução do problema e agradeço sim ao OreiaG por ter me ajudado nessas e outras... rsrs Tudo tá agora funcionando perfeitamente como queria... E que Deus abençoe vcs sempre... obrigado!