Copiar subtotales de una Hoja a una celda en otra hoja
Estimado Experto, acudo a tu consejo para hacer lo siguiente:
lo que necesito seria que por ejemplo: En el caso de la hoja "movimientos1" me saque un total "mensual" (filtro de fecha, con fecha inicial y final, ó selección de mes, en la parte superior de la hoja "Informe") de la columna cantidad, y me copie esa cifra en la celda "G7" de la hoja "Informe", y que copie el primer valor de la columna cosecutivo (ya filtrado) a la celda "C7" hoja "informe" y que copie el último valor de la misma columna (consecutivo) a la celda "E7" Hoja Informe (a manera de tener el cosecutivo inicial y el consecutivo final del "Rango" de datos filtrado)
Sabiendo como hacerlo, yo podría aplicarlo al resto de la tabla de informe mensual.
te he enviado un archivo al correo,
Muchísimas gracias de antemano!
Saludos Waboni
1 Respuesta
Hola Dam muchísimas gracias, quedó muy bien!
Solo quisiera preguntarte, ¿Cómo hago para que por ejemplo en la lista de la hoja "movimientos1" si entre determinadas fechas fechas el consecutivo del primer valor encontrado no es "1" sino que por ejemplo "9", la celda "C7" se llene con dicho valor en vez del "1".
De antemano muchísimas gracias!
un saludo
Utiliza esta macro
Private Sub CommandButton1_Click()
'por.dam
Sheets("movimientos1").Select
una = 1
For i = 11 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(i, "C") >= DTPicker1 And Cells(i, "C") <= DTPicker2 Then
If una = 1 Then
menor = Val(Cells(i, "B"))
mayor = Val(Cells(i, "B"))
End If
una = 2
If menor > Val(Cells(i, "B")) Then
menor = Val(Cells(i, "B"))
End If
If mayor < Val(Cells(i, "B")) Then
mayor = Val(Cells(i, "B"))
End If
total = total + Val(Cells(i, "E"))
End If
Next
If total <> 0 Then
Worksheets("Informe").Select
Sheets("Informe").Range("C7") = menor
Sheets("Informe").Range("E7") = mayor
Sheets("Informe").Range("G7") = total
End If
End Sub
Saludos. Dam
INCREÍBLE! Muchas gracias ahora funciona a la perfección!
Una vez más has resuelto mi problema en un plazo record y de la mejor manera posible!
Saludos
waboni
