jerryeagle

Sub Buscar() Dim rng As Range, msg As String Dim fecha As String With Columns("A:A") Set rng = .Find( _ What:=InputBox("Introduce el Número de Tráfico: "), _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _...

Intenta así Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).Show Range("b1"). Copy Range("b1"). PasteSpecial xlPasteValues End Sub Esto en el evento Workbook_BeforeSave de Workbook

Puedes seleccionar todas las celdas y en Formato de Celda, en la pestaña Proteger, desmarca donde dice "Bloquear", ahora elige las celdas, o columnas que quieres proteger y repite el primer paso pero ahora marca "Bloquear", ahora protege la hoja y...

Si es posible hacerlo con un For Next, checa este ejm: Dim Inicio, Final as Integer Inicio = Inputbox("Escrba el No. de la hoja Inicial que quiera Imprimir") Final = Inputbox("Escrba el No. de la hoja Final que quiera Imprimir") For i=Inicio to Final...

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

¿Y esos datos están en donde? 1. ¿En una Base de Datos SQL? 2. ¿En una Base de Datos Access? 3. ¿En una Tabla de Excel? Etc, etc... ¿En dónde?

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]