Foros del Web » Soporte técnico » Ofimática »

unir 2 tablas y repetir N veces los regitros

Estas en el tema de unir 2 tablas y repetir N veces los regitros en el foro de Ofimática en Foros del Web. Buen dia, Reciban un cordial saludo, EXCEL.... Tengo el siguiente caso; Tengo 2 Tablas con los siguientes campos... CVE_Cliente NOM_Cliente 1A Tornillo S.A. 1B La ...
  #1 (permalink)  
Antiguo 05/12/2014, 22:54
 
Fecha de Ingreso: junio-2014
Ubicación: Mexico
Mensajes: 14
Antigüedad: 5 años, 2 meses
Puntos: 0
unir 2 tablas y repetir N veces los regitros

Buen dia,
Reciban un cordial saludo,

EXCEL....
Tengo el siguiente caso;

Tengo 2 Tablas con los siguientes campos...

CVE_Cliente NOM_Cliente
1A Tornillo S.A.
1B La Maquinita
2C El Porvenir
2D El Patito S.A.
3A La Fabrica

CVE_Vendedor NOM_Vendedor
AD Alex Diaz
VM Vic Montes
BM Benito Mendez
JM Jose Montiel
IT Iker Tenor

Lo que requiero realizar es lo siguiente (repertir el cliente tantas veces como vendedores):
CVE_Cliente NOM_Cliente CVE_Vendedor NOM_Vendedor
1A Tornillo S.A. AD Alex Diaz
1A Tornillo S.A. VM Vic Montes
1A Tornillo S.A. BM Benito Mendez
1A Tornillo S.A. JM Jose Montiel
1A Tornillo S.A. IT Iker Tenor

1B La Maquinita AD Alex Diaz
1B La Maquinita VM Vic Montes
1B La Maquinita BM Benito Mendez
1B La Maquinita JM Jose Montiel
1B La Maquinita IT Iker Tenor

Agradeceria sus comentarios, su orientacion, para realizar este proyecto.
Si fueran pocos clientes quizas con copiar, pegar pero tengo una relacion de mas de 600 clientes y no es practico.

¿Cómo podria agregar imagenes para que se pudiera ver mejor lo que necesito?

Gracias, de antemano por su tiempo, y atención

Última edición por Vicmon20; 05/12/2014 a las 22:56 Razón: falto informacion
  #2 (permalink)  
Antiguo 06/12/2014, 07:40
 
Fecha de Ingreso: junio-2014
Ubicación: Mexico
Mensajes: 14
Antigüedad: 5 años, 2 meses
Puntos: 0
Respuesta: unir 2 tablas y repetir N veces los regitros

Hola!!
Buenos dias, desde la Cd de México...

¿Cómo puedo agregar un par de imagenes para ilustrar mejor lo que requiero?

GRACIAS!!
  #3 (permalink)  
Antiguo 08/12/2014, 10:20
 
Fecha de Ingreso: junio-2014
Ubicación: Mexico
Mensajes: 14
Antigüedad: 5 años, 2 meses
Puntos: 0
Respuesta: unir 2 tablas y repetir N veces los regitros

Hola, buenos dias...

aun no, he conseguido realizar la tarea...

¿alguna idea?
¿se podria hacer con alguna formular?
¿con algo deVB?

Gracias!
  #4 (permalink)  
Antiguo 09/12/2014, 10:54
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
De acuerdo Respuesta: unir 2 tablas y repetir N veces los regitros

Cita:
Iniciado por Vicmon20 Ver Mensaje
¿Cómo puedo agregar un par de imagenes para ilustrar mejor lo que requiero?
Mmmmmmm...
Las imágenes se suben a los Foros de Powerpoint o similares. En los Foros de Excel se muestran archivos de Excel (si quieres que se te comprenda, claro).
________

De todos modos puedes hacer lo siguiente:

a) Click derecho en la solapa de la hoja que contiene las tablas en cuestión.

b) Selecciona: Ver código.

c) En la ventana que se te abrirá, copia y pega el siguiente código:

Código vb:
Ver original
  1. Sub NuevaTabla()
  2. '------------------
  3. 'by Cacho Rodríguez
  4. '------------------
  5. Dim Rng1 As Range, Rng2 As Range, C As Range, D As Range
  6. Dim Mat, Q&
  7.  
  8. On Error Resume Next
  9. Set Rng1 = Application.InputBox("Selecciona la celda que contiene al título: CVE_Cliente", Type:=8)
  10. If Err.Number > 0 Then Exit Sub
  11. Set Rng1 = Range(Rng1.Offset(1), Rng1.End(xlDown))
  12.  
  13. Set Rng2 = Application.InputBox("Selecciona la celda que contiene al título: CVE_Vendedor", Type:=8)
  14. If Err.Number > 0 Then Exit Sub
  15. Set Rng2 = Range(Rng2.Offset(1), Rng2.End(xlDown))
  16. On Error GoTo 0
  17.  
  18. ReDim Mat(1 To Rng1.Count * Rng2.Count, 1 To 4)
  19.  
  20. For Each C In Rng1
  21.   For Each D In Rng2
  22.     Q = 1 + Q
  23.     Mat(Q, 1) = C.Value
  24.     Mat(Q, 2) = C.Offset(, 1).Value
  25.     Mat(Q, 3) = D.Value
  26.     Mat(Q, 4) = D.Offset(, 1).Value
  27.   Next
  28. Next
  29.  
  30. Worksheets.Add.[a1].Resize(Q, 4) = Mat
  31. Erase Mat: Set Rng1 = Nothing: Set Rng2 = Nothing
  32. End Sub

d) Cierra las ventanas del ambiente Visual Basic for Application (VBA) en el que te encuentras y retorna al Excel.

e) Ejecuta la macro recién incorporada: NuevaTabla.

f) Al cabo de unos instantes terminarás obteniendo lo solicitado: ¿Lo podrías verificar?...

Saludos, Cacho R.

Etiquetas: excel
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:54.