Multiplicar Rango de Celdas en Fila por ultima Celda

1 post / 0 nuevos
oskkk4
Imagen de oskkk4
Offline
última acción: Hace 2 semanas 4 días
alta: 24/06/2020 - 04:45
Puntos: 180
Multiplicar Rango de Celdas en Fila por ultima Celda

del programa Neodata me genera un reporte de un calendario de obra, este reporte cambia segun el calendario, cada celda tiene una cantiad ya sea por mes, semana o quincena, las tareas o conceptos tambien cabian segun la obra, entonces puedo tener un rango de celdas diferentes en columnas o filas, ejemplo, de columana A1 hasta Y1 seria una tarea y en Z1 tendria la el costo salario de lo que cuesta esta tarea, luego A2 hasta Y2 la senga tarea y el costo en la columna Z2, lo que quisiera pero con macro y obvio sin insertar filas al lado de A1 y asi sucesivamente, seria multiplicar A1 por Z1, luego B1 por Z1...etc si es posible que me de el resultado o cambie la cantaidad en el mismo A1, B1... etc pero si no es posible ya con que me mande la cantidad a otra hoja seria bueno. espero haberme dado a entender, ya he buscado por 15 dias en el internet sin exito, lo mas cercano que he encontrado es esta macro aqui donde se divide entre 8, que tambien lo necesito y me quedo resuelto, pero como en el archivo que adjunto necesito multilplicar cada celda de la fiala de la Columna A a la Columna Y, por cada cantidad de la columna Z ya que en las filas es la cantidad de jornales de los trabajadores, y en la columna z esta el precio o salario, entonces necesito saber cuanto dinero requiero para pagar los salarios por semana. Gracias.

Public Sub entreHoras()

   Dim dataArea As Excel.Range

   Set dataArea = ThisWorkbook.Worksheets("Hoja1").Range("A2:y144")

   Dim valuesArray() As Variant

   valuesArray = dataArea.Value   

   Dim rowIndex As Long

   Dim columnIndex As Long

   For rowIndex = LBound(valuesArray, 1) To UBound(valuesArray, 1)

      For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)

         If valuesArray(rowIndex, columnIndex) > 0 Then

            valuesArray(rowIndex, columnIndex) = valuesArray(rowIndex, columnIndex) / 8

         End If

      Next

   Next   

   dataArea.Value = valuesArray

End Sub

 

AdjuntoTamaño
File jornales.xlsm27.77 KB

Etiquetas: