Conservar Valeres de una Hoja cambiante

Si al crear un pedido nuevo hay que sobreescribir o borrar el anterior, hay
que crear un proceso que puede ser mediante una macro así:

Sub XYZ (nombre de la macro)
Sheets("pedido").Select (va a la hoja pedido donde se extraen los datos)
a1 = Range("celda donde se encuentra el no de pedido").Value
a2 = Range("celda sonde se encuentra el nombre del cliente").Value
a3 = Range("celda donde se encuantra el valor").Value
Sheets("consecutivo").Select (va a la hoja donde se llevara el registro)
Range("celda donde se encuentra el primer registro o el titulo").Select
if activecell.offset(1,0="" then Selection.End(xlDown).Select (para ir al
ultimo registro )
ActiveCell.Offset(1, 0).Select (para bajar una fila y llegar a una vacía
donde se creara el registro)
activecell¡ (el nuemo de pedido se registrara en la celda donde estoy
parado)
activecell.offset(0,1)¢ (el nombre del cliente se pegará en la celda de la
derecha donde estoy parado)
activecell.offset(0,1)¢ (el valor se pegará dos celdas a la derecha de
donde estoy parado)
Sheets("pedido").Select (vuelvo a la hoja donde inicié)
end sub (fin de la macro)



"Grupos de Noticias" escribió:

Saludos.
Tengo 4 Hojas en un Libro:
Productos-Clientes-Pedidos-Consecutivo
En la Hoja Pedidos tomando información de Productos y Clientes se elaboran
los Pedidos de los Clientes
Esta Hoja lleva un Número de Pedido consecutivo en la Celda F7; en F34
aparece el Total del Pedido en $; en B4 lleva el Nombre del Cliente en una
Lista Desplegable
Cómo puedo hacer para llevar un Registro automático en la Hoja Consecutivo
que incluya:
Nº de Pedido Cliente Total del Pedido
La inquietud se basa en que al hacer un nuevo Pedido los datos del Pedido
anterior se borran de la Hoja Pedido.

Gracias.
Cordialmente