Agregar datos a otra hoja cada vez que ingrese registros

Buenos días, hace poco hice una pregunta en todo expertos sobre pasar datos de una hoja llamada "datos" a otra hoja y la respuesta me fue de gran ayuda, modificando el código pude resolver la mayoría de inconvenientes excepto la siguiente:

-como manejo una cantidad diaria de 100 filas ingresadas, quisiera poder pasar los registros de la hoja "datos" hacia la otra hoja pero solo los que se vallan ingresando en ese día y así sucesivamente, sin tener que filtrar toda l información previamente llenada.

Dejo el código (gracias experto Dam) que esta modificado para que solo pasen ciertas columnas hacia la otra hoja y no limpie la hoja al pasarlas. Muchas gracias por su tiempo y respuesta.

Sub numeros3()
'Pone códigos únicos en otra hoja
'Por.Dam (modificado)
Dim encontrado As Boolean
Set h1 = Sheets("datos")
Set h2 = Sheets("Hoja1")
h2.Cells.Clear
h1.Select
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
 encontrado = False
 For j = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
 If h1.Cells(i, "A") = h2.Cells(j, "A") _
 And h1.Cells(i, "B") = h2.Cells(j, "B") _
 And h1.Cells(i, "C") = h2.Cells(j, "C") _
 And h1.Cells(i, "D") = h2.Cells(j, "D") _
 And h1.Cells(i, "F") = h2.Cells(j, "E") Then
[size= 0.8em; line-height: 1.1em]encontrado = True[/size]
 End If
 Next
 If encontrado = False Then
 h2.Range("A" & h2.Range("A" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "A")
 h2.Range("B" & h2.Range("B" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "B")
 h2.Range("C" & h2.Range("C" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "C")
 h2.Range("D" & h2.Range("D" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "D")
[size= 0.8em; line-height: 1.1em]h2.Range("E" & h2.Range("E" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "F")[/size]
 End If
Next
h2.Select
 Range("A1").Value = "Codigo"
 Range("B1").Value = "Cliente"
 Range("C1").Value = "Producto"
 Range("D1").Value = "Material"
 Range("E1").Value = "Fecha"
 Range("A1:E1").Select
 Selection.Font.Bold = True
 Selection.HorizontalAlignment = xlCenter
 Selection.End(xlDown).Select
MsgBox "Proceso terminado", vbInformation, "Códigos"
End Sub

1 respuesta

Respuesta
1

Puedes enviarme un archivo con ejemplos, pon un ejemplo de cuál dato si pasaría y cuál dato no pasaría, y con la macro para hacer pruebas.

Ok, te la acabo de enviar experto, muchas gracias.

Discúlpame por no poner la aclaración en el correo, en cuanto a que dato no pasaría, de cierto modo solo pasarían los datos que ingrese cada dia y que pasarían a la otra hoja, en resumen pasarían los datos nuevos y filtrados hacia la otra hoja, para no estar filtrando toda la base de datos desde el primer registro de la hoja "datos". Muchas Gracias.

Pero cómo identifico : " ¿los datos nuevos y filtrados"?

¿De los 24 registros que vienen en la hoja datos? Cuáles paso, puedes poner el ejemplo

Saludos. Dam

claro, por ejemplo.. estos datos los tengo en la hoja "datos"

código nombre
c001 nomA
c001 nomA
c002 nomB

c001 nomC --ultimo registro ingresado

Ahora veamos como queda filtrada en la otra hoja :

código nombre
c001 nomA
c002 nomB
c001 nomC -aparece como ultimo

Hasta aquí ok, ahora pongamos el caso que ingreso otros registros (c003 nomD) en la hoja "datos",

código nombre
c001 nomA
c001 nomA
c002 nomB
c001 nomC

c003 nomD --->que solo filtre este registro ingresado un dia x

c003 nomD --->que solo filtre este registro ingresado un dia x

como hay duplicados de esos registro en la hoja "datos", la macro lee nuevamente todos los registros y la idea es que solo filtre los registros ingresados por eje,plo, de ese dia.

quedaría en la otra hoja como:

c001 nomA
c002 nomB
c001 nomC

c003 nomD

Todo bien, pero supongamos que tenga mas de 4000 registros en la hoja "datos", el problema surge que por mas que yo solo ingrese un registro, la macro va a recorrer todos esos registros desde el principio hasta el ultimo ingresado, lo ideal seria que mientras yo ingrese los registros solo filtren los ingresados en ese dia en particular, por favor si tienes alguna otra duda mela comentas, muchas gracias experto.

Ya te envié el archivo, tuve que agregar una columna en la macro, es decir, en la columna G voy a poner una X a cada registro cuando sea procesado, los registros nuevos no tendrán esa X, por lo tanto cuando ejecutes la macro sólo considerará los registros que no tienen X ("los nuevos"),

Saludos. Dam

Si es lo que necesitas.

Resulto mejor de lo que esperaba, ya que solo filtra los registros que no tengan la X en la columna G y después agregarlos para no considerarlo en los posteriores filtros, me costo un poco de tiempo en entender la macro después de realizar las pruebas, solo tengo una duda y es que el campo fecha en la hoja (Hoja1) siempre lo va a tomar como formato numero o es posible cambiarlo al formato fecha?, he tratado probar con el Cdate pero no produce ningún cambio, muchas gracias.

No me había fijado.

Cambia esta línea

h2.Range("E" & h2.Range("E" & Rows.Count).End(xlUp).Row + 1) = h1.Cells(i, "F")

Por esta

h2.Range("E" & h2.Range("E" & Rows.Count).End(xlUp).Row + 1) = Format(h1.Cells(i, "F"), "dd/mm/yyyy")

Saludos. Dam

Hola, probé el cambio de código y realiza el cambio, aparecen todos los datos en la otra hoja (hoja1) con formato fecha pero sin el filtro. En cambio reemplazando el Cdate en el mismo lugar que el Format, se produce lo que estaba esperando, aquí dejo el código y te envío el archivo para comprobar is es posible que produzca error por usar el Cdate. Gracias por tu respuesta.

h2.Range("E" & h2.Range("E" & Rows.Count).End(xlUp).Row + 1) = CDate(h1.Cells(i, "F"))

Tienes razón, funciona bien con CDate, no veo ningún error, entonces deja CDate

Saludos. Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Extraer datos repetidos de una hoja a otra

Tengo una llamada "datos" con varios registros que son agrupados de acuerdo aun identificador de una columna llamada código, por ejemplo: Código nombre prod valor C001 nomA sofá 500 C001 momA sillón 600 C002 nomB regla 100 C002 nomB lápiz 50 Los...
1 respuesta

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

¿Cómo puedo agilizar un código de filtrado de datos?

Todoexpertos", tengo un gran problema con una rutina para filtrar registros. El problema es que dicha rutina me dura mucho en terminar y arrojar resultados, me preguntaba si alguien me pudiera orientar para que me corra más rápido. Describiendo un...
1 respuesta

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

Macro para eliminar y copiar filas en otra hoja

Aquí, haciendo incursiones con las macros pero esto es muy complejo. Agradecería mucho su ayuda. Tengo 2 hojas de excel en un libro. En la hoja 1 tengo miles de filas y datos repartidos en 10 columnas. En la hoja 2 cientos de filas y datos repartidos...
1 respuesta

Macro que compare valores de sos libros

Macro Tengo un libro llamado "libro1" de ahí quiero tener el botón para correr la macro quiero que al correrla me abra la ventana para yo seleccionar que archivo abrir de excel que este varia el nombre al momento de abrirlo me filtre por dos...
1 respuesta

Macro para filtrar datos de una Hoja a otra

Tengo aquí una macro que aporto un usuario en donde se puede filtrar datos de una hoja a otra y colocar los resultados en esta ultima. Ahora bien mi problema esta en que esta macro filtra todas las filas hacia el costado y yo necesito que solo filtre...
2 respuestas