Agregar dato en una hoja y actualice auto. otra hoja

Que tal.

Lo que puedo sugerirte es crear una macro que cada vez que
ingreses datos en la hoja CONSULTA los mandé (presionando
un botón) a la página REGISTROS, pero en forma de base de
datos, para después manipularlo con Filtros.

con nombre para introducir datos.
iguales a los nombres de los campos en la hoja CONSULTA.
datos de los campos deben de copiarse a la hoja REGISTROS.

Ejemplo de la hoja REGISTROS

F_Consulta N_Paciente M_Recetados
01/07/04 1 Medicamento 1
02/07/04 1 Med. 2
03/07/04 2 Med. 3
04/07/04 3 Med. 4

El código de la macro es el siguiente:

Sub CopiarDatos()
'
' CopiarDatos Macro
' Macro escrita el 18/07/2004 por Tec. Inf. Sergio A
Campos H
'
Dim YouWantReg As Variant
YouWantReg = MsgBox("Sus datos son correctos ?",
vbYesNo, ActiveWorkbook.Name)
If YouWantReg = vbYes Then
Set TransRowRng = Worksheets("REGISTRO").Cells(1,
1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
'
With Worksheets("REGISTRO")
.Cells(NewRow, 1).Value = Sheets("CONSULTA").Range
("F3")
.Cells(NewRow, 2).Value = Sheets("CONSULTA").Range
("B6")
.Cells(NewRow, 3).Value = Sheets("CONSULTA").Range
("B13")
End With
MsgBox "Sus datos han sido copiados con éxito.",
vbInformation
'
End If
End Sub


A sus órdenes.

Tec. Inf. Sergio A Campos H

No se si esta claro, pero aqui va:

Tengo una tabla de registros(HOJA: REGISTROS), que uso

para llevar control

de los pacientes. Mensualmente hago un reporte de

consultas, hay ciertos

datos que debo agregar cuando llega el paciente por lo

que en mi reporte

agrego esos datos, es posible que ese dato agregado en la

hoja de consulta

se agregue en la hoja de registro, pero de forma

permanente.?

.