Foro Excel

Hola, he diseñado una hoja de excel modificada con VBA y necesito un evento de VBA que me permita que se ejecute otro evento justo al SALIR de una celda al terminar de introducir (a mano) un valor (numérico). Tal y como lo tengo ahora este evento se ejecuta al hacer click en un boton que contiene la página, pero así­ no me sirve y escribiendo una fórmula que sustituya al código (que se actualize continuamente) tampoco me sirve.

Si existe este evento y pudiarais mandarme un ejemplito de como usarlo os lo agradecerí­a porque estoy muy verde en VBA.

Muchas gracias por todo.

Eduardo Bernal

Hola Cartaginés:
te mando un archivo en el que si cambias el Valor de B3,
la macro te saludará

Haz los cambios
o
sigue preguntando.
Hasta pronto.
Veremos entre todos, como te vamos cambiando esa tonalidad verde del hoy, hacia un tostadito....

Muchisimas Gracias GalileoGali, me ha sido de increible ayuda,...
ya voy yo atando cabos en esto del VBA (poco a poco),
Muchas gracias denuevo,

Un saludo

Edu Bernal

Hola de nuevo,

con relación a la pregunta que me resolviste hace un par de dí­as, ¿es posible hacer lo mismo pero que lo inicie el evento sea que cambie el valor de una celda dentro de un rango determinado en vez de que la direccion de la celda no varie (como en tu ejemplo)?

Tendrí­a que ser algo asi como este caso;

Imagina el rango A1:A11 y el rango B1:B11
Lo que hay que conseguir es que cuando cambie el valor A1 entonces B1 = 1, cuando cambie el valor A2 entonces B2 = 2, ..... cuando cambie A11 entonces B11= 11, con la particuaridad que 1 - 11 es en mi caso una variable que le he llamado "i" y que está presente en todo el codigo. Esta variable "i" es la fila 1,2,3, ...., 11.

No sé si te habre hecho un lio, espero que no.

Muchas gracias por adelantado.

Edu Bernal.

Una opcion: Mira este es el codigo para una Hoja de excel que se ejecuta al cambiar de celda
para resaltar la celda activa y proteger la hoja. el evento que puedes utilizar es calculate y selection change
pero necesitas probar

suerte estoy seguro de que te servira
saludos pega este codigo en las declaraciones de una hoja
'*******************************************************
Option Explicit

Private Sub Worksheet_Calculate()
Resalta
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resalta
End Sub

Private Sub Resalta()

Dim R As Long
Dim C As Long
Dim x As String
R = ActiveCell.Row
C = ActiveCell.Column

ThisWorkbook.Sheets("mihoja").Unprotect ("tu pasword")

If R < 1 Or R > 300 Or C > 64 Then
Range("A3:BL1000").Interior.ColorIndex = 2
Exit Sub
Else

Range("A1:BL1000").Interior.ColorIndex = 2
Range("A" & R & ":BL" & R).Interior.ColorIndex = 4
End If
ThisWorkbook.Sheets("mihoja").Protect ("tu pasword")
End Sub
'********************************************
esopero tus comentarios