Como consigo acumular cantidades en una hoja de excel partiendo de los datos suministrados en otra hoja?
Querida comunidad de Todo Expertos, quería solicitar su valiosa colaboración en una inquietud que me aqueja al tratar de desarrollar una macro: en una Hoja1 tengo 6 celdas (A1, A2... A6)a las que debo cargarle información (JUAN, CARLOS... RUPERTO), en las celdas (B1, B2... B6) debo cargar el monto de la comisión que pago a cada persona, y en una celda (E1) coloco el día o la fecha actual de trabajo = Hoy(), ahora bien al cargar la información necesito enviarla a una Hoja2 donde mi primera columna (A) siempre va a tener precargada todos los nombres de las personas partiendo de (A2... A6), y en las columnas sucesivas (B, C, D, E... ZZZ) es donde necesito que se acumule por día (entiéndase a un día trabajado una columna creada donde la primera celda me haga referencia al día en cuestión (Hoja1! E1) y las celdas (B2... B6) me acumulen las cantidades que gasté por el pago de cada comisión a cada trabajador, tomando en consideración que en un día le puedo pagar muchas veces comisiones a todos los trabajadores
1 respuesta
No entendí muy bien qué hay poner en las celdas B, C, D, ZZZ
Entiendo que hay que poner un acumulado, pero en cuál debe ir el acumulado.
Para que sea más claro, me puedes enviar un archivo con las 2 hojas, en la hoja2 pon el resultado que esperas tomando como referencia lo que tengas en la hoja1.
También envíame la hoja3 como si fuera otro día, y en la hoja4 pones el acumulado de la hoja1 y la hoja3, de esa forma podré ver que necesitas con cada ejecución.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jose Rohnal B.P” y el título de esta pregunta.
saludos Dante ya te envié la información al correo
Te anexo el código para acumular valores
'Por. Dante Amor
'Incio acumular valores
'Valida datos para acumular
Dim h1, h3, i, concepto, cad, b, col, valor, fecha
Set h1 = Sheets("RECIBO")
Set h3 = Sheets("DIARIO")
i = 12
cad = ""
Do While h1.Cells(i, "B") <> ""
concepto = h1.Cells(i, "B")
Set b = h3.Columns("B").Find(concepto, lookat:=xlWhole)
If b Is Nothing Then
cad = cad & concepto & ". "
End If
i = i + 1
Loop
If cad <> "" Then
MsgBox "No existen los conceptos: " & cad
Exit Sub
End If
'
'valida fecha
fecha = CDate(Format(h1.Range("H3"), "dd/mm/yyyy"))
Set b = h3.Rows(1).Find(fecha, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "No está la fecha: " & fecha
Exit Sub
End If
col = b.Column
'
'Acumula valores
i = 12
cad = ""
Do While h1.Cells(i, "B") <> ""
concepto = h1.Cells(i, "B")
valor = h1.Cells(i, "H")
Set b = h3.Columns("B").Find(concepto, lookat:=xlWhole)
h3.Cells(b.Row, col) = h3.Cells(b.Row, col) + valor
i = i + 1
Loop
'
'Fin acumular valores'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
