Jump to content

Copiar datos de una hoja especificada por una celda


■Mk■

Recommended Posts

Hola,

Pues mi duda es la siguiente...

Estoy intentando crear una plantilla para sacar partes de trabajo. El caso que yo tengo una base de datos donde cada producto tiene su hoja en donde aparecen los datos

Mi intención era que en la plantilla pudiera insertar un desplegable para seleccionar que datos deben aparecer en el parte de trabajo, pero no concibo el como.

He intentado usar las funciones BUSCARH y BUSCARV pero no puedo dado que los datos no están grabados como matriz. Es decir, estas funciones buscan los datos inmediatamente contiguos al valor buscado, y en mi caso la base de datos no tiene ese formato.

Mi idea era la de enlazar las celdas de la plantilla a la celda que le da nombre al producto en el desplegable, así los datos se autorellenan en la plantilla según la elección de la celda con el autodesplegable.

Pero el problema que tengo al hacer esto se debe a mi falta de dominio del lenguaje de excel.

Os pongo el ejemplo:

El nombre del producto a fabricar está en la celda D3, el producto se llama AA

Lo que quiero es que al insertar el producto en dicha celda se rellenen los datos, por ejemplo;

  • En la celda B8 que aparezca lo que indica la celda B6 de la hoja AA del producto.
  • Al elegir otro producto, AB, aparezca sus datos respectivamente.

Si tuviera que copiar la celda de una única hoja podría hacerlo escribiendo =+'AA'B6 así copiaría el dato en la celda B6 de la hoja AA. Si modifico esa celda en la hoja AA también modificaría la celda de la plantilla en la que escribí dicha función. Hasta aquí bien.

El problema es cuando el nombre de dicha hoja está contenido en una celda (la desplegable). No tengo ni idea de si se puede hacer así o siquiera es posible.

¿¿      =+'('Plantilla'!D3)'B6       ??

Bueno, quedo a la espera de vuestras respuestas.

 

Un saludo y gracias.

 

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
a


  • Crear macros Excel

  • Posts

    • Bigpetroma, eres un genio al final me diste la solución lo es probado con el código que a me ha dejado y funciona bastante bien hasta ahora así como esta ejecutando es la solución perfecta, gracias por ahora seria tema cerrado.
    • amigo, lamentablemente NO nos estamos entendiendo, tu quieres que la macro haga algo pero no terminas de explicar, lo mas que voy a hacer por ti es dejarte esta macro que hace lo mismo que tu macro original pero mucho mas resumida Sub correspondencia() Dim NumCriterios As Variant Dim nCantDatos As Double Dim nDatos As Double Dim wHoja As Worksheet Dim nVariable As Integer Dim sVariable As String Dim sDatos As String ' ' correspondencia Macro ' ' Acceso directo: CTRL+a ' ''''''''''''''''''pedimos la cantidad de crieterios ''''''''''''''''''''''''''''''''''''''''''''''''''''''' NumCriterios = InputBox("Escribe el número de criterios") 'Caja de texto para escribir el numero de criterios If IsNumeric(NumCriterios) = False Then Exit Sub '''''''''''''''''' obtenemos la cantidad de datos a procesar ''''''''''''''''''''''''''''''''''''''''''''''''''''''' nCantDatos = Sheets("BD").Cells(Rows.Count, "A").End(xlUp).Row 'contar el numero de nDatos For nDatos = 2 To nCantDatos 'Ciclo para realizar las combinaciones Worksheets("Correspondencia").Copy Before:=Sheets(nDatos) Set wHoja = ActiveSheet For nVariable = 1 To NumCriterios sVariable = Worksheets("BD").Cells(1, nVariable).Value sDato = Worksheets("BD").Cells(nDatos, nVariable).Value wHoja.Cells.Replace What:="<" & sVariable & ">", Replacement:=sDato, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'Busca y reemplaza los valores de la base de nDatos Next nVariable Next nDatos End Sub   de resto no puedo ayudarte mas, pues tienes que ayudarme a entender para poder ayudarte, la macro supuestamente busca hasta 8 campos (tu macro original) en la tabla de la hoja DB, pero esa hoja solo tiene 2 campos nombre y nota, no veo el sentido de elegir 8 criterios cuando NO existen. y lo otro, dices que algunos no te cuadran, pero no dices cual para revisar. suerte  
    • Si disculpe, pero como lo digo solo eso necesito esa macro necesito que me replique la correspondencia pero hasta ahí funciona bien pero en la sumatoria en algunas correspondencias no lo suma bien solo eso el total sale distinto a los criterios.
    • Saludo amigo hace mes me ayudaste con este archivo que   ponga Trimestre i aparezca solo los meses Ene, Feb, Mar; Trimestre II aparezca solo Abril, May, Jun; Trimestre III aparezca solo Jul, Agos, Set; Trimestre IV aparezca solo Oct, Nov, Dic, se estuviera a su alcance me lo pudiera corregir solos que aparezcan por mes se pongo enero me aparezca solo enero y así sucesivamente con los otros meses gracias 
    • yo veo lo que hace la macro, simplemente hace una copia de la hoja Correspondencia y supuestamente sustituye los criterios o campos, pero en este caso simplemente cambia solo dos, <nombre> y <nota> y tu hablas hasta de 8 criterios, si puedes explicar lo que intentas hacer
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy