Registro lineal al imprimir de una hoja de datos
Hola, saludos a todos. Quería que me ayudaseis diciéndome como puedo crear una hoja de registro dentro de un libro, el cual tiene su hoja de datos que uso para imprimir albaranes, lo que pretendo es que se cree un registro con los datos de la hoja de datos en una linea de otra hoja que seria la de registro cada vez que imprimo, soy muy novato, he conseguido que me calcule saldos al imprimir y que me cambie el numero de albarán, pero esto ya me supera un poco, muchas gracias y perdonad si no me explico muy bien, ciaitol
1 Respuesta
Respuesta de Elsa Matilde
1
Dibujá un botón con la barra Cuadro de Controles, del menú Ver-Barras de herramientas en tu hoja Albaranes.
Con clic derecho sobre el botón, opción Ver código te llevará al Editor donde deberás copiar la rutina que te adjunto.
Lo que hace la rutina es pasar de la hoja Albaranes (reemplazá por el nbre de tu hoja Albaranes) a una hoja BASE a partir del último registro grabado.
En mi hoja hay datos fijos de encabezado y una lista de productos a partir de la fila 13.
Leé con atención los comentarios en la rutina para poder adaptarla sin dificultad a la tuya. Cualquier inconveniente solicítame el ejemplo a mi correo.
Private Sub CommandButton1_Click()
'desarrollada por Elsamatilde
'http://es.geocities.com/lacibelesdepunilla
Dim filalibre As Integer
filalibre = Sheets("BASE").Range("A65536").End(xlUp).Row + 1
Sheets("Facturas").Select
ActiveSheet.Range("A13").Select
'recorre la lista de productos
While ActiveCell.Value <> ""
Sheets("BASE").Cells(filalibre, 1) = ActiveCell
Sheets("BASE").Cells(filalibre, 2) = ActiveCell.Offset(0, 1)
Sheets("BASE").Cells(filalibre, 3) = ActiveCell.Offset(0, 2)
'así con todos los datos de la fila
'....
' copiar los datos fijos a partir de la col H
Sheets("BASE").Cells(filalibre, 8) = ActiveSheet.Range("F10")
Sheets("BASE").Cells(filalibre, 9) = ActiveSheet.Range("C4")
'así con todos los datos fijos.
'....
'se posiciona en la siguiente fila para repetir el bucle
ActiveCell.Offset(1, 0).Select
Wend
'debiera limpiar el formato para una nueva factura
'e incrementar el nro de fact
'Call limpieza 'OPCIONAL
End Sub
Con clic derecho sobre el botón, opción Ver código te llevará al Editor donde deberás copiar la rutina que te adjunto.
Lo que hace la rutina es pasar de la hoja Albaranes (reemplazá por el nbre de tu hoja Albaranes) a una hoja BASE a partir del último registro grabado.
En mi hoja hay datos fijos de encabezado y una lista de productos a partir de la fila 13.
Leé con atención los comentarios en la rutina para poder adaptarla sin dificultad a la tuya. Cualquier inconveniente solicítame el ejemplo a mi correo.
Private Sub CommandButton1_Click()
'desarrollada por Elsamatilde
'http://es.geocities.com/lacibelesdepunilla
Dim filalibre As Integer
filalibre = Sheets("BASE").Range("A65536").End(xlUp).Row + 1
Sheets("Facturas").Select
ActiveSheet.Range("A13").Select
'recorre la lista de productos
While ActiveCell.Value <> ""
Sheets("BASE").Cells(filalibre, 1) = ActiveCell
Sheets("BASE").Cells(filalibre, 2) = ActiveCell.Offset(0, 1)
Sheets("BASE").Cells(filalibre, 3) = ActiveCell.Offset(0, 2)
'así con todos los datos de la fila
'....
' copiar los datos fijos a partir de la col H
Sheets("BASE").Cells(filalibre, 8) = ActiveSheet.Range("F10")
Sheets("BASE").Cells(filalibre, 9) = ActiveSheet.Range("C4")
'así con todos los datos fijos.
'....
'se posiciona en la siguiente fila para repetir el bucle
ActiveCell.Offset(1, 0).Select
Wend
'debiera limpiar el formato para una nueva factura
'e incrementar el nro de fact
'Call limpieza 'OPCIONAL
End Sub
Gracias, voy a intentarlo y avisare
Te recuerdo que debes finalizar la consulta si el tema quedó concluido...
