jcgmcs

Junqueira, beleza!! tão testei com algumas celulas e funcionou mesmo!! Rsss Mas tão, como eu já havia dito desde o início, a palavra Contato/Jan13 ou que seja, Enviada/Jan13, não é a única coisa escrita nas celulas. Há escritas tipo assim, Ex: "Cliente confirmou mensagem de Contato/Jan13 e pediu fazer visita" Resumindo, da frase toda, Lá em BV5 o que eu quero que apareça é só o JAN/13 tendeu!! Abraço...

Aguardando....

É simples Junqueira!! No exemplo eu coloquei Contato/Jan13, mas na minha planilha quero usar enviada/Jan13 tndeu!! o que acontece é isso: Quando copio essa formula =SE(ÉERROS(PROCH("Contato/"&BV$3&"13";$AP5:$BK5;1;0));"";MAIÚSCULA(BV$3)&"/13") pra celula BV5, o valor não aparece. A formula fica como se fosse texto, como se tirasse o sinal de = tndeu!! valeu!!

Tarde Junqueira, beleza!! Muito boa essa sua formula: =SE(ÉERROS(PROCH("Contato/"&BV$3&"13";$AP5:$BK5;1;0));"";MAIÚSCULA(BV$3)&"/13") É exatamente o resultado que quero, Porém não to conseguindo adaptar essa formula alterando o "Contato" para "enviada" Abraço e no Aguardo....

Bom Dia!! Ajuda aos colegas... Tenho um módulo com este código abaixo, que ao selecionar colunas, faz o que promete, porém com uma deficiencia. Ele não destingue palavras específicas como desejado. Ex: Seu eu tiver em 10 colunas, as palavras "Teste Aprovado" e "Teste/Aprovado" ele altera as cores nas duas opções e não só apenas em "Teste" ou "Aprovado" Option Explicit 'Procura pela palavra “Teste” em qualquer parte da célula e altera cor de fundo para amarelo Public Sub ProcuraPalavraTeste() Dim cell As Range 'Itera pelo range For Each cell In Selection If cell.Value Like "*Teste Aprovado*" Then cell.Interior.ColorIndex = 6 cell.Font.ColorIndex = 3 End If Next cell End Sub

Tarde Junqueira, veii qualker ajuda é bem vinda. quero ver sim essa sua função, como funciona!! Quanto a Cor, é o seguinte, não daria certo porque, preciso sim, que tenha essas referencias OUT/14, pois todas essas informações, terão de ser lidas nas ComboBox doss formuláriosss tndeu!! Abraço e no aguardo...

valeu Basole e Osvaldo vou testar vocês são demaisss

Tarde Junqueira!! Seguinte, eu quero que o código funcione a partir de qualker celula que eu estiver na Plan1. Exemplo: Se eu estiver na Plan1 em AP525 e clicar no botão associado, deverá ir direto pra AP525 da Plan23 Se eu estiver na Plan1 em A26 e clicar no botão associado, deverá ir direto pra A26 da Plan23 e assim por diante tndeu!! No aguardo...

Bom dia, Como faço este código pra Excel 2003 Estou em uma determinada celula (Ativa) na Plan1, e quero ir pra mesma celula da Plan23 OBs: Irei associar um botão pra executar Grato a todos!

Vagner / Patropi, Bom Dia!! No anexo abaixo, o código funciona perfeitamente na coluna, mas solicito sua ajuda novamente, pra uma segunda opção de Mudar Cor, as palavras que estão em várias colunas. Ex: De AP5 à BK999, tenho linhas com longas escritas (Históricos) e preciso mudar a cor do nome das pessoas tipo os exemplos abaixo: Porteiro disse Fabrício Assumpção estar viajando e retornará só sexta feira Sr. Norberto disse, apenas intermediando contato Rosana disse, José Geraldo irá nos adquirir como fornecedor. Bem, acho que deu pra entender né!! Brigadaummmm T++ Mudar Cor - VBA (Teste Ok).xls

Basole, É nois de novo!! Rsss Viajei um pouco nas ideia aqui e comi bronha num detalhe!! Seguinte, na verdade vou precisar que este intervalo AP5:BK5 seja assim, AP5 até BK999 e BV5 que seja tbém até BV999. Não sei se fui claro, mas segue anexo, planilha com algumas linhas de dados e resultados que inseri manualmente Ok!! E vamo q vamo!! Rsss Copiar parte da palavra (VBA).xls

Eaeee Basoleee, beleza veii!!! tão, preciso que a macro execute automático ao teclar Enter neste intervalo AP:BK Abraçoo!!

Boa noite a todos, Ajuda pra fazer macro Copiar apenas uma parte da palavra e a colar em outra celula. Preciso que neste intervalo de AP5:BK5, o código localize a palavra "trabalho/Out14" e a cole em BV5 apenas como "Out/14" OBs: sem aspas É pra Excel 2003 Grato a todos!!

Boa noite Patropi, Seu código ficou perfeito, Muito bom mesmo!!! Terei muitas utilidades pra ele. Rsssss Muito obrigado pela sua ajuda e colaboração meu amigo. Tudo de bom pra você e T++++++

Bom dia DJ, tão, ainda sim, se for possível prefiro como disse ao Patropi. Pois na Plan1 são 12 colunas a serem preenchidas tndeu!! tão qto mais simples for a operação, melhor!! Rssss Grato...

Boa noite Patropi, Bem, Agradecendo aos demais amigos pela atenção dada, Esta sua opção foi a mais satisfatória, quase perfeito pro meu caso. Pois na Plan1 não quero que tenha nenhuma formula ou bloqueio na planilha. porque será lançado dados mensais e na virada do mês, o operador irá apenas deletar os existentes e recomeçar novos dados do mês corrente. A Plan2 e as demais, vou ocultá-las no VBA com senha. Mas enfim, preciso que o codigo funcione automaticamente ao teclar Enter, sem o uso de botão ok!! No aguardo e Muito grato a todos.

Boa noite, Encontrei esse código, que pode me servir de base pra chegar onde quero. A questão é que está dando erro e não entendo o porque. Alguém pode me dizer o que está errado?? Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Plan1").Range("B1:B10").Valor = Worksheets("Plan2").Range("A1:A10").Valor End Sub Grato a todos.

Tahh entendido!! você quer dizer, formula não envia resultado e sim apenas recebe nehhh!! Bem nesse caso, você pode então me ajudar com o codigo VBA, pra conseguir fazer essa proeza?? Rssss Abraço!!

Patropi, Grato ao retorno pra Excel 2003, mas não é isso que preciso. Essa formula já conheço a trocentos anos Rssss Na C5 da Plan1, preciso que, não pode haver formula alguma. Por isso preciso que a formula que está em C5 na Plan2, envie o resultado direto para a Plan1 tndeu!! Exemplo, na "Plan2" seria +/- assim o que eu quero: =SOMA(Plan1!A5:B5);(Plan1!C5) Aguardo...

Patropi, bom dia!! Estou no trabalho, você poderia reenviar em Excel 2003

Bom dia pessoal, Como exemplo, tenho na Plan1 em A5 o valor 2 e B5 valor 8. Preciso de formula na Plan2 em C5 que soma A5:B5 e envie o total para C5 da Plan1. Grato a colaboração de todos.

Vagner todo bom!! Preferencialmente gostaria de usar código, mas se puder me ajudar nas duas opções pra eu aprender, Fico muito grato!!

Boa tarde amigos!! Preciso de um código VBA que deixe celulas em branco no Excel 2003. É assim, Tenho em F8, I8, L8 com a formatação personalizada em hh:mm. Com isso, sem informação nenhuma nas celulas, ficam mostrando 00:00 Preciso do código em VBA que as façam ficar sem caracteres nenhum. Grato a todos que puderem ajudar.

Kkkkkkkkkkk beleza Basole!! Mais tarde vou analisar. Abraço de urso pra você!! Rsss

Boa tarde Basole!! bom, antes devo dizer q você manjaa muiiito heinn!!! Este seu código é uma complexidadeee!!! Rssss Bem, qto ao br, já descobri o porque, é porque AQ11 com os dizeres real, estava com 257 caracteres em vez de 253. Resolvido!!! Este seu código, tenho que adaptar juntamente com outros aqui na minha planilha real, e este é um dos desafios tndeu!!! Mas tamo quase láaa Rssss Abaixo o código mais enxuto pra você colocar aee na sua v8 e verá o que acontece... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Colunas As Range Set Colunas = Range("B5:CT1000") [A5:A1000] = Clear If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then Linha = Target.Row Range("A" & Linha).Value = "X" End If [J1] = "Pág. " & Application.RoundDown(ActiveCell.Row / 47, 0) + 1 'Conta Caracteres cel = ActiveCell caract = Len(cel) [AP4:BK4] = caract End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Application.Intersect(Target, Range("BV5:CT999")) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target.Value) Application.EnableEvents = True End Sub Aguardo sua análise Rsssss Abraço.