ComboBox1

hola Ager,

El calculo/actualizacion de la hoja es tan lenta que sucede lo siguiente:
selecciona el rango ajusta las columnas y despues se actualiza con los
datos
nuevos.

Pregunta:
Como hago para que primero se actualice la hoja y despues seleccione el
rango y ajuste las columnas

si te digo la verdad, en el codigo que expones yo no veo que realices
ninguna accion sobre ningun rango/celda que no sea el de ajustar las
columnas (aparte de ir seleccionando celdas). Supongo que tendras asignado
algun tipo de validacion en las celdas/rangos que mencionas (¿a lo mejor via
SelectionChange?) que provoca una actualizacin/recalculo al cambiar de
seleccion, pues si no es asi no alcanzo a verlo.

Si es asi, me temo que sin conocer mas detalles seria dificil emitir una
opinion. Quizas convendria que expusieras como/cuando/en base a que se
actualizan las celdas/rangos

en cualquier caso si quieres prueba el siguiente codigo, a ver si mejora
algo (echale un ojo a los comentarios)


Private Sub ListBox3_Click()
Application.ScreenUpdating = False
' no se si seleccionar 'A1' tiene algun sentido, _
si es asi desmarca (quita la comilla inicial) _
la siguiente linea
' Range("a1").Select
With Sheets("secc")
.Visible = True
.Range("d7:ad40").Columns.AutoFit
' .Range("d8").Select ' aqui lo mismo que con A1
End With
End Sub


si quieres comentas como te ha ido, y/o expones algun detalle mas

un saludo y hasta pronto
Ivan

hola de nuevo, Ager

disculpa, en mi anterior mensaje ni habia caido en que posiblemente se trate
de un listbox incrustado/vinculado en la hoja, con los cuales, por cierto,
apenas he trabajado y no controlo casi nada.

de todas formas, todo lo demas sigue siendo valido (como, cuando, etc,
actualizas los rangos)

aparte, en mis pruebas, el codigo que te expongo parece no tener problemas

bueno, un saludo
Ivan