Jump to content

Archived

This topic is now archived and is closed to further replies.

EdmundoFF

error en macro

Recommended Posts

Estimados Foristas:

Antes de algo, los saludo con cariño.

tengo un problema con la macro del archivo anexo, en la que me estoy apoyando, pero el problema es el siguiente:

La macro funciona bien así como esta, pero si se convierte a números la lista, me manda un error.

me pueden ayudar a decirme porque pasa esto?, o que le puedo hacer ya que mi archivo en el que voy a aplicar esta macro son números.

De antemano, muchas gracias.

Saludos y felicidades...

 

 

Cargar Unicos en Combobox_GP.xlsm

Share this post


Link to post
Share on other sites

Prueba así:

Private Sub UserForm_Initialize()
For x = 7 To Range("B5").End(xlDown).Row
   ComboBox1 = Range("B" & x)
   If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
Next
ComboBox1 = ""
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • @SALAVERRINO , si no he entendido mal, es tan sencillo como poner estas 2 líneas en tu macro "ACTUALIZA_SORT_TRAB":   If Not bBien Then MsgBox "NO SE HA PODIDO ACTUALIZAR LA BASE DE DATOS, INTÉNTALO MÁS TARDE." End If 'Sheets("PLANILLA").Activate UserForm9.TextBox1 = Sheets("PLANILLA").[i3] '<-- AQUÍ' UserForm9.TextBox2 = Sheets("PLANILLA").[j3]'<-- AQUÍ' MsgBox "SE ACTUALIZO CÁLCULOS." Sheets("MENU").Activate Range("B8").Select Exit Sub  
    • ¿Y pretendes que nos inventemos las hojas, los rangos, los datos,  los textbox y el resto del código VBA? Si quieres tener la posibilidad de ayuda, empieza cumpliendo las normas del foro y sube un archivo con todo lo necesario para resolver tu consulta.
    • Saludos Abrahan estos son los errores al abrir el archivo,me dices si te va de algo o aun asi necesitas el codigo xml que uso para cargar la ribbon aunque como te comente me funciona muy bien en las maquinas donde no hice ninguna desinstalacion,lo que indica que el codigo xml no es el problema en si,por eso creo que se esta dndo una incompatibilidad por haber tenido antes office 2010,que opinas mi amigo
    • buenas tardes antes que nada agradecer por el tiempo que se toman en apoyarnos con nuestras dudas bueno mi consulta es la siguiente tengo una tabla y quisiera que al momento de escribir los datos en la celdas de arriba (algo como un buscador me filtre la información que estoy buscando) les dejo un ejemplo para que se pueda entender mejor espero puedan ayudarme muchas gracias. ejemplo.xlsx
    • ¡Hola a ambos! @joselica:  Quizá lo que te muestro en el adjunto te pone en perspectiva para lo que estás pidiendo.  En lo que adjunto, debes tener en cuenta que los cambios debes hacerlos en el rango manual (a la derecha), para que éste se vea reflejado en la parte izquierda. De igual forma, ten en cuenta la columna "orden", la cual determina el orden en ese día con respecto a los turnos.  ¡Comentas! ¡Bendiciones! Turnos.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy