Problema con macro....

[landom]

Hola a todos! tengo esta macro q transcribo:

Private Sub Worksheet_change(ByVal target As Range)
If target.Address = Range("b22") Then
ruta = Range("B7")
ejecutable = Range("B6")
uf = Range("B" & Cells.Rows.Count).End(xlUp).Row
For fil = 22 To uf
arch = Range("B" & fil) & ".swf"
arch = ruta & arch
Abrir = Shell(ejecutable & " " & arch, vbMaximizedFocus)
Next fil
End If
End Sub

en la celda B22 no le ingreso directamente el dato, lo ingreso en otra celda y esta toma el valor por formula, será eso q no lo hace andar automatico???

Que debo de cambiar en el codigo para que al ingresar el dato en la celda de ingreso, cuando esta celda B22 tome el valor, me ejecute la macro???

Por favor pido ayuda porq me esta volviendo loco jaja...ya no se q mas hacer...saludos

Fernando

[mrocf]

Hola! Fernando. En la ayuda de VBA puedes leer:

"... El evento Change ocurre cuando alguna celda de la hoja de cálculo es modificada por el usuario o por un vínculo externo. Este evento no ocurre si las celdas se modifican al volver a calcular ..."

De modo que en "target" no tienes a [B22] sino a la celda a la que le has entrado el dato: ¿Qué celda es ésa?

Por otra parte, la línea:
If target.Address = Range("b22") Then

JAMÁS te funcioná correctamente... y no sólo porque target no es [B22], sino porque lo correcto hubiese sido:
If Target.Address = "$B$22" Then

Comenta cual es la celda que se modifica y -además- evalúa esta alternativa:

Código PHP:

  Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address <> "$B$22" Then Exit Sub 
For Each Celda In Range([b22], [b65536].End(xlUp)) 
  arch = [b7] & Celda & ".swf" 
  Abrir = Shell([b6] & " " & arch, vbMaximizedFocus) 
Next Celda 
End Sub  
   

Saludos, Cacho.