Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/11/2010, 18:33
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 4 meses
Puntos: 11
Excel: Problemas con el evento Change de mi hoja

Hola Colegas, tengo un problema simple pero dificil de explicar. Uso este codigo para detectar si modifico alguna celda de mi columna J. Funciona bien, ya que luego de ingresar un valor y confirmarlo con enter, o seleccionado otra celda.. se activa el msgbox

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Range("J9:J30"), Target) Is Nothing Then

msgbox "cambiado"
End If
End Sub


Luego, lo que necesito saber, es que dato ingrese en ese momento, para usarlo en otra macro y pruebo variantes asi:

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Range("J9:J30"), Target) Is Nothing Then

msgbox activecell.value
End If
End Sub


pero en vez de mostrar que valor ingrese, me muestra el valor de la celda a la que se movio luego de darle enter. Si ingreso un valor y luego selecciono cualquier celda, me da el valor de esa celda en vez de el ingresado... como obtengo el valor de la celda que cargo en ese lugar?? gracias
__________________
-- Nunca te des por vencido, aún vencido -- Web