Hacer que las hojas de un libro se autonumeren

Estoy realizando una base de datos de clientes, he conseguido realizar una macro , con la que cada vez que pulso un boton que he colocado en una hoja principal, se me añada otra hoja al libro , con un formulario en blanco precargado.
Ahora me faltaría hacer que esa hoja nueva, se autonumerase(por defecto vienen con el "hoja1" )con un codigo que yo les doy a cada cliente, por ejemplo, le doy al boton y la hoja se me abre con el nombre en la pestañita cl001.2011, la siguiente cl002.2011, etc.
¿es posible?

1 respuesta

Respuesta
1
Si es posible. Has de poner después de crear la hoja, antes o después de poner el formulario precargado, no importa esto.
Sheets(Sheets. Count).Select 'Esto se va a la hoja creada
'Con esto se te pone en formato de 2 ceros como tu ejemplo.
if(Sheets.Count<10) then
             Sheets(Sheets.Count).Name = "cl00"+Sheets.Count+".2011"
else
    if(Sheets.Count>10 and Sheets.Count<100)
              Sheets(Sheets.Count).Name = "cl0"+Sheets.Count+".2011"
    else
            Sheets(Sheets.Count).Name = "cl"+Sheets.Count+".2011"
    end if
end if
lo he probado pero creo que no he anexado el programa correctamente, me da error de compilacion. He cambiado el formato de ejemplo por lo que voy a poner realmente. (la verdad es que suelo grabar las macros)
Sub NUEVAINCIDENCIATERM()
'
' NUEVAINCIDENCIATERM Macro
'
'
    Sheets("nueva incidencia").Select
    Sheets("nueva incidencia").Copy Before:=Sheets(Sheets.Count).Select 'Esto se va a la hoja creada
'Con esto se te pone en formato de 2 ceros como tu ejemplo.
If (Sheets.Count < 10) Then
             Sheets(Sheets.Count).Name = "IMT00" + Sheets.Count + ".2011"
Else
    If (Sheets.Count > 10 And Sheets.Count < 100) Then
              Sheets(Sheets.Count).Name = "IMT0" + Sheets.Count + ".2011"
    Else
            Sheets(Sheets.Count).Name = "IMT" + Sheets.Count + ".2011"
    End If
End If
End Sub
-----------------------------------------------------------------------------------------------------------------
Sub NUEVAINCFOTVLT()
'
' NUEVAINCFOTVLT Macro
'
'
    Sheets("NUEVA INC FOTOV").Select
    Sheets("NUEVA INC FOTOV").Copy Before:=Sheets(Sheets.Count).Select 'Esto se va a la hoja creada
'Con esto se te pone en formato de 2 ceros como tu ejemplo.
If (Sheets.Count < 10) Then
             Sheets(Sheets.Count).Name = "IMF00" + Sheets.Count + ".2011"
Else
    If (Sheets.Count > 10 And Sheets.Count < 100) Then
              Sheets(Sheets.Count).Name = "IMFl0" + Sheets.Count + ".2011"
    Else
            Sheets(Sheets.Count).Name = "IMF" + Sheets.Count + ".2011"
    End If
End If
End Sub
Sub NUEVAINCIDENCIATERM()'' NUEVAINCIDENCIATERM Macro'
'    Sheets("nueva incidencia").Select    Sheets("nueva incidencia").Copy Before:=Sheets(Sheets.Count).Select 'Esto se va a la hoja creada'Con esto se te pone en formato de 2 ceros como tu ejemplo.If (Sheets.Count < 10) Then             Sheets(Sheets.Count).Name = "IMT00" + Sheets.Count + ".2011"Else    If (Sheets.Count > 10 And Sheets.Count < 100) Then              Sheets(Sheets.Count).Name = "IMT0" + Sheets.Count + ".2011"    Else            Sheets(Sheets.Count).Name = "IMT" + Sheets.Count + ".2011"    End IfEnd IfEnd SubSub NUEVAINCFOTVLT()'' NUEVAINCFOTVLT Macro'
'    Sheets("NUEVA INC FOTOV").Select    Sheets("NUEVA INC FOTOV").Copy Before:=Sheets(Sheets.Count).Select 'Esto se va a la hoja creada'Con esto se te pone en formato de 2 ceros como tu ejemplo.If (Sheets.Count < 10) Then             Sheets(Sheets.Count).Name = "IMF00" + Sheets.Count + ".2011"Else    If (Sheets.Count > 10 And Sheets.Count < 100) Then              Sheets(Sheets.Count).Name = "IMFl0" + Sheets.Count + ".2011"    Else            Sheets(Sheets.Count).Name = "IMF" + Sheets.Count + ".2011"    End IfEnd IfEnd Sub
Creo que es porque el ------------------------------------------- no tiene el ' delante te quedaría
'----------------------------------------------------------

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo ver el ultimo dato de listbox cuando se actualiza?

A tod@s! Tengo un Listbox al que se le cargan varios datos, quiero que cuando se actualice, vaya directamente al ultimo valor mostrándolo en el ListBox. ¿No se si se puede actuar con algún código acutando en el Scroll para que se desplace hasta abajo...
2 respuestas

Macro que cargue datos desde un Listbox a un Formulario

Pregunta para Elsa Matilde Estoy tratando de conseguir una Macro que me permita al señalar una fila en el ListBox2 se refleje en el formulario Form_Factura. Podrá ayudarme
1 respuesta

Formula con dos condiciones

Necesito una formula que me diga si la celda de la izquierda esta vacía me ponga un guion (-), pero si la celda tiene información me ponga esta formula =NOW().
7 respuestas

Como mejorar Macro que actualiza Datos en 2 hojas del mismo Libro

Mediante la grabadora de Macro pude desarrollar la Macro Agregar_HojaAuxiliar(), pero veo a mi criterio por lo visto en dicho foro otras Macros que no son tan extensas por que sintetizan algunas líneas, habrá alguna posibilidad que en esta se pueda...
2 respuestas

Colocar 2 calendarios en hojas diferentes dentro del mismo archivo

Tengo un archivo con 2 hojas "Asistencias" y "Datos", coloque 1 calendarios en ambas hojas, pero sucede en la hoja "Asistencia "que al querer colocar la fecha en el TextBox2 dentro del formulario surge un error (1004 en tiempo de ejecución: Error en...
2 respuestas

Calcular edad en Excel fechas antes 1900

Necesito que un campo calcule los años meses y días de dos fechas (nacimiento y fallecimiento), reseñando que muchas fechas son antes de 1900. Es necesario que se pueda calcular en todos los pcs, sin necesidad de añadir complementos.
2 respuestas

Formato condicional con función de excel

Expertos, como puedo resaltar una celdas con formato condicional en base a una función lógica en Excel Mis criterios es que de lunes a vieres la hora laboradas son 8.5 y sábado 5.5 A partir de la columna D5 se colocan las fechas y en la columna G a...
4 respuestas

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
5 respuestas

Como hacer Formato personalizado de celda

Deseo saber si me pueden ayudar con para obtener este formato personalizado de celda. Escribir esto en una celda 624662678 / 944642829 Ver esto 624 66 26 78 / 944 64 28 29 A la espera de su ayuda, me despido.
3 respuestas

Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.

Tengo una tabla con datos, la primera columna (A) es un ID, cuando se completa información en mi base de datos, el número del ID lo elimino, quedando vacío. Entonces cuando vuelvo a cargar el listbox, no quiero que las filas con ID vacío se muestren...
4 respuestas