Dirección celda
Que tal, mi pregunta es sencilla, existe alguna forma de poder determinara la direccion de la celda en al que me encuentro, si usar>
ActiveCell.Address. , puesto brinda $B$2
Lo que necesito es que me brinde la información como R2F2.
Pero no se como hacerlo, así que te lo agradecería.
ActiveCell.Address. , puesto brinda $B$2
Lo que necesito es que me brinde la información como R2F2.
Pero no se como hacerlo, así que te lo agradecería.
1 respuesta
Respuesta de José Saúl Méndez Alonso
1
Fíjate que probé córrelo, en el vba de excel, y no me dio resultado:
Creo que fue en la parte de Address(,, XlR1C1) Rem ¿aquí debo escribir algo?
Otra cosa en lugar de MSGBOX puedo enviarlo a una celda con activeCell = mensaje.
Lo que esta entre los paréntesis de Sub () es necesario colocarlo, en ese caso sera que me puedes explicar cual es su utilidad que siempre he tenido esa duda.
Gracias.
Creo que fue en la parte de Address(,, XlR1C1) Rem ¿aquí debo escribir algo?
Otra cosa en lugar de MSGBOX puedo enviarlo a una celda con activeCell = mensaje.
Lo que esta entre los paréntesis de Sub () es necesario colocarlo, en ese caso sera que me puedes explicar cual es su utilidad que siempre he tenido esa duda.
Gracias.
El código debes ponerlo en el módulo asociado al objeto ThisWorkbook
Haz lo siguiente:
Entra al editor de Visual Basic ALT+F11
En el panel de la Izquierda haz doble clic sobre el onjeto ThisWorkbook
En el módulo de la derecha pega el código
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$A$1" Then
Range("A1").Value = Target.Address(, , xlR1C1)
End If
End Sub
Lo que va entre paréntesis se llaman parámetros y sirven para pasar valores u objetos entre las funciones o rutinas.
Haz lo siguiente:
Entra al editor de Visual Basic ALT+F11
En el panel de la Izquierda haz doble clic sobre el onjeto ThisWorkbook
En el módulo de la derecha pega el código
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$A$1" Then
Range("A1").Value = Target.Address(, , xlR1C1)
End If
End Sub
Lo que va entre paréntesis se llaman parámetros y sirven para pasar valores u objetos entre las funciones o rutinas.
