Buscar valores que comienzan por la letra, macro
Tengo una tabla que va desde a A hasta la P y de lineas infinitas, necesito una macro que busque en la columna J todas las celdas que empiecen por J(seguidas de numeros, no es una palabra) y que me resalte todas las filas de un color.
Respuesta de José Saúl Méndez Alonso
1
Te dejó una macro que puede servir para tu propósito.
Sub Colores()
On Error GoTo Err_Colores
Dim nCel As Double
Dim sDato As String
nCel = 2
While Not Trim(Range("J" & nCel).Value) = ""
sDato = Range("J" & nCel).Value
If UCase(Left(sDato, 1)) = "J" And IsNumeric(Right(sDato, Len(sDato) - 1)) Then Range("A" & nCel & ":P" & nCel).Interior.Color = vbYellow
nCel = nCel + 1
Wend
Exit_Colores:
Exit Sub
Err_Colores:
MsgBox "Se generó una excepción " & Err.Number & " - " & Err.Description
Resume Exit_Colores
End SubSi tienes dudas al respecto me contactas.
