Excel - facturas con excel

   
Vista:

facturas con excel

Publicado por loli (11 intervenciones) el 22/07/2008 18:39:35
tengo otra duda, a ver si esta me la podéis resolver.


Tengo varias columnas en la hoja 1 d una excel en plan:


NºFACTURA CLIENTE FECHA TOTAL

1 sergio 18-09-2010

2 laura


Me gustaría que al poner 1 en la columna factura, se me crease en la hoja 2 del mismo libro una hoja llamada factura 1, con el cliente, la fecha y el total.

Al rellenar la fila 2, se me crease en la siguiente hoja (en la 3), lo mismo, una hoja llamada factura 2, con los datos de la 2 fila (laura....)

y asi sucesivamente....


Además me gustaria q me salga directamente la fecha del día en el q estoy, cuando estoy creando la fila, pero q se pueda modificar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:facturas con excel

Publicado por Octavio Illescas (46 intervenciones) el 23/07/2008 18:14:28
Tengo un libro que hace algo parecido, tienes que usar macros:

En el codigo de la hoja pon este codigo:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fact1 As Range
Set Fact1 = Range("D2")
If Target.Address = Fact1.Address Then Call Factu1

Dim Fact2 As Range
Set Fact2 = Range("D3")
If Target.Address = Fact2.Address Then Call Factu2

Dim Fact3 As Range
Set Fact3 = Range("D4")
If Target.Address = Fact3.Address Then Call Factu3

Dim Fact4 As Range
Set Fact4 = Range("D5")
If Target.Address = Fact4.Address Then Call Factu4

Dim Fact5 As Range
Set Fact5 = Range("D6")
If Target.Address = Fact5.Address Then Call Factu5

Dim Fact6 As Range
Set Fact6 = Range("D7")
If Target.Address = Fact6.Address Then Call Factu6

Dim Fact7 As Range
Set Fact7 = Range("D8")
If Target.Address = Fact7.Address Then Call Factu7

End Sub

Y en un modulo nuevo pon este otro codigo

Sub Factu1()
Sheets.Add
Sheets("Hoja2").Select
Sheets("Hoja2").Move After:=Sheets(2)
Sheets("Hoja2").Select
Sheets("Hoja2").Name = Workbooks.Application.Worksheets(1).Range("D2").Value

ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A2:D2").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select
End Sub
Sub Factu2()
Sheets.Add
Sheets("Hoja3").Select
Sheets("Hoja3").Move After:=Sheets(2)
Sheets("Hoja3").Select
Sheets("Hoja3").Name = Workbooks.Application.Worksheets(1).Range("D3").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A3:D3").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub
Sub Factu3()
Sheets.Add
Sheets("Hoja4").Select
Sheets("Hoja4").Move After:=Sheets(2)
Sheets("Hoja4").Select
Sheets("Hoja4").Name = Workbooks.Application.Worksheets(1).Range("D4").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A4:D4").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub
Sub Factu4()
Sheets.Add
Sheets("Hoja5").Select
Sheets("Hoja5").Move After:=Sheets(2)
Sheets("Hoja5").Select
Sheets("Hoja5").Name = Workbooks.Application.Worksheets(1).Range("D5").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A5:D5").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub
Sub Factu5()
Sheets.Add
Sheets("Hoja6").Select
Sheets("Hoja6").Move After:=Sheets(2)
Sheets("Hoja6").Select
Sheets("Hoja6").Name = Workbooks.Application.Worksheets(1).Range("D6").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A6:D6").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub
Sub Factu6()
Sheets.Add
Sheets("Hoja7").Select
Sheets("Hoja7").Move After:=Sheets(2)
Sheets("Hoja7").Select
Sheets("Hoja7").Name = Workbooks.Application.Worksheets(1).Range("D7").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A7:D7").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub
Sub Factu7()
Sheets.Add
Sheets("Hoja8").Select
Sheets("Hoja8").Move After:=Sheets(2)
Sheets("Hoja8").Select
Sheets("Hoja8").Name = Workbooks.Application.Worksheets(1).Range("D8").Value


ActiveSheet.Previous.Select
Range("A1:D1").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1.D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

Range("A8:D8").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2.D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Previous.Select

End Sub

Espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:facturas con excel

Publicado por loli (11 intervenciones) el 25/07/2008 10:06:43
hola...me gustaria que me dijeses donde tengo q copiar este programa q me envias. gracias por todo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:facturas con excel

Publicado por Octavio Illescas (46 intervenciones) el 26/07/2008 01:01:37
Te he mandado un correo con el archivo de ejemplo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:facturas con excel

Publicado por ladillitasoft (4 intervenciones) el 25/07/2008 08:23:34
Hola ¿Cómo estas?

Quería decirte que si necesitas
un programa buscálo en:
http://ladillitasoft.blogspot.com/
y si en esa web no lo encontras,
avisáme que trato de encontrarlo
en alguna otra web, y luego lo subo a
http://ladillitasoft.blogspot.com/.

Espero que estés súper bien!!!!

Abrazos!!!!!!!!!!!

http://ladillitasoft.blogspot.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:facturas con excel

Publicado por loli (11 intervenciones) el 31/07/2008 08:23:15
gracias octavio y ladillitasoft............
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar