Jump to content

xboxfile

Members
  • Content Count

    163
  • Joined

  • Last visited

About xboxfile

  • Rank
    Advanced Member
  • Birthday 10/31/1966

Profile information

  • Gender
    Hombre
  • Localización:
    Barcelona

Converted

  • Campos
    ,

Recent Profile Visitors

750 profile views
  1. Hola que tal, esto lo puedes hacer con un evento change en el mismo textbox. Si he entendido bien Saludos
  2. Version 1.0.0

    3 downloads

    Hola a tod@. Tengo Excel 2019 32 bits corriendo en Windows 10 actualizado a la última (15/03/20), y tuve un problema al instalar el archivo "mscomct2.ocx" para poder usar el "Control Calendar Date and Time Picker 6.0". Por este motivo no podía usar este control de calendario en mi Userform. Navegando por ahí me encuentro una consulta de Antoni en este mismo foro que le daba error. Pues aquí la solución, ya que el tema está cerrado. Lo único que hay que hacer es seguir los pasos de este enlace: "https://www.vichaunter.org/como-se-hace/como-solucionar-el-error-mscomctl-ocx-registrado", ya que en la mayoría de tutoriales a mi me daba el error que dice en el enlace que pongo. La única diferencia es que en el tutorial lo hacen instalando el archivo "mscomctl.ocx", pero cambiando el nombre funciona perfectamente. Os aseguro que funciona. Subo el archivo "mscomct2.ocx" para poder usar el Control Calendar Date and Time Picker 6.0. Espero que os ayude. Gracias.
  3. Hola. Era lo que quería, que los Checks tuviesen código de evento click. Pensé que sería algo más simple, pero a la vista de tu código, veo que tiene su dificultad. Lo usaré para adaptarlo al proyecto. Muchas gracias. TEMA SOLUCIONADO
  4. Hola, un saludo al foro. Tengo una consulta que hacer porque no encuentro nada de esto en esta web, y lo poco que he visto por ahí no se ajusta a lo que busco. Tengo un Userform en el que se buscan unos pedidos en una tabla de una hoja, y en que el número de respuestas puede variar desde 1 resultado hasta 100, más o menos. Por esto, he creado unos Checklist que se generan en tiempo de ejecución. Hasta aquí bien, el problema es una vez creado, no sé como atrapar el evento clic, o change, ya que lo he creado en un módulo de clase pero solo responde el último Checklist, los anteriores no hacen nada. Adjunto un archivo de ejemplo que he encontrado en una web y yo he modificado. Espero haberme explicado con la suficiente claridad. Muchas gracias AddControl (2).xlsm
  5. Hola. Un saludo al foro. En respuesta a Antoni, al cual le mando mi más cordial saludo, yo he aprendido mucho de este y otros foros, y es verdad que cada vez he necesitado menos ayuda. Yo voy a exponer mis dos motivos, el primero es que cada vez hay más información por toda la red, a poco que busques encuentras. El segundo es porque la gente normal va aprendiendo a buscar antes de postear. Un saludo a todos.
  6. Version 1.0.0

    33 downloads

    Hola que tal.¿Alguna vez has trabajado con varias arrays y no te has preguntado si no podría ser que las pudieses agrupar todas en una como si fuesen las hojas de un libro? Pues esto es lo que yo me planteé un día y empecé a investigar en el tema. Tuve la necesidad de tratar cientos de datos de seis hojas de seis libros, una por cada libro. Cada hoja la puse en una array bidimensional y estas a su vez agrupadas en una Array de Arrays. Con esto tienes la ventaja de que lo puedes trabajar todo con un solo bucle, si no, tienes que crearte un código para cada hoja de cada libro. Al principio es un poco lioso, ¿pero que no es en programación cuando se empieza? Espero que os guste. Aporto esto para el foro que tanto me ha ayudado en mis inicios. Gracias.
  7. Quizás no me he explicado bien, lo que necesito es que al cargar el Listview detecte lo que haya en la celda activa, lo seleccione automáticamente, y salte el evento clic, al estilo del Listbox. El seleccionar ya lo he conseguido, pero lo del evento clic no. Lo que digo es que tiene que haber una forma de conseguirlo, pero como no lo he hecho, pues he modificado el código para que haga lo que necesito y al final me funciona, que es el código que puse arriba, ppr si a alguien le ayuda. Muchas gracias
  8. Hola que tal. Al final no he conseguido lo de actvar por código el evento clic como lo hace el Listbox. Estoy seguro que tiene que haber una mano de que se produzca. Por lo demás, he adaptado el código de otra forma y a seguir para adelante. Gracias por vuestra ayuda y si la encuentro ya lo pondré en el foro. Por mi se puede cerrar el hilo.
  9. Hola que tal. Al final no he conseguido lo de actvar por código el evento clic como lo hace el Listbox. Estoy seguro que tiene que haber una mano de que se produzca. Por lo demás, he adaptado el código de otra forma y a seguir para adelante. Gracias por vuestra ayuda y si la encuentro ya lo pondré en el foro. Por mi se puede cerrar el hilo.
  10. Hola, gracias por tu ayuda. En el ejemplo solo hay un msgbox cuando clico en un ítem del listview porque es un simple ejemplo. Ya probaré reorganizando el código como tú comentas. ¿Cual sería la sintaxis del código para que si uno de los ítems es igual a la celda activa se seleccione? Es que con los Listbox no tengo problema pero en el Listview no acabo de conseguirlo, todo lo que he visto por Internet es código para seleccionarlo a mano y no automáticamente en un if then. Gracias
  11. Una vez que ha cargado el bucle de los Items mira si la variable que carga la Celda activa al abrir el Userform tiene algo, si lo tiene, activa las macros de carga de los Listbox3 y 4 Lo pongo aquí por si le ayuda a alguien, pero es que forma parte de un Userform grande y puede que tal cuál no le funcione si alguien copia y pega: Este es el código de carga del ListView: Private Sub LlenaListView() 'Llena Listview1 según el OptionButton seleccionado Dim Item As ListItem Dim CantidadTotalStock As Double Dim x, Fila, NumTodosColores As Integer ListView1.ListItems.Clear With ListView1 .View = lvwReport '<<< Encabezados With .ColumnHeaders .Clear 'primero limpiamos y añadimos Nombre del campo y su ancho '.Add(index, key, text, width, alignment, icon) .Add Text:=HStocks.Range("B2"), Width:=130 .Add Text:=HStocks.Range("C2"), Width:=48 .Add Text:=HStocks.Range("D2"), Width:=43 .Add Text:=HStocks.Range("E2"), Width:=93 End With .HideColumnHeaders = False '<<< Encabezados a la vista .Appearance = cc3D .FullRowSelect = True .Gridlines = True x = 3 Fila = 1 Do While HStocks.Cells(x, 1) <> Empty CantidadTotalStock = CantidadTotalStock + HStocks.Cells(x, 4) NumTodosColores = NumTodosColores + 1 If HStocks.Cells(x, 1) = GruposColores(0) Or HStocks.Cells(x, 1) = GruposColores(1) Or GruposColores(0) = 10 Then Set Item = .ListItems.Add(Text:=HStocks.Cells(x, 2).Value) Item.ListSubItems.Add Text:=HStocks.Cells(x, 3).Value Item.ListSubItems.Add Text:=HStocks.Cells(x, 4).Value Item.ListSubItems.Add Text:=HStocks.Cells(x, 5).Value 'Este es el código que uso para seleccionarlo. <<<<<<<<<<<<<<<<<<<< If ListView1.ListItems(Fila) = ColorEntrado Then ListView1.SetFocus ListView1.ListItems(Fila).Selected = True ListView1.ListItems(Fila).EnsureVisible End If Fila = Fila + 1 End If x = x + 1 Loop End With 'Esta es la variable que tiene el valor de la celda activa If ColorEntrado <> "" Then MuestraFormula '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Label12 = "" Label13 = "" Label16 = NumTodosColores & " colores" Label17 = Int(CantidadTotalStock) & " kilos en total" End Sub Saludos
  12. Hola Antoni, encantado de saludarte. Es que tenía un Listbox que lo hacía saltar automáticamente, pero he cambiado a ListView por el tema de que funciona la rueda del ratón, cosa que en los Listbox no funciona, y no lo logro. Pero en este momento ya lo he solucionado, he modificado un poco la forma de proceder del código y ya está. Veo que tú no lo conseguiste a raiz de tu consulta, supongo.
  13. Hola. Gracias por tu ayuda. El código ya lo tengo, cuando carga el ListView en un bucle, si detecta que el Item que ha cargado es igual al de la celda activa, que a su vez está dentro de una variable String, lo selecciona. El problema que tengo es que no logro que se active el evento click automáticamente. Lo voy a tener que activar por código manualmente. Pongo el código: Sería dentro del bucle que carga todos los Items, la variable "Fila" es la que va contando los Items cargados: 'Este es el código que uso para seleccionarlo. <<<<<<<<<<<<<<<<<<<< If ListView1.ListItems(Fila) = ColorEntrado Then ListView1.SetFocus ListView1.ListItems(Fila).Selected = True ListView1.ListItems(Fila).EnsureVisible End If Gracias nuevamente
  14. Hola, gracias por tu ayuda. En el ejemplo solo hay un msgbox cuando clico en un ítem del listview porque es un simple ejemplo. Ya probaré reorganizando el código como tú comentas. ¿Cual sería la sintaxis del código para que si uno de los ítems es igual a la celda activa se seleccione? Es que con los Listbox no tengo problema pero en el Listview no acabo de conseguirlo, todo lo que he visto por Internet es código para seleccionarlo a mano y no automáticamente en un if then. Gracias
  15. Por cierto, menudo tesoro has puesto en el enlace. Le pegaré un vistazo. Gracias
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png