Foro Excel

como puedo hacer para que posicionandome en la primer celda no tenga que seleccionar el rango para correr la sig macro


Public Sub NumasText()
'Corrige en las celdas Celeccionadas el Error de "Numero almacenado como texto".
Dim Celda As Range
Selection.NumberFormat = "0"
For Each Celda In Range(Selection, Cells(1))
Celda.value = Val(Celda.Text)
Next Celda
End Sub

hacer esta intruccion con macro Range(Selection, Selection.End(xlDown)).Select

y despues activar la macro Public Sub NumasText()

saludos

Hola, prueba así:
For Each Celda In Range("A1:D5") ' o tu rango.

es que el rango no esta definido porque cada dia voy agegando esas columnas hacia abajo

solamente selecciono la primer celda y le doy control shif y tecla de direccion hacia abajo para seleccionar todo el rango

Posibles Respuestas:

Código: Seleccionar todo

For Each Celda In Range(ActiveCell, ActiveCell.End(xlDown))
  MsgBox Celda.Value
Next Celda

Ahora supongamamos que la celda es siempre la misma, por ejemplo A4, sería

Código: Seleccionar todo

For Each Celda In Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
  MsgBox Celda.Value
Next Celda

pero no mse puede que no aparezca mensaje solo que la macro se active en la celda actual en la que se encuentra