Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
PROCURA NA CÉLULA D...
 
Notifications
Clear all

PROCURA NA CÉLULA DETERMINADA PALAVRA E RETORNA A MESMA

 
2024 - VBA & Macros
Post Recente por matoso2010 12 anos atrás
6 Posts
3 Usuários
0 Reactions
1,786 Visualizações
RSS
 matoso2010
(@matoso2010)
Posts: 20
Eminent Member
Topic starter
 

Prezados, gostaria da ajuda de vocês, como sei menos que o básico de vb, não estou conseguindo, tenho a seguinte macro, ela funciona muito bem, mas, gostaria de deixar ela mais enchuta, onde ínsere a fórmula que procura determinada palavra na célula e retorna a mesma.
Se puderem me dar uma luz

Sub Fórmula1()
Application.ScreenUpdating = False
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C1").Select
ActiveCell.FormulaR1C1 = "PROCESSO"
Range("C2").Select
'Define que o processo será repetido enquanto a célula à direita
'for diferente de vazia
Do While ActiveCell.Offset(0, 1).Value <> ""
If ActiveCell.Value = "" Then

ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(FIND(""NIQ"",RC[-1])),""NIQUELAÇÃO"",IF(ISNUMBER(FIND(""FORNO"",RC[-1])),""FORNO"",IF(ISNUMBER(FIND(""CLAS"",RC[-1])),""CLASSIFICAÇÃO"",IF(ISNUMBER(FIND(""PIST"",RC[-1])),""PISTOLA"",""ACA""))))" Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If
ActiveCell.Offset(1, 0).Activate
Loop

Range("A1").Select
Application.ScreenUpdating = True
End Sub

Se existir uma forma mais "enxuta" de achar a palavra na célula e retornar a mesma em outra célula.

 
Postado : 16/04/2013 5:44 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

matoso2010,

Bom Dia!

Eu acho que existe uma forma mais enxuta sim! Todavia, preciso entender corretamente, nos mínimos detalhes, o que você quer realmente.As células onde você quer encontrar uma palavra estão em que coluna? É uma célula só ou é toda a coluna? Em qual célula deve aparecer o resultado?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/04/2013 6:50 am
 matoso2010
(@matoso2010)
Posts: 20
Eminent Member
Topic starter
 

Bom dia Wagner,
É assim, por exemplo, na coluna B, tenho a descrição de um item de nosso mix de produtos, nessa descrição consta as cores (vermelho, preto, marrom, verde), então eu gostaria que sempre que ele encontrar determinada palavra na célula B1, retornasse essa palavra na coluna A1.
Tudo bem que eu tenho que especificar as palavras que eu quero, mas, a fórmula que utilizei é bastante complexa, daí se entrar uma cor nova, tenho que alterar a fórmula. Não sei se consegui ser claro, se eu conseguir isso vai ser muito útil, pois, as vezes além das cores preciso especificar os processos, por exemplo se tiver a palavra (CLAS) na célula (coluna B), retorno na coluna A, a palavra "CLASSIFICAÇÃO".
Agradeço pelo seu pronto atendimento.

 
Postado : 16/04/2013 7:10 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

É... foge ao alcance dos meus conhecimentos...

Vamos esperar algum outro colega ajudar...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/04/2013 7:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei se entendi direito, mas veja se o exemplo lhe atende

Vai procurar em B os valores da tabela em I e marcar em A

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/04/2013 10:48 am
 matoso2010
(@matoso2010)
Posts: 20
Eminent Member
Topic starter
 

Muito bom Reinaldo, era isso mesmo.
Obrigado.
Agora vou tentar entender o código que postou.

 
Postado : 16/04/2013 11:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico