............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Eliminar del Form un Combobox y que sigua funcionando

Ver el tema anterior Ver el tema siguiente Ir abajo

Eliminar del Form un Combobox y que sigua funcionando

Mensaje por Azu el Miér Feb 23, 2011 9:36 am

Hola amigos, tengo un formulario compuesto por un ListBox el cual ofrece los datos segun los criterios de un ComBobox el cual selecciona un cliente y otros 2 ComboBox que con ellos se seleccionan las fechas DESDE y HASTA de la busqueda, esto ya funciona bien, lo que necesito ahora es quitar el primer ComboBox de seleccion del cliente para que el ListBox me enseñe los registros según las fechas DESDE y HASTA de todos los clientes, y no logro que funcione, os pido que me repaseis el adjunto y me podáis ayudar un poquito

Muchas Gracia a Todos

Azu

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Eliminar del Form un Combobox y que sigua funcionando

Mensaje por GalileoGali el Jue Feb 24, 2011 7:58 am

Prueba con esta modificacion

Código:
Private Sub CommandButton1_Click()
'Boton efectuar consulta
Application.ScreenUpdating = False

'Depuramos datos

Cliente = ComboBox1
Desde = TextBox1
Hasta = TextBox2
If Cliente = "" Then Cliente = "*"
If Desde = "" Then Desde = "01/01/1980"
If Hasta = "" Then Hasta = Date

Desde = CDate(Desde)
Hasta = CDate(Hasta)

'Limpiamos y dimensionamos listas
ListBox1.Clear: ListBox1.ColumnWidths = "18;30;50;100;100"
ListBox2.Clear: ListBox2.ColumnWidths = "20;20;20;20;20;20;20;20;20;20"
ListBox3.Clear: ListBox3.ColumnWidths = "20;20;20;20;20;20;20;20;40;80"
'Se activa la hoja hoja1
Sheets("Alimentos").Activate
Seleccionado = False

'Seleccionamos ventas
For x = 6 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  FECHA = CDate(Cells(x, 3))
  If Cells(x, 6) Like Cliente And _
    (Not FECHA < Desde And Not FECHA > Hasta) Then
      Cells(x, 6).Select
      Seleccionado = True
      ListBox1.AddItem "": ListBox2.AddItem "": ListBox3.AddItem ""
      For y = 1 To 3: ListBox1.List(ListBox1.ListCount - 1, y - 1) = Cells(x, y): Next y
      For y = 6 To 7: ListBox1.List(ListBox1.ListCount - 1, y - 3) = Cells(x, y): Next y
      For y = 10 To 19: ListBox2.List(ListBox2.ListCount - 1, y - 10) = Cells(x, y): Next y
      For y = 20 To 29: ListBox3.List(ListBox3.ListCount - 1, y - 20) = Cells(x, y): Next y
  End If
Next x

End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Eliminar del Form un Combobox y que sigua funcionando

Mensaje por Azu el Jue Feb 24, 2011 5:56 pm

Maravilloso Gali como siempre, funciona perfecto, por lo que observo no se podia arreglar de otra forma el codigo eliminando la parte que afectaba al combobox y has tenido que meter la variable cliente, es una fantastica solucion, muchas gracias por tu ayuda

Azu

Azu

Femenino Cantidad de envíos : 38
Edad : 41
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: Eliminar del Form un Combobox y que sigua funcionando

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.