Ulises Galleguillos

Sebas Torres respondió: Prueba creando esta macro Sub Impresion() Application.PrintCommunication = False With ActiveSheet.PageSetup .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("A1:K34").Select ActiveSheet.PageSetup.PrintArea =...

Sebas Torres respondió: Agrega en el botón de cerrar el formulario ThisWorkbook. Save

Elsa Matilde respondió: Probalo de esta manera: 1- Quitá la rutina del evento BeforeClose 2- En el Userform colocá esta en el evento que controla el botón 'x' del cierre. Si tenés alguna otra manera de cerrar el Uf dejame el código para controlarla: Private Sub...

Dante Amor respondió: Te anexo el código para buscar Private Sub CommandButton1_Click() Label1.Caption = "" valor = TextBox1.Value If valor = "" Then MsgBox "Captura un folio" TextBox1.SetFocus Exit Sub End If If IsNumeric(valor) Then valor = Val(valor) Set b =...

Elsa Matilde respondió: Creo que lo mejor sería que tengas una lista con los rangos que ocupa cada casillero, imaginemos en Hoja1: Luego, al seleccionar un nro en el combobox1 se busca el rango asociado y se calcula cuántas celdas llenas tiene ese rango... y según eso será...

Elsa Matilde respondió: Es muy difícil entregar una macro con tan poca información. Esperemos que sepas ajustarla a tu modelo. ¿Una macro es un conjunto de instrucciones para resolver algo... tu macro se encuentra en un Userform? Voy a suponer que sí desde el momento que...