Tamaño de los userforms se vuelve loco

[Borjaveiga]

Tengo un serio problema con el tamaño de mis userform

He creado un libro con multitud de hojas, cada una de ellas tiene un botón para abrir un userform (que he creado) todo funciona a la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sin ver tu archivo se hace difícil.

 

[Borjaveiga]

Private Sub CommandButton1_Click()

Proveedor.Width = 3682
Proveedor.Height = 32585


For Fila = 5 To 20000
If Cells(Fila, "B") = "" Then
contador = Fila
Exit For
End If
Next Fila
Cells(contador...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sin ver tu archivo se hace difícil.

 

[Borjaveiga]

Lo logre, tenia que ponerlo en la inicialización del userform no en la instrucción de commandbutton_click

 

[Borjaveiga]

Creia que lo habia logrado pero no..... subo el archivo

 

[Macro Antonio]

Creo que más o menos te lo he dejado arreglado.

Te dejo estos 2 códigos para que optimices tu programación.

Correlativo = WorksheetFunction.Max(Columns("B")) + 1 'Nuevo correlativo
contador...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Borjaveiga]

Muchas gracias por tua ayuda Antoni!