Problema con formularios

Saludos Héctor, efectivamente quite "Application.ScreenUpdating = False" del
formulario y quedó bien, pero lo que no entiendo es porque en "otro"
formulario sin haber quitado "Application.ScreenUpdating = False" no tiene
el arrastre que tiene el anterior, son idénticos a mi entender solo que
hacen referencia a ditintas hojas. te envio el código del que tiene
"Application.ScreenUpdating = False" y no presenta el detalle.

Private Sub UserForm_Activate()
producto.SetFocus
End Sub

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim celda As Variant
Sheets("ZBase_Productos").Select
producto.Clear
For Each celda In Range("D2", Range("D2").End(xlDown))
producto.AddItem celda
Next
Application.ScreenUpdating = False
End Sub

Y ahora este es el código del formulario que tiene el arrastre

Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Dim celdilla As Variant
Sheets("ZBase_Producto_Usados").Select
nom_producto_usado.Clear
For Each celdilla In Range("B2", Range("B2").End(xlDown))
nom_producto_usado.AddItem celdilla
Next
Application.ScreenUpdating = False
End Sub

Private Sub UserForm_Initialize()
nom_producto_usado.SetFocus
End Sub

Pues no se cual será la falla, por lo que veo son idénticos solo que hacen
referencia a hojas distintas.

Agradeceré mucho tu ayuda y espero no caer pesado

Saludos


Deyvi

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

Hola, Franco Alonso !

> ... formulario al arrastrarlo ... en la pantalla ... deja una estela

[...]

==> Se debe a que "dentro" del codigo que lo muestra Y ANTES de mostrarlo

tienes la instruccion:

Application.ScreenUpdating = False
_______
Saludos,
Héctor.
MS-MVP

Hola, Deyvi !

... no entiendo porque en "otro" ... sin haber quitado "Application.ScreenUpdating = False" no tiene el arrastre [...]
... son idénticos a mi entender solo que hacen referencia a ditintas hojas [...]

==> Tienes razon al "sentir" que son iguales, la diferencia es que... => "estan" en eventos DIFERENTES <
a) El evento _Initialze "se encarga" (UNA SOLA VEZ) de la preparacion del formulario ANTES de mostrarlo.
Cuando el formulario (finalmente) es mostrado, "ya paso" el Application.ScreenUpdating de False a True

b) El evento _Activate "se dispara" CADA VEZ que el formulario "toma" el enfoque.
Cada vez que el formulario se activa (inclusive la "primera vez"), es posible que su actualizacion "siga en proceso"
con lo cual (posiblemente) el Application.ScreenUpdating "todavia" esta en False.
_______
Saludos,
Héctor.
MS-MVP

Saludos Héctor, pues tienes razón, hice el cambio de nombres y me quedó muy
bien. Muchas gracias por la ayuda.

Saludos

Franco Alonso

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

Hola, Deyvi !

> ... no entiendo porque en "otro" ... sin haber quitado

"Application.ScreenUpdating = False" no tiene el arrastre [...]

> ... son idénticos a mi entender solo que hacen referencia a ditintas

hojas [...]

==> Tienes razon al "sentir" que son iguales, la diferencia es que... =>

"estan" en eventos DIFERENTES <>

a) El evento _Initialze "se encarga" (UNA SOLA VEZ) de la preparacion

del formulario ANTES de mostrarlo.

Cuando el formulario (finalmente) es mostrado, "ya paso" el

Application.ScreenUpdating de False a True

b) El evento _Activate "se dispara" CADA VEZ que el formulario "toma"

el enfoque.

Cada vez que el formulario se activa (inclusive la "primera vez"),

es posible que su actualizacion "siga en proceso"

con lo cual (posiblemente) el Application.ScreenUpdating "todavia"

esta en False.

_______
Saludos,
Héctor.
MS-MVP