unir 2 tablas y repetir N veces los regitros

[mrocf]

Iniciado por Vicmon20

¿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:

Sub NuevaTabla()
'------------------
'by Cacho Rodríguez
'------------------
Dim Rng1 As Range, Rng2 As Range, C As Range, D As Range
Dim Mat, Q&
 
On Error Resume Next
Set Rng1 = Application.InputBox("Selecciona la celda que contiene al título: CVE_Cliente", Type:=8)
If Err.Number > 0 Then Exit Sub
Set Rng1 = Range(Rng1.Offset(1), Rng1.End(xlDown))
 
Set Rng2 = Application.InputBox("Selecciona la celda que contiene al título: CVE_Vendedor", Type:=8)
If Err.Number > 0 Then Exit Sub
Set Rng2 = Range(Rng2.Offset(1), Rng2.End(xlDown))
On Error GoTo 0
 
ReDim Mat(1 To Rng1.Count * Rng2.Count, 1 To 4)
 
For Each C In Rng1
  For Each D In Rng2
    Q = 1 + Q
    Mat(Q, 1) = C.Value
    Mat(Q, 2) = C.Offset(, 1).Value
    Mat(Q, 3) = D.Value
    Mat(Q, 4) = D.Offset(, 1).Value
  Next
Next
 
Worksheets.Add.[a1].Resize(Q, 4) = Mat
Erase Mat: Set Rng1 = Nothing: Set Rng2 = Nothing
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.