Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

SISTEMA PARA COPIAR DATOS DE UNA REGIÓN DE VARIAS HOJAS A UNA SOLA BASE DE DATOS EN OTRO LIBRO

jeeicii

Por jeeicii
en Macros y programación VBA

Recommended Posts

jeeicii Novato

jeeicii

publicado
publicado

Hola muy buenas tardes,

Me gustaría su ayuda al respecto de un sistema de captura, búsqueda y constante agregado de datos según hojas de un libro.

Cada hoja corresponde a una carpeta y necesito ingresar estos datos a una base de datos de otro libro para que el libro donde se encuentran las hojas que corresponden a cada carpeta no tenga un proceso ralentizado que ya me ha sucedido.

image.thumb.png.ed9f1e1b3d6e2fb4680518659f4d8558.png

Ademas me gustaría crear esa base de datos con estos datos que muestro en la imagen para hacer un filtro de búsqueda y poder mostrar en una hoja resumen los datos relevantes según cada hoja con buscarv.

La pregunta es ¿por que asigno una carpeta a cada hoja? y la respuesta es que estoy en constante agregación de datos y también incluyo en cada hoja formulas de calculo para lograr valorizar las operaciones.

Me gustaría también tener una macro donde pueda duplicar la hoja BASE y asignarle un nombre con imputbox.

Dejare el archivo con unas hojas ya rellenas y también la hoja base.

 

De antemano muchas gracias por su colaboración.

image.thumb.png.9582c6d97db907f56f3b7f5454db6be2.png

Libro1.xlsm

Enlace a comentario
Compartir con otras webs
jeeicii Novato

jeeicii

publicado
  • Autor
publicado
Hace 2 horas, Haplox dijo:

De la hoja base no hay rastro... y además cuando la subas, debería representar un ejemplo de cómo quieres que queda

Estimado,

Muchas gracias por tu respuesta, adjunto nuevamente con la hoja BASE y también una Hoja llamada Base de Datos. 

Lo importante de esto que me gustaría guardar en la hoja base de datos la información en formato de base de datos pero en otro libro para poder hacer una pantalla de resumen con buscarV y me muestre información relevante en el mismo libro. El filtro me funciona con un userform donde me muestra el Purchase Order y me lo copia en la casilla que esta al lado del cuadro.

También habría alguna posibilidad de poder hacer un formulario para agregar datos a cada hoja constantemente?. Este formulario iría en otro libro junto con las hojas correspondientes a cada carpeta o quizás con un solo formulario pueda agregar datos a cada hoja y también a la base de datos.

 

y para finalizar cuanto es lo que soporta en megas o espacio para una correcta funcionalidad de un libro de excel.

 

Saludos Cordiales,

 

image.thumb.png.04138bb15b89e16d1c0580566f598e87.png

Libro1.xlsm

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • jues
      Convertidor de Unidades

      Por jues · publicado

      Saludos amigos espero estén bien Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo  en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia  en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv)  ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda  "F11" es  418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13  para ver el resultado. Mucho les sabre agradecer la ayuda que me puedan brindar. PRUEBA.xlsm
    • Israel Cassales
      Hacer formulas auto incrementales

      Por Israel Cassales · publicado

      Saludos a ambos. Copiar y pegar por sí solas, no tengo el conocimiento de que sirvan como "evento" para actualizar las referencias que buscas hacer, en la forma que lo quieres hacer, ó la fórmula como la quieres hacer. Te recomiendo abrir un tema similar en Macros, es posible que algún Maestro te de alguna idea. Por otro lado, si debe ser con funciones, entonces tendías que interactuar con COLUMNA() y FILA() para que al pegar el destino "sepa" donde está ubicado e intentar cambiar la referencia. =INDIRECTO(CARACTER(COLUMNA()+64)&FILA()) Algo como eso se podría usar para obtener el código ASCII de la letra de la columna (donde 65 es el código para “A”), y FILA() devuelve el número de la fila. La función CARACTER() convierte el código ASCII en una letra. Luego, INDIRECTO() toma la cadena resultante (por ejemplo, “A1”, “B2”, etc.) y la usa como una referencia de celda. En ese caso, una posible idea de editar tu ejemplo sería: =SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&"1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")); 0)   Enfatizo que es una idea, es muy probable que haya que editar. Así como esta su tema, la recomendación del maestro toma relevancia porque especular o deducir no es lo adecuado para intentar ayudar en este tipo de consultas. Por esta causa de mi parte por ejemplo no puedo aportar algo adicional.
    • JSDJSD
      avanzar una celda hacia abajo apartir de una celda seleccionada

      Por JSDJSD · publicado

      En el ejemplo te he puesto 1 segundo para no hacer largo el gif, cámbialo a tu necesidad
    • JSDJSD
      avanzar una celda hacia abajo apartir de una celda seleccionada

      Por JSDJSD · publicado

      Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta
    • Pirtrafilla
      Hacer una operación usando una tabla de configuración

      Por Pirtrafilla · publicado

      Gracias   Al final funciona con esta formula. =SI.ERROR(C5*BUSCARV(A$2;TablaReparto[#Todo];COINCIDIR(D5;TablaReparto[#Encabezados];));C5) En la celda C5 he puesto la OT. Es similar a lo que me das como solución. ¡Muchas gracias por la ayuda!  

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.