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

Hola.
Donde va ubicada dicha Macro.En un Modulo.Ya ves poco de VBA.

Gracias.
Cordialmente

"Davidddd" escribió en el mensaje
news:

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

Esta Macro me da error de Compilacion,Error de Sintaxis.en la siguiente
Línea:
If activecell.offset(1,0)="" then Selection.End(xlDown).Select (para ir al
ultimo registro )
Qué se coloca donde estan las ""?

"Grupos de Noticias" escribió en el
mensaje news:

Hola.
Donde va ubicada dicha Macro.En un Modulo.Ya ves poco de VBA.

Gracias.
Cordialmente

"Davidddd" escribió en el mensaje
news:

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