Buscar Frases en una fila
Quisiera saber como buscar frases y categorizarlos. Es decir:
1. Tengo una hoja llamada COMENTARIOS con varias columnas llenas de información de encuestas, en donde la primera columna esta vacía.
2. Tengo otra hoja llamada CATEGORIAS en donde tengo 3 columnas con una lista de frases. El nombre de cada cabecera es el tipo de categoría. Ejm: Precio, Locales Atención
Lo que deseo es buscar las frases que tengo en mi hoja categorías en la hoja comentarios por cada fila y colocarle el nombre de la cabecera en la primera columna. Si es que encuentra mas de una categoria separarlo por comas. Les dejo mi archivo de Ejemplo.
https://onedrive.live.com/redir?resid=FE2981AAD59925FA%219536
Gracias de Antemano.
Saludos Cordiales
1 respuesta
Te anexo la macro, te recomiendo que en lugar de frases, pongas palabras, serían más fáciles de coincidir con los comentarios.
Sub BuscarCategorias()
'Por.Dante Amor
Set h1 = Sheets("COMENTARIOS")
Set h2 = Sheets("CATEGORIAS")
u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row
If u = 1 Then u = 2
H1.Range("A2:A" & u). ClearContents
'
'para cada fila en comenatarios
For i = 2 To u
'
'Para cada categoría
For j = 1 To h2.Cells(1, Columns.Count).End(xlToLeft).Column
'
'Para cada palabra de cada categoría
For k = 2 To h2.Cells(Rows.Count, j).End(xlUp).Row
Set b = h1.Rows(i).Find(h2.Cells(k, j), lookat:=xlPart)
If Not b Is Nothing Then
If InStr(1, h1.Cells(i, "A"), h2.Cells(1, j)) = 0 Then
h1.Cells(i, "A") = h1.Cells(i, "A") & h2.Cells(1, j) & ", "
End If
End If
'
Next
'
Next
'
If h1.Cells(i, "A") <> "" Then
h1.Cells(i, "A") = Left(h1.Cells(i, "A"), Len(h1.Cells(i, "A")) - 2)
End If
'
Next
'
MsgBox "Categorías terminadas"
End SubTe anexo el archivo para que veas un ejemplo de las palabras.
https://www.dropbox.com/s/mtjvfdbpdr8top7/ejemplo%20comentarios%20DAM.xlsm?dl=0
