Realizar respectivo pegado con condición
Para elsa:
Experta necesito realizar un respectivo pegado de cuadros en la hoja 2, con la condición que se acumulen los datos en cada cuadro para analizar en mi libro historial
1 respuesta
Respuesta de Elsa Matilde
2
Dejo la macro que ejecuta todas las subrutinas para cada fila a partir de la 100.
Sub recorreNros() 'esta es la macro inicial
'x Elsamatilde
Sheets("Hoja1").Select 'hoja de inicio
'se recorre la col A (a partir de la fila 100) marcando los 4 nros en las 2 tablas
x = Range("A" & Rows.Count).End(xlUp).Row
If x < 100 Then MsgBox "No hay datos para el proceso.", , "Información"
For i = 100 To x 'ajustar aquí el nro de fila por la q se empezará a recorrer
For a = 1 To 4
BuscarNros a, Cells(i, a), 3, 12
BuscarNros a, Cells(i, a), 16, 25
Next a
'ejecuta el resto de las subrutinas
Call zero 'copia tablitas en Hoja2
Call LosQueMasSalen(i) 'resuelve y ordena tabla superior
Call NoSalenDesde(i) 'resuelve y ordena tabla inferior
Next i
End SubReemplaza este código en tu libro porque le ajusté los comentarios y de ese modo sabremos que se trata de la última modificación. Si lo pasás a otro libro tené presente que estamos llamando a la Hoja1 (ajustar estas líneas en tu libro) y a partir de la fila 100 (ajustar este nro si fuese necesario).
Además se quita el código de la Hoja1.
El resto de los módulos ya están ajustados en el libro que te envié ayer.
Sdos.
Elsa
http://aplicaexcel.com
