No soy Perfecto

https://onedrive.live.com/redir?resid=7C89ECB6AA484945!325&authkey=!AF3BmYSYmBbPl7I&ithint=file%2cxls Prueba este Código para ver si es lo que necesitas.

Para ayudarte mejor sube un ejemplo de tu archivo para echarle un vistazo así con gusto.

Sub CopiarCeldas() 'Definir objetos a utilizar Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Origen") Set...

Usa esta macro: Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False ActiveSheet.Delete MsgBox "No tienes permitido insertar nuevas hojas de cálculo", vbInformation, "EXCELeINFO" Application.DisplayAlerts = True End Sub

Apegan dome a la pregunta original, prueba esto a ver si es lo que quieres: Primero crea un libro nuevo de excel En la Hoja1, cambia de nombre a MENU En la Hoja2, cambia de nombre a Enero 2015, y asi sucesivamente hasta llegar a Diciembre 2015.

El paso a Seguir es crear una macro para guardar cada cela a una hojas especifica, pero esto consume bastante memoria de la pc. Lo mejor que puedes hacer es crear un formulario que utilices como factura, en este form puedes agregar botones para crear...

Su ponte que el campo se llama FechaDoc en formato dd/mm/aaaa. Abres la consulta en diseño, y en la siguiente columna libre por la derecha pones: En la fila Campo: Month([FechaDoc]) En la fila Tabla: No pones nada En la fila Orden: Ascendente En la...

Syntax: Function glrScaleForm (frm As Form, intX As Integer, intY As Integer) frm: form to be scaled intX: horizontal resolution at which the form was designed intY: vertical resolution at which the form was designed Example: Sub Form_Open (Cancel As...

Para empezar la condición lo harías con IF, así Sub Validar() Range("a1").Select If Range("a1").Value = "1" Then Proceso de la macro Else If Range("a1").Value = "2" Then Proceso de la macro End If End If End Sub