Multiplicar y Dividir celdas e Imprimir solo algunas columnas

Estimados, quiero pedirles la siguiente ayuda.

tengo un Formulario de consulta en el cual necesito modificar la Formula destacada con amarillo, para que multiplique la Columna “Cantidad” * ” Columna Valor” y luego dividir por la Columna “Gasto Promedio”

With Sheets("hoja3")

' Tomamos última fila usada en hoja 2 para crear el rango a cargar

i = .Range("A" & Rows.Count).End(xlUp).Row

If i < 2 Then i = 2

'colocamos subtotal por linea

.Range("H1") = "Km/Litro"

For x = 2 To i

.Range("H" & x) = WorksheetFunction.Sum(.Range("F" & x & ":G" & x))

y = .Range("H" & x) + y

Next x

End With

Además si me pudieran ayudar con la Macro de Impresión, para que solo me imprima las columnas A; C; E; H que sería la columna que se agrega mediante la fórmula anterior, Tal como lo muestra el ListBox

Saludos.

Libro.rar

Libro.rar

Re: Multiplicar y Dividir celdas e Imprimir solo algunas columnas

Cerrar Tema

gracias.