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,796 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-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-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