Consulta de código implementado en excel con un error en la función condicional
Tengo este código (es la parte donde recorre una columna para llenar un list, en el programa recorre varias, pero esta me trae problemas)
Sub llenalista()
Range("m13").Select
Do While (ActiveCell.Value <> "*" Or ActiveCell.Value <> "")
ListBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
y me tira un error, ahora si pongo:
Do While (ActiveCell.Value <> "*" ) o
Do While (ActiveCell.Value <> "")
Corre sin ningún problema, pero necesito que me muestre ambas posibilidades, ya que algunas de las columnas desde las que pretendo llenar el listbox terminan en blanco y otras en "*"
¿Alguien me puede decir como hago para que considere ambos valores para finalizar el recorrido de mi columna?
De ante mano gracias
narom
Sub llenalista()
Range("m13").Select
Do While (ActiveCell.Value <> "*" Or ActiveCell.Value <> "")
ListBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
y me tira un error, ahora si pongo:
Do While (ActiveCell.Value <> "*" ) o
Do While (ActiveCell.Value <> "")
Corre sin ningún problema, pero necesito que me muestre ambas posibilidades, ya que algunas de las columnas desde las que pretendo llenar el listbox terminan en blanco y otras en "*"
¿Alguien me puede decir como hago para que considere ambos valores para finalizar el recorrido de mi columna?
De ante mano gracias
narom
1 respuesta
Respuesta de paramisolo
1