redondear rango hasta la ultima fila con datos

[Manuel TR]

Hola a todos,

Por favor si alguien me puede ayudar con lo siguiente:

Tengo una macro, la cual redondea los importes que están a partir de la fila 8 de la columna E,F,G,

dichos importes deben redondearse siempre hasta la misma altura de datos del correlativo (columna B)

actualmente la macro hace su trabajo, pero el problema es que cuando varia la cantidad de datos del correlativo tengo que estar

manipulando la programación de la macro y me genera ceros debajo del rango que deseo redondear.

 

Libro2.xlsm

[AlexanderS]

Hola @Manuel TR, prueba modificando el código así:

Sub Redondeo()

'REDONDEO

For i = 8 To Cells(8, "B").End(xlDown).Row 'los datos a redondear se encuentran de la fila 8 hasta la fila 20

    
    'Redondea en la columna 5 - los datos que se encuentran en la columna 5
    Cells(i, 5).Value = Round(Cells(i, 5).Value, 2) 'redondea a 2 dig
    
    'Redondea en la columna 6 - los datos que se encuentran en la columna 6
    Cells(i, 6).Value = Round(Cells(i, 6).Value, 2) 'redondea a 2 dig
    
    'Redondea en la columna 7 - los datos que se encuentran en la columna 7
    Cells(i, 7).Value = Round(Cells(i, 7).Value, 2) 'redondea a 2 dig

    
Next i

End Sub

Comentas, saludos.

[Manuel TR]

Muchas gracias Alexander, Saludos...