Ver Mensaje Individual
  #6 (permalink)  
Antiguo 27/03/2009, 20:36
pedrotovarg
 
Fecha de Ingreso: marzo-2009
Mensajes: 13
Antigüedad: 16 años
Puntos: 0
Respuesta: Matriz de hoja de calculo

Perdón por poner este tema aquí, fue la única forma
----------------

En base a este codigo de David el Grand se me ocurrió este que me es necesario:


Código:
Private Sub Worksheet_Change(ByVal Target As Range)
'pasamos a una variable, la celda o celdas
'que queremos evaluar si cambian o no
fila = ActiveCell.Row
datos1 = "A" & fila
'como estamos dentro del evento "Change", algo tiene
'que estar cambiando... Pues bien, si la celda activa
'es la misma que la celda que hemos puesto en
'la variable llamada "datos", entonces
'que muestre un mensaje (recordemos que una doble
'negación es una afirmación)
MsgBox fila
    If Not Application.Intersect(Target, Range(datos1)) Is Nothing Then
        'corre el macro
        'Macro3
    End If
End Sub

Sub Macro3()
'
    Range(datos1).Select
         Range(datos1).Select
         ActiveCell.Offset(0, 2).Value = "en celda " & datos1 & _
         " se escribió " & Range(datos1).Value
End Sub
Pero se presenta el "problema" de que se ejecuta dos veces, auque el macro3 se ejecuta una vez.

¿Se puede detener esa doble ejecución o no hay problema en eso?

PedroTovar
Venezuela

Última edición por pedrotovarg; 27/03/2009 a las 21:33