16/03/2006, 06:06
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 6 meses Puntos: 1 | |
| el error que te dará es porque los tipos del if no coinciden.
Si quieres puedes quitarle lo de "Cambiar And" en lugar de toda la línea que te has cargado y debería funcionar igual de bien.
El problema que tiene lo que quieres hacer, aunque funciona, es que cuando hagas algún cambio en cualquier sitio de la hoja también se ejecuta todo el código, lo que lo hace ir más lento. Con mi sugerencia evito que se ejecute el código a no ser que el cambio se de en la celda apropiada (A1).
Si quieres dejarlo así quitale:
Dim Direccion As String
Dim Cambiar As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub
Porque todo esto no te vale entonces para nada.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |