Facturación

[jgc1981]

Hola a todos!

Gracias ante todo! espero que me podáis ayudar! Gracias!!

Tengo una plantilla en excel, donde todos los meses creo una nueva hoja, pego el contenido estático, modifico el número de facturación que es dinámico y el nombre de la hoja para especificar el mes y año.

Sería posible automatizarlo?

El numero de facturación siempre empieza por 67/mesaño, ej: 67/1110 (noviembre de 2010), me gustaría que mesaño fuese incrementandose automaticamente.

y si fuera posible que se crease la hoja de cada mes automaticamente, genial! si me ofrecéis otras opciones estoy abierto a ello.

y si es necesario que os de más datos, me decís. sin problemas.

Muchisimas gracias y espero que me deis ideas y ayudas!!!

 

[Marcelo Branco]

hola jgc1981,

Pensando en 2011

Preguntas:
1. Hay un cuaderno para cada año?

2. para 2011 cómo serán los nombres de las hojas: 0111, 0211, ... 1211
o
012011, 022011, ...122011?

3. El contenido estático cambia a cada año o es el mismo?

4. En que celdas hay contenido dinamico? Cómo és este contenido? Podría mostrar um ejemplo?

M.

 

[jgc1981]

Hola Marcelo,

muchas gracias por tu ayuda, mi nombre es Javier para que no tengas que llamarme por mi user.

Te contesto a tus preguntas:

1. con cuaderno te refieres a fichero por año?
realmente no se como hacer esto, realmente quiero algo sencillo y automatizado pero me adapto a lo que sea.

2. para 2011 será igual cambiando el año, como dices. 67/0111, 67/0211, 67/0311, etc...

3. el contenido en principio no cambiará a no ser que cambie el nombre de la persona a facturar o la cantidad a facturar. de primeras será estático.

4. Los contenidos dinámicos serán siempre de fecha, la comentada en el punto2 corresponde a la celda C9.

En el texto donde confirma la cantidad recibida, contiene septiembre donde debería ir cada mes.

y en la firma donde indica la fecha de nuevo. también deberia de salir cada mes actualizado.

No tengo ningún problema en enseñarte un ejemplo, te paso una imagen:

Muchisimas gracias!

 

[bmacias]

Aqui esta algo que tal vez pueda ayudar. Se podria hacer mas corto delcarando mas vairables. Pero funciona : )

Crea la hoja con el primer mes con la informacion estatica y en la casilla/celda c9 pones el numero de facturacion (i.e. 67/0111) tambien en la celda d9 pones 67/0211 que seria la facturacion del siguiente mes). El macro eventualmente borra lo que esta en la d9 ; )

Sub COPY1()

Dim X As Integer
Dim y As Integer

For X = 1 To 11
Sheets("01-11").Select
Sheets("01-11").Copy After:=Sheets(1)
Next X

Sheets("01-11 (2)").Name = "12-11"
Sheets("01-11 (3)").Name = "11-11"
Sheets("01-11 (4)").Name = "10-11"
Sheets("01-11 (5)").Name = "09-11"
Sheets("01-11 (6)").Name = "08-11"
Sheets("01-11 (7)").Name = "07-11"
Sheets("01-11 (8)").Name = "06-11"
Sheets("01-11 (9)").Name = "05-11"
Sheets("01-11 (10)").Name = "04-11"
Sheets("01-11 (11)").Name = "03-11"
Sheets("01-11 (12)").Name = "02-11"

Sheets("01-11").Activate
Range("C9:d9").Select
Selection.AutoFill Destination:=Range("c9:n9"), Type:=xlFillDefault

Range("D9").Cut Destination:=Sheets("02-11").Range("C9")
Range("e9").Cut Destination:=Sheets("03-11").Range("C9")
Range("f9").Cut Destination:=Sheets("04-11").Range("C9")
Range("g9").Cut Destination:=Sheets("05-11").Range("C9")
Range("h9").Cut Destination:=Sheets("06-11").Range("C9")
Range("i9").Cut Destination:=Sheets("07-11").Range("C9")
Range("j9").Cut Destination:=Sheets("08-11").Range("C9")
Range("k9").Cut Destination:=Sheets("09-11").Range("C9")
Range("l9").Cut Destination:=Sheets("10-11").Range("C9")
Range("m9").Cut Destination:=Sheets("11-11").Range("C9")
Range("n9").Cut Destination:=Sheets("12-11").Range("C9")

Sheets("02-11").Range("D9").ClearContents
Sheets("03-11").Range("D9").ClearContents
Sheets("04-11").Range("D9").ClearContents
Sheets("05-11").Range("D9").ClearContents
Sheets("06-11").Range("D9").ClearContents
Sheets("07-11").Range("D9").ClearContents
Sheets("08-11").Range("D9").ClearContents
Sheets("09-11").Range("D9").ClearContents
Sheets("10-11").Range("D9").ClearContents
Sheets("11-11").Range("D9").ClearContents
Sheets("12-11").Range("D9").ClearContents

End Sub

Saludos

 

[Marcelo Branco]

Hola Javier,

Utilize un cuaderno (workbook) de teste.

Para criar todas las hojas 2011 y con los numeros de fatura utilize esta macro.

Public Sub CriaHojas2011()
    Dim i As Long, strName As String, wk As Worksheet, strFatura
 
    For i = 12 To 1 Step -1
 
        If i < 10 Then
            strName = "0" & i & "-11"
            strFatura = "67/0" & i & "11"
        Else
            strName = i & "-11"
            strFatura = "67/" & i & "11"
        End If
 
        ThisWorkbook.Worksheets.Add
        ActiveSheet.Name = strName
        Range("C9") = "Factura no"
        Range("D9") = strFatura
        Columns("C:D").AutoFit
    Next i
 
End Sub

Si todo funciona bien copia el contenido estático de una hoja de 2010 (Ctrl-C)

Seleccionar todas las nuevas hojas para 2011 (01-11, 02-11, ....12-11) manteniendo pulsada la tecla CTRL y haciendo clic en cada ficha (TAB) 01-11, 02-11 ... 12-11

Ahora es suficiente pegar en una sola hoja, por ejemplo 01-11.

Todas las hojas de 2011 (02-11, 03-11....) serán también formateadas con el contenido estático.

Espero que esto ayude.

M.