ayuda con funcion publica

hola de nuevo Héctor Miguel

he observado lo siguiente despues de usar el módulo que me has enviado:

- al cambiar el valor de una celda mediante el uso de un cuadro combinado el
libro se recalcula automáticamente, más veces cuanto más se halla
"utilizado" el código

- el efecto es similar a mantener el dedo sobre F9

¿tiene esto solucion?

gracias de nuevo por tu atencion

osejol




"Héctor Miguel" escribió en el mensaje
news:%

hola, Osejol !

> Gracias ... Funciona perfectamente.

gracias a ti [por el 'feed-back'] :)

> Feliz año nuevo.

gracias [de nuevo] y... comparto tambien para ti y para todos ...
mis mejores deseos para un nuevo año pleno de realizaciones.

hector ;)

Prueba con
Application.Volatile = False
Esto hace que la función no se recalcule al cambiar la hoja. Es similar a
cambiar desde Herramientas Cálculo Automático o Manual con F9.

Saludos.

"Osejol" escribió en el mensaje
news:bt16v3$ohg$

hola de nuevo Héctor Miguel

he observado lo siguiente despues de usar el módulo que me has enviado:

- al cambiar el valor de una celda mediante el uso de un cuadro combinado

el

libro se recalcula automáticamente, más veces cuanto más se halla
"utilizado" el código

- el efecto es similar a mantener el dedo sobre F9

¿tiene esto solucion?

gracias de nuevo por tu atencion

osejol




"Héctor Miguel" escribió en el mensaje
news:%
> hola, Osejol !
>
> > Gracias ... Funciona perfectamente.
>
> gracias a ti [por el 'feed-back'] :)
>
> > Feliz año nuevo.
>
> gracias [de nuevo] y... comparto tambien para ti y para todos ...
> mis mejores deseos para un nuevo año pleno de realizaciones.
>
> hector ;)
>
>

"Adriano D'Ambra" escribió en el mensaje
news:

Prueba con
Application.Volatile = False
Esto hace que la función no se recalcule al cambiar la hoja. Es similar a
cambiar desde Herramientas Cálculo Automático o Manual con F9.

- no procede, Adriano.

- necesito que la hoja se recalcule cada vez que se copia y pega (pero
solamente una vez, no varias veces como si pulsaramos F9 y dejaramos
pulsado)

- gracias por tu interes

- Osejol

"Osejol" escribió en el mensaje
news:bt16v3$ohg$
> hola de nuevo Héctor Miguel
>
> he observado lo siguiente despues de usar el módulo que me has enviado:
>
> - al cambiar el valor de una celda mediante el uso de un cuadro

combinado

el
> libro se recalcula automáticamente, más veces cuanto más se halla
> "utilizado" el código
>
> - el efecto es similar a mantener el dedo sobre F9
>
> ¿tiene esto solucion?
>
> gracias de nuevo por tu atencion
>
> osejol
>
>
>
>
> "Héctor Miguel" escribió en el mensaje
> news:%
> > hola, Osejol !
> >
> > > Gracias ... Funciona perfectamente.
> >
> > gracias a ti [por el 'feed-back'] :)
> >
> > > Feliz año nuevo.
> >
> > gracias [de nuevo] y... comparto tambien para ti y para todos ...
> > mis mejores deseos para un nuevo año pleno de realizaciones.
> >
> > hector ;)
> >
> >
>
>

hola, Osejol !

- necesito que la hoja se recalcule cada vez que se copia y pega (pero solamente una vez [...]

como te comentaba, eran 'propuestas' [segun 'la forma' en que se hagan las modificaciones en la columna 'A'
=> ' 1.- si las celdas [columna 'A'] van cambiando 'una por una' ' =>el 'evento' Worksheet_Change<=> ' 2.- si las celdas se modifican 'en masa' [varias al mismo tiempo] ' =>el 'evento' Worksheet_Calculate<las siguientes modificaciones evitan el [lento e 'incesante ciclo' del] 're-calculo'
['detecta por anticipado' si es un 'Target' con varias celdas -de la columna 'A'-]

solo el siguiente evento en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 1 Then Exit Sub
Dim Cambia As String, Celda As Range
Cambia = Target.Columns(1).Address
For Each Celda In Range(Cambia)
If Celda.Offset(, 1) = 7 Then
Range("c1").Copy Celda.Offset(, 4)
Else
Celda.Offset(, 4).ClearContents
End If
Next
End Sub

saludos,
hector.

- OK, Héctor Miguel.

- Mucho mejor así.

- Muchas gracias por todo.


- Osejol





"Héctor Miguel" escribió en el mensaje
news:

hola, Osejol !

> - necesito que la hoja se recalcule cada vez que se copia y pega (pero

solamente una vez [...]

como te comentaba, eran 'propuestas' [segun 'la forma' en que se hagan las

modificaciones en la columna 'A'

=> ' 1.- si las celdas [columna 'A'] van cambiando 'una por una' '

=>el 'evento' Worksheet_Change<> => ' 2.- si las celdas se modifican 'en masa' [varias al mismo tiempo] '
=>el 'evento' Worksheet_Calculate<> las siguientes modificaciones evitan el [lento e 'incesante ciclo' del]
're-calculo'

['detecta por anticipado' si es un 'Target' con varias celdas -de la

columna 'A'-]

solo el siguiente evento en el modulo de codigo de 'la hoja' ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 1 Then Exit Sub
Dim Cambia As String, Celda As Range
Cambia = Target.Columns(1).Address
For Each Celda In Range(Cambia)
If Celda.Offset(, 1) = 7 Then
Range("c1").Copy Celda.Offset(, 4)
Else
Celda.Offset(, 4).ClearContents
End If
Next
End Sub

saludos,
hector.