Insertar carácter en celdas con númenos

Hola a todos, necesito por favor una macro que recorra la columna L y cuando se encuentre una celda con valores numéricos inserte por ejemplo una x en la columna Q y misma fila, y así sucesivamente.

Muchísimas gracias

1 Respuesta

Respuesta
1

Ocupa la siguiente macro

Sub marcax()
'Por.DAM
For i = 1 To Range("L" & Rows.Count).End(xlUp).Row
    If IsNumeric(Cells(i, "L")) Then Cells(i, "Q") = "x"
Next
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

Hola, gracias por responder, algo falla porque entra la x en toda la columna Q de la tabla.

Solo quiero en las filas que tengan números en la columna L.

Gracias

Cambia la macro por esta

Sub marcax()
'Por.DAM
Range("Q:Q").ClearContents
For i = 1 To Range("L" & Rows.Count).End(xlUp).Row
    If IsNumeric(Cells(i, "L")) Then _
        If Cells(i, "L") <> "" Then Cells(i, "Q") = "x"
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas