Comparar números por filas y copiar
Necesitaría una macro que compare el primer numero de la fila D2 con cada uno de los números que componen la fila debajo D3:W3, y la diferencia entre ambos la copie en la fila Y3:AR3, luego el segundo E2 y los resultados en AS3:BL3 y asi sucesivamente hasta llegar al final de la fila, en el ejemplo seria el W2. Este procedimiento necesito repetirlo con cada numero de la fila D3 con los de la D4:W4 y asi sucesivamente hasta la fila D28 que compara con D29:W29. Adjunto impresión de pantalla como ejemplo de lo expuesto
1 Respuesta
H0la Diego:
A ver si esto te es útil.
Sub llenar() 'Por GP' Dim lngFilaIni As Long, lngFilaFin As Long Dim lngColIni As Long, lngColFin As Long Dim i As Long, j As Long, k As Long, l As Long lngFilaIni = 2 lngFilaFin = 28 lngColIni = 4 lngColFin = 24 For i = lngFilaIni To lngFilaFin l = lngColFin + 2 For j = lngColIni To lngColFin For k = lngColIni To lngColFin Cells(i + 1, l).Value = Cells(i, j).Value - Cells(i + 1, k).Value l = l + 1 Next Next Next End Sub
S@lu2
Hola, Isaac, en principio estaría bien la macro lo único que vos si el numero es inferior al comparado lo restas, y yo necesito que sean números positivos
En el ejemplo el D2 =11 cuando hace la diferencia con el F3 fíjate que yo pongo el resultado 2 y no -2 . Eso es lo único, después la macro anda perfecto. Si podes resolver ese punto listo
Muchas Gracias
H0la Diego:
Eso lo resuelves utilizando el valor absoluto
Cells(i + 1, l).Value = Abs(Cells(i, j).Value - Cells(i + 1, k).Value)
S@lu2
