Sumar al mandar a imprimir desde un listbox

[ELVERKU]

buenos dias amigos del foro nuevamente recurro a ustedes tengo un macro que aporto el maestro Gerson Pineda y que hemos estado adaptando a mi necesidades con ayuda de mi amigo Pajuma, el macro corre perfecto , el problema que tengo ahora es que cuando carga los datos del listbox y lo mando a imprimir lo pasa en otra hoja y necesito que me haga la suma de lo que manda y cambie los encabezados a las letras color amarrillo y el fondo en azul, este es el codigo que utilizo, adjunto el archivo

Private Sub CommandButton5_Click()

Worksheets.Add

Cells.Select

Selection.ClearContents

With Range("A65536").End(xlUp)

Dim fila As Integer

For fila = 0 To ListBox1.ListCount - 1

If ListBox1.List(fila, 1) <> "" Then

.Offset(fila + 1, 0).Value = ListBox1.List(fila, 0)

.Offset(fila + 1, 1).Value = ListBox1.List(fila, 1)

.Offset(fila + 1, 2).Value = ListBox1.List(fila, 2) '

.Offset(fila + 1, 3).Value = ListBox1.List(fila, 3)

.Offset(fila + 1, 4).Value = ListBox1.List(fila, 4)

Else

Exit For

End If

Next

End With

End Sub

les agradesco su ayuda

elverku

PRUEBA 2.rar

[Enigma25]

Hola @[uSER=29827]ELVERKU[/uSER]

Como recomendacion, procura declarar las variables que emplees ya que si omitimos el tipo de una variable, esta adquiere el valor de Variant.

Variant puede tomar cualquier valor, y por defecto, suele tomar más tamaño en memoria que el valor que quisiéramos usar, y además, puede no darnos el resultado deseado por ser demasiado corta.

Por defecto suele ocupar 4 Bytes.

Quizas esta informacion te pueda servir;

Tipos de Variables

[Enigma25]

Esto es lo que creo que necesitarias

1. Declara una Variable Public de tipo long
   
2. Declara una variable Public de Tipo Double
   

Ejemplo:

Public SumI As Double

Public Lin As Long

Luego en tu codigo de impresion, mucho antes de que cree la nueva hoja, que seria "Worksheets.Add" coloca esto :

SumI = 0

y despues del bucle For Next , antes del End With coloca estas lineas

Lin = 3

  Do While .Cells(Lin, 1) <> ""

  SumI = SumI + .Cells(Lin, 3)

  Lin = Lin + 1

  Loop


  .Range("A" & fila + 3) = "Total Importe :"

  .Range("C" & fila + 3) = SumI[/CODE]

[Enigma25]

Hola @ELVERKU

Ve si te sirve esto...

Tienes un nuevo botón y un nuevo formulario para consultar bajo dos criterios (Código y Estatus) y dispones del código para imprimir según los datos que se encuentren en el listbox (lista).

Saludos

PRUEBA2.zip

[ELVERKU]

Muchisimas gracias Enigma25 por tu respuestas y tus observaciones estuve checando y es una excelente idea de filtrar por status asi como lo tienes pero veo que no funcionan dos cosas

1.- ya no puedo buscar por NOMBRE DEL OPERADOI, IMPORTE Y PERIODO ya que esos modulos tambien son muy necesarios

2.- el modulo de modificaciones veo que no esta funcionando

todo lo de mas esta super excelente espero que me puedas ayudar con estas dos observaciones ya que todo lo demas esta excelentemente bien

y te agradesco mucho de tu tiempo y de tu experiencia

saludos

Elverku

[Enigma25]

Hola

Como recomendación, seria excelente registrar una base de datos de los nombres para que asi se puede mostrar por medio de una lista aquellos que se encuentren en la base, así también el periodo.

Ahora bien, en mi caso solo podría filtrar una cosa a la vez, haciendo las consultas por medio de opciones, es decir;

1. Por Código
   
2. Por Nombre
   
3. Por Status
   
4. Por Periodo
   

Cada una seria una consulta a parte, mas no seria bajo un filtro avanzado o algo por el estilo.

Claro está y estoy seguro que se puede encontrar una manera lo mas optima posible de filtrar por varios criterios. Pero es algo que habría que buscar por el amigo Google.

Lo dejo a tu consideración.

Saludos.

[Enigma25]

Hola @ELVERKU

Recuerdas esto que te comenté;

Hola

Como recomendación, seria excelente registrar una base de datos de los nombres para que asi se puede mostrar por medio de una lista aquellos que se encuentren en la base, así también el periodo.

Ahora bien, en mi caso solo podría filtrar una cosa a la vez, haciendo las consultas por medio de opciones, es decir;

1. Por Código
   
2. Por Nombre
   
3. Por Status
   
4. Por Periodo
   

Cada una seria una consulta a parte, mas no seria bajo un filtro avanzado o algo por el estilo.

Claro está y estoy seguro que se puede encontrar una manera lo mas optima posible de filtrar por varios criterios. Pero es algo que habría que buscar por el amigo Google.

Lo dejo a tu consideración.

Saludos.

Por favor confirma si deseas la sugerencia para asi ayudarte.

Saludos.

[ELVERKU]

mil disculpas antes que nada por no contestarte te agradesco tu apoyo y tu experiencia enigma25, dejame decirte que el macro que hiciste esta super excelente solo que necesito que el modulo de busqueda sea por dos criterios que serian por NOMBRE y PERIODO , te explico el nombre seria por que cuando me hablan me dictan en nombre del operador y el periodo es por que es la informacion que envio a mi gerente ya que semanal me envian esos datos por eso son importantes

y si podrias con el modulo de modificaciones ya que cuando me hablan me comienzan a dictar solo los operadores que ya estan liquidados por eso esta ese modulo

todo lo demas esta super excelente sobre todo el modulo de filtracion del STATUS que se puede filtrar por los tres TODOS, LIQUIDADO Y PEND. X LIQUIDAR

te lo agradesco mucho y sobre todo tu ayuda

saludos

Elverku

[ELVERKU]

Hola [uSER=98799]@Enigma25[/uSER] Modifique el archivo para la impresion como comentaste y quedo perfectamente bien esta corriendo a la excelentemente pero necesito de tu ayuda con el modulo de modificacion ya que al cargar el dato a cambiar pone la coma (,) en vez de punto (.) y eso hace que marque un error al guardar la modificacion y no de la suma correcta y lo que si no pude modificar fueron el cambio de las letras en amarrillo y el fondo en azul en el modulo de IMPRIMIR

espero me puedas ayudar con esto para que de por teminado esto que me esta dando vueltas la cabeza

te adjutno el archivo

PRUEBA 2.rar

[pajuma]

Revisa

OPERADOR-II.rar

[ELVERKU]

[uSER=98799]@Enigma25[/uSER] y [uSER=161684]@pajuma[/uSER]. Excelente solo que un detalle que estoy observando amigo no respeta el decimal, ya que al mandarlo a otra hoja pone el numero total sin respetar el decimal ejemplo

$ 459.31 este es el importe real pero al mandarlo a imprimir pone $ 45931 (aca ya no respeto el decimal )y al momento de sumar en el gran total esa cantidad toma por eso sale una cantidad elevada y no la real

veo que desde que carga los importes del listbox los pone en coma, es por eso que al momento de imprimir los toma completo sin respetar el decimal ¿¿¿¿¿¿¿¿¿?????????

este es el ejemplo real

703457 gaspar enrique may puc $ 459.31

esto es lo que pone al imprimir o pasarlo a otra hoja

703457 gaspar enrique may puc $45931

ya intente modificarlo y pero no lo gro hacer que carge los decimales al mandarlo

millones de gracias a todos por su ayuda

saludos

Elverku