Enumerar una fila, si contiene texto.

Tengo una tabla con nombres, pero no quisiera imprimir toda una lista vacía de puros números.

Si tengo una tabla, quiero que se enumere la columna A si tengo valores en la columna B, si no hay texto quisiera que quedara en blanco.

Respuesta
2

Prueba esta macro

Sub enumerar()
r = Range("b" & Rows.Count).End(xlUp).Row
Set DATOS = Range("a1").Resize(r, 2)
With DATOS
x = 1
For i = 1 To r
    valida = .Cells(i, 2) <> Empty
    If valida Then .Cells(i, 1) = x: x = x + 1
Next i
End With
Set DATOS = Nothing
End Sub

este es el resultado

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas