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:#
Mostrar la cita

Hola, Franco Alonso !

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

[...]
Mostrar la cita

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

tienes la instruccion:
Mostrar la cita

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