Después de buscar un valor multiplicarlo por una celda y colocarlo en otra?
He realizado una buscqueda, en la que se encuentra perfectamente todos los valores que necesito que son aquellos diferentes a cero, ahora necesito multiplicarlo por una celda y colocarlo en otro, con el código que tengo lo único que logro es colocar el resultado de la búsqueda.
Este es el código :
For Each C In Sheets("SORPORTE EGRESSO").Range("B3:S10000")
'Si existen valores buscar, copiar y pegar en otra hoja
If C.Value <> 0 Then
'seleccionar rango encontrados para celdas en otra hoja
C.Copy Sheets("ASIENTOS").Range("R" & Rows. Count).End(xlUp).Offset(1, 0)
1 Respuesta
No indicas dónde estará el valor por el que debe ser multiplicada la celda ... te dejo comentada la instrucción para que ajustes esta referencia:
For Each C In Sheets("SORPORTE EGRESSO").Range("B3:S10000")
'Si existen valores buscar, copiar y pegar en otra hoja
If C.Value <> 0 Then
'multiplicar x un valor ubicado en xxxx (AJUSTAR)
resulta = C.Value * Sheets("ASIENTOS").[R1]
'seleccionar rango encontrados para celdas en otra hoja
'C. Copy Sheets("ASIENTOS").Range("R" & Rows. Count).End(xlUp).Offset(1, 0)
'colocar el resultado en la primer celda vacía de hoja Asientos
Sheets("ASIENTOS").Range("R" & Rows.Count).End(xlUp).Offset(1, 0) = resulta
Sdos y si la consulta queda resuelta no olvides valorarla para darla por cerrada.
