jerryeagle

Solo quítale esta linea y debe funcionar normal ActiveSheet. Copy Lo que hace esta linea es copiar la hoja activa a otro libro, por eso solo te guarda una hoja

En un module pega esto: Sub MueveDato() Dim U As Integer 'Esta linea guarda el No. de la Fila Vacia Siguiente de la hoja 2 U = Sheets("Hoja2").Range("a65536").End(xlUp).Row + 1 'Copia, pega y borra el contenido de la celda C3 Range("c3").Copy...

Seria bueno que pusieras tu código o parte de el, para checar como "llenas" el combobox

Si quieres evitar que las vean en lugar de: XlSheetHidden Usa esto: XlVeryHidden Así solo con Macros puedes mostrar las hojas

Ya he hecho algo así, mandame tu archivo al: [email protected]

En el evento open de ThisWorkbook pon esto: ActiveSheet.Range("A10").Value =0 Así cada vez que se abra el archivo el contador iniciará de 0

Lo que hace pesado a los libros de Excel son las fórmulas, una forma de "alivianar" la carga es que el calculo de las fórmulas no sea automático, pero tendrías que presionar F9 para actualizarlas. Otra forma seria con macros que calculen al momento y...

Un ejemplo seria así: Private Sub TextBox1_Change() 'Solo Numeros If Not IsNumeric(Me.TextBox1.Value) Then Me.TextBox1.Text = "": Exit Sub End Sub Private Sub TextBox2_Change() 'No Numeros If IsNumeric(Me.TextBox2.Value) Then Me.TextBox2.Text = "":...

Un InputBox no es multilínea, ¿pero cuál seria la ventaja de que lo fuera? Si de todos modos el usuario debe presionar ENTER para cambiar de renglón (Igual que si presiona ENTER para que aparezca tu 2o. InputBox)

Intenta así: Sub imprimir() If MsgBox("Desea imprimir el documento?", vbYesNo) = vbYes Then Application.Dialogs(xlDialogPrint).Show End If End Sub