Para Hector Miguel!!

07/11/2006 - 05:12 por DOORS | Informe spam

Saludos,

Hector, me surgio una duda con respecto a la consulta que habia hecho sobre
busqueda. La nueva consulta que me surge es la siguiente:

1. En la hoja de recibo tengo un compo que se llama cuenta contable, a la
vez tengo otra hoja que almaceno los datos , es decir cada vez que imprimo me
guarda la cuenta contable , los datos del cliente, etc. lo que quisiera ver
si es posible es esto, por medio de un boton que me llame un form, como puedo
seleccionar un rango de fechas , que sea de mes a mes port decirte algo del
01/01/2006 al 31/01/2006 y digito la cuenta que deseo, que me muestre la
sumatoria de cada una de las cuentas contables, es decir si tengo una cuenta
70 que me sume los montos que pertenecen a esa cuenta y asi sucesivamente en
total son 7 cuentas las que manejo.

Eso es posible lograrlo?

Gracias por tu valiosa colaboración!

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 DOORS

08/11/2006 - 22:36 | Informe spam

Hola Hector!!

Hice lo que me indicaste , pero me da un error de desbordamiento, en esta
linea

Fila_n = Worksheets("base_datos").Cells.SpecialCells(xlLastCell).Row

"Héctor Miguel" wrote:

hola, DOORS !

> ... tengo un... problema... en la hoja de recibo no tengo espacio para poder hacer la consulta entre celdas
> ... aqui se maneja un estandar para los espacios en las formulas, por eso intente hacerlo con una form
> ... tengo dos campos que dicen fecha inicial y otro que dice fecha final y otro campo en el que digito la cuenta contable
> ... pero no logro... adaptar el codigo que me enviaste al form

'tengo que'... seguir 'suponiendo' algunos 'detalles' :D los siguientes son 'mis' supuestos:
- los 'campos' que tienes en el form para las fechas y donde digitas la cuenta contable, se trata de:
TextBox1 [la cuenta]... TextBox2 [la fecha inicial]... y TextBox3 para la fecha final
- tienes dos controles 'Label' [Label1 para el conteo de los registros... y Label2 para la sumatoria de los montos]
- las acciones se ejecutan por acciones de un 'CommandButton1'

ya corregiras donde sea necesario o ampliaras a detalles mas... 'detallados' :))
saludos,
hector.

en el modulo de codigo del formulario, en el evento '_click' del boton ==> Private Sub CommandButton1_Click()
Dim Fila_n As Integer, Registros As Integer, Suma As Double
Fila_n = Worksheets("base_datos").Cells.SpecialCells(xlLastCell).Row
Registros = Evaluate("sumproduct(--" & _
"(base_datos!e1:e" & Fila_n & "=" & CInt(TextBox1) & "),--" & _
"(base_datos!h1:h" & Fila_n & ">=" & CLng(CDate(TextBox2)) & "),--" & _
"(base_datos!h1:h" & Fila_n & "<=" & CLng(CDate(TextBox3)) & "))")
Suma = Evaluate("sumproduct(--" & _
"(base_datos!e1:e" & Fila_n & "=" & CInt(TextBox1) & "),--" & _
"(base_datos!h1:h" & Fila_n & ">=" & CLng(CDate(TextBox2)) & "),--" & _
"(base_datos!h1:h" & Fila_n & "<=" & CLng(CDate(TextBox3)) & ")," & _
"base_datos!f1:f" & Fila_n & ")")
Label1 = "Se encontraron " & Registros & " registros"
Label2 = "Con un importe de: " & Format(Suma, "$ #,##0.00")
End Sub

Responder a este mensaje

#7 Héctor Miguel

08/11/2006 - 23:02 | Informe spam

hola, DOORS !

... me da un error de desbordamiento, en esta linea
Fila_n = Worksheets("base_datos").Cells.SpecialCells(xlLastCell).Row

si es el caso que en tu hoja 'base_datos' existen MAS de ~32k filas -?-
-> cambia el tipo de datos asignado a la variable 'Fila_n' en la seccion de las declaraciones...
de: -> Dim Fila_n As Integer
a: -> Dim Fila_n As Long

si cualquier duda [o 'salen' mas detalles 'del tintero']... comentas ?
saludos,
hector.

Responder a este mensaje

#8 DOORS

08/11/2006 - 23:15 | Informe spam

HECTOR ERES EXCELENTE !!!!!! MUCHAS GRACIAS POR EL VALIOSO APORTE DE TUS
CONOCIMIENTOS PARA LOS QUE TRATAMOS DE APRENDER UN POCO DE ESTO.

MUCHAS GRACIAS!

"Héctor Miguel" wrote:

hola, DOORS !

> ... me da un error de desbordamiento, en esta linea
> Fila_n = Worksheets("base_datos").Cells.SpecialCells(xlLastCell).Row

si es el caso que en tu hoja 'base_datos' existen MAS de ~32k filas -?-
-> cambia el tipo de datos asignado a la variable 'Fila_n' en la seccion de las declaraciones...
de: -> Dim Fila_n As Integer
a: -> Dim Fila_n As Long

si cualquier duda [o 'salen' mas detalles 'del tintero']... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida