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.
1 respuesta
Respuesta de James Bond
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 Subeste es el resultado
