problemas con exportacion de fecha a otra hoja a o

**introducen datos varios usuarios en diferentes lugares, entre ellos la fecha de introducción, que mediante la función descrita se copian a otra hoja**

   estoy copiando datos de una hoja a otra con este codigo
Set ArchivoDestino = x10.Workbooks.Open(Ruta & "\Datos.xlsx")
Set HojaDestino = ArchivoDestino.Worksheets("Datos")
'
'Definimos el rango actual de la hoja Datos
Set RangoDatos = HojaDestino.Cells(1, 1).CurrentRegion
'
'Nueva fila será la fila donde se guardarán los datos nuevos
NuevaFila = RangoDatos.Rows.Count + 1
'La variable HojaDestino será la hoja donde se guardarán los datos.
With HojaDestino
    .Cells(NuevaFila, 1).Value = ThisWorkbook.Sheets(1).Range("b3") 'usuario
    .Cells(NuevaFila, 2).Value = Date    'Día actual
    .Cells(NuevaFila, 3).Value = ThisWorkbook.Sheets(1).Range("b5") 'nombre
    .Cells(NuevaFila, 4).Value = ThisWorkbook.Sheets(1).Range("b6")  'apellidos
    .Cells(NuevaFila, 5).Value = ThisWorkbook.Sheets(1).Range("b7")   'tipo
    .Cells(NuevaFila, 6).Value = ThisWorkbook.Sheets(1).Range("b8")   'motivo consulta
    .Cells(NuevaFila, 7).Value = ThisWorkbook.Sheets(1).Range("b9")  'descripción
    .Cells(NuevaFila, 8).Value = ThisWorkbook.Sheets(1).Range("b10")  'coa
    .Cells(NuevaFila, 9).Value = ThisWorkbook.Sheets(1).Range("b11")     'resuelto
    .Cells(NuevaFila, 10).Value = ThisWorkbook.Sheets(1).Range("b12")   'tiempo
    '.Cells(NuevaFila, 11).Value = ThisWorkbook.Sheets(1).Range("b13")   'Comentarios
End With
'
MsgBox "Alta correcta.", vbInformation, strTitulo
'
'
'Guardamos el archivo con los datos.
ArchivoDestino.Save
'Cerramos el archivo con los datos.
ArchivoDestino.Close
'Quitamos las referencias a los objetos de la otra instancia de Excel
Set x10 = Nothing
Set ArchivoDestino = Nothing

todo es correcto ya que aparecen los datos en la hoja de destino y aparentemente correctos. 
el problema se presenta en ue al actualizar los datos los filtros de fecha desaparecen y solo de puede filtrar registro por registro, y al aher cualquier hoja dinámica el campo de la fecha no tiene mas filtro que fecha por fecha.
¿alguien puede saber como solucionarlo?

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
acilu Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 11/Enero/2007 Localización: Zamora Estado: Sin conexión Puntos: 146	Opciones de entrada Responder Cita acilu Informar de mensaje Gracias(0) Cita Respuesta Tema: problemas con exportacion de fecha a otra hoja a o Enviado: 27/Febrero/2024 a las 19:59
	estoy copiando datos de una hoja a otra con este codigo Set ArchivoDestino = x10.Workbooks.Open(Ruta & "\Datos.xlsx") Set HojaDestino = ArchivoDestino.Worksheets("Datos") ' 'Definimos el rango actual de la hoja Datos Set RangoDatos = HojaDestino.Cells(1, 1).CurrentRegion ' 'Nueva fila será la fila donde se guardarán los datos nuevos NuevaFila = RangoDatos.Rows.Count + 1 'La variable HojaDestino será la hoja donde se guardarán los datos. With HojaDestino .Cells(NuevaFila, 1).Value = ThisWorkbook.Sheets(1).Range("b3") 'usuario .Cells(NuevaFila, 2).Value = Date 'Día actual .Cells(NuevaFila, 3).Value = ThisWorkbook.Sheets(1).Range("b5") 'nombre .Cells(NuevaFila, 4).Value = ThisWorkbook.Sheets(1).Range("b6") 'apellidos .Cells(NuevaFila, 5).Value = ThisWorkbook.Sheets(1).Range("b7") 'tipo .Cells(NuevaFila, 6).Value = ThisWorkbook.Sheets(1).Range("b8") 'motivo consulta .Cells(NuevaFila, 7).Value = ThisWorkbook.Sheets(1).Range("b9") 'descripción .Cells(NuevaFila, 8).Value = ThisWorkbook.Sheets(1).Range("b10") 'coa .Cells(NuevaFila, 9).Value = ThisWorkbook.Sheets(1).Range("b11") 'resuelto .Cells(NuevaFila, 10).Value = ThisWorkbook.Sheets(1).Range("b12") 'tiempo '.Cells(NuevaFila, 11).Value = ThisWorkbook.Sheets(1).Range("b13") 'Comentarios End With ' MsgBox "Alta correcta.", vbInformation, strTitulo ' ' 'Guardamos el archivo con los datos. ArchivoDestino.Save 'Cerramos el archivo con los datos. ArchivoDestino.Close 'Quitamos las referencias a los objetos de la otra instancia de Excel Set x10 = Nothing Set ArchivoDestino = Nothing todo es correcto ya que aparecen los datos en la hoja de destino y aparentemente correctos. el problema se presenta en ue al actualizar los datos los filtros de fecha desaparecen y solo de puede filtrar registro por registro, y al aher cualquier hoja dinámica el campo de la fecha no tiene mas filtro que fecha por fecha. ¿alguien puede saber como solucionarlo?

AnSanVal Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5990	Opciones de entrada Responder Cita AnSanVal Informar de mensaje Gracias(0) Cita Respuesta Enviado: 29/Febrero/2024 a las 10:56
	Personalmente, entiendo mejor a tu código... Transpone $B$5:$B$13 a continuación de los datos existentes en destino. ... que a ti, ni siquiera te detuviste a repasar el texto escrito. 1.- "... ue al actualizar los datos los filtros de fecha desaparecen..." 2.- "... al aher cualquier hoja dinámica el campo de la fecha no tiene mas filtro que fecha por fecha...." ¿Que relación hay entre 1 y 2? Además de explicar lo que estás haciendo (que también), intenta explicar (para los que no podemos ver tus datos) lo que pretendes conseguir, o cual es realmente el problema.
	Saludos desde Tenerife.

acilu Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 11/Enero/2007 Localización: Zamora Estado: Sin conexión Puntos: 146	Opciones de entrada Responder Cita acilu Informar de mensaje Gracias(0) Cita Respuesta Enviado: 01/Marzo/2024 a las 19:26
	Primero perdón por explicarme tan mal: lo que quiero hacer es lo siguiente: una hoja en la que introducen datos varios usuarios en diferentes lugares, entre ellos la fecha de introducción, que mediante la función descrita se copian a otra hoja llamada datos.xlsx situada en un servidor. los datos se copian correctamente, pero con una salvedad: al actualizar el Dashboard los filtros de fecha desaparecen y los datos de las tablas dinámicas aparecen como si fueran textos ya que desaparece la opción de filtrarlos por años, trimestres o meses. No es así en la hoja "Datos", donde se han copiado, en la que si aparecen los filtros adecuados a un campo fecha, pero en las tablas dinámicas no, y ese es el problema ya que me obliga a borrarlas y volverlas a hacer si quiero que el Dashboard funcione correctamente y este lo usan también otras personas que son únicamente usuarios finales. No se si esta vez me he explicado bien perdonad por haceros perder el tiempo Joase Acilu Editado por acilu - 01/Marzo/2024 a las 19:30

AnSanVal Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5990	Opciones de entrada Responder Cita AnSanVal Informar de mensaje Gracias(0) Cita Respuesta Enviado: 04/Marzo/2024 a las 14:15
	«una hoja, datos, varios usuarios, diferentes lugares,... etc.» no ayudan a "suponer"/construir una situación similar a la tuya. ►«...introducen datos varios usuarios en diferentes lugares, entre ellos la fecha de introducción, que mediante la función descrita se copian a otra hoja...» La única fecha que (veo que) se replica en la otra hoja es .Cells(NuevaFila, 2).Value = Date 'Día actual, y... ni DATE es texto, ni es la fecha que introducen los varios usuarios. Por tanto (supongo que) el problema está en destino, tal vez en el diseño de la tabla dinámica.
	Saludos desde Tenerife.

acilu Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 11/Enero/2007 Localización: Zamora Estado: Sin conexión Puntos: 146	Opciones de entrada Responder Cita acilu Informar de mensaje Gracias(0) Cita Respuesta Enviado: 04/Marzo/2024 a las 23:29
	Correcto:el error se produce en la hoja de destino. Los datos se exportan bien y es al actualizar el destino cuando se presenta el error y lo que eran fechas se convierte en texto. Parece ser que no solo me ocurre a mí, sino que por lo visto en Youtube es un error frecuente y allí se muestran varias soluciones como buscar/reemplazar el carácter/por él mismo para forzar el reconocimiento como fecha y otras soluciones más o menos peregrinas. Lo que estoy buscando es una solución que no necesite la intervención posterior a la actualización de los datos y no tener que borrar y rehacer los filtros de fechas. Editado por acilu - 04/Marzo/2024 a las 23:33