STATUSBAR ERROR

Hola, Pepito.

Interesante tu aplicación...

La estuve probando, y me genera error cuando trato de acceder a una columna
que ya no existe. Por ejemplo, en Excel 2003 la columna IT. Aquí se estará
tratando de obtener un dato que debería estar en la columna IY, que está
fuera de los límites de la hoja.

La propuesta para que tu código no te genere error podría ser la siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo BadColumn
Application.StatusBar = Application.ActiveCell.Offset(0, 5).Value
Exit Sub
BadColumn:
Application.StatusBar = False
On Error GoTo 0
End Sub

Observa que la instrucción "On error goto..." te permite crar una
bifurcación hacia una etiqueta (en este caso "Bad Column"), la cual se
ejecuta automáticamente cuano se produce un error en tiempo de ejecución en
el procedimiento. Sin embargo, debes garantizar que si todo salió bien, el
código se interrumpa antes de la etiqueta. Esa es la función de la línea
"Exit Sub".

Finalmente, para evitar que en otro código haya interferencias, la línea "On
Error Goto 0" resetea la definición de la etiqueta que hiciste en la línea
"On error goto...".

Espero que esto solucione tu problema. No olvides comentar cómo te fue.

Saludos cordiales.



"Pepito" escribió:

Deseo utilizar en la Barra de estado la informacion sobre el contenido
de Celda activa y 5 columnas a derecha lo he utilizado el siguiente
codigo y por alguna razon falla


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.StatusBar = Application.ActiveCell.Offset(0, 5).Value

End Sub

Me manda el error 1004 error en tiempo de ejecucion en metodo SatusBar
Applicatioon
si alguien tiene alguna sugerencia para controlar este error se lo
agradecere.