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

Respuesta
1

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

[email protected]

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)

[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas