Jump to content
pericleoscs

Problemas con RowSource

Recommended Posts

Hola gente mi consulta es la siguiente,, en el cuadeo de propiedades de Listbox necesito agregar otra palabra a RowSource o sea, yo tengo dato y necetito que diga basededatos ,,,,,, bueno nome deja,,,:( Me dice " No se puede configurar la propiedad de RowSource. Valor de propiedad no valido".. como hago para que me deje cambiar eso..?

Muchas gracias!!!!!!!

Link to post
Share on other sites

hola,

no entiendo muy bien como lo tienes hecho, pero intuyo que necesitas añadir items al listbox, la forma que yo utilizo es la siguiente:

1. genero una lista en una tabla con los distintos items. en este caso pongo el nombre a la lista "MOTIVO"

2. doy doble clic sobre el formulario donde tengo el listbox.

3. Introduco este código:

Private Sub UserForm_Activate()

With ListBox1

.RowSource = "MOTIVO"

.ListIndex = 0

End With

End Sub

4. aparecen todos los items de la lista en el listbox

Link to post
Share on other sites

si es eso, pero el tema es que yo copio esos codigos en otro documento y me tira error de RowSource

Private Sub UserForm_Activate()

With ListBox1

.RowSource = "prueba"

.ListIndex = 0

End With

End Sub

por eso pregunto si aparte de agregar esos codigos hay que configurar otra cosa. porque yo copio y pego talcual me lo pasaste vos, en el mismo lugar, y me tira error :(

gracias!!!

Link to post
Share on other sites

te explico, el form me lo abre y me despliega el listboxcomo lo ves en la foto que postie, pero no me toma le comumna "F".... yo entiendo que uds, me pasan mi archivo resuelto,,, pero yo a eso lo tengo que pasar a orto archivo... entoncves copio tal cual el que me pasan uds, pero no me toma la ultima columna "F",, sorry por mi ignorancia.

Link to post
Share on other sites

Bueno pues lo que tienes que hacer es lo siguiente:

Primero tienes que definir un rango de datos para eso te vas a lo siguiente:

Te vas al menu INSERT y luego a NAME luego DEFINE

y le colocas como nombre DATOS

luego en la linea de refers to copias lo siguiente.

=OFFSET(Hoja1!$H$16,0,0,COUNTA(Hoja1!$H$15:$H$50000),COUNTA(Hoja1!$H$15:$M$15))

Luego presionas ALT F11

y te vas al formulario y das doble click sobre el combobox MES

borras la codificacion que tu tienes y copias lo siguiente:

Application.ScreenUpdating = False

Range("h15:m50000").ClearContents

Sheets("Hoja1").Activate

Range("h1").Value = "Mes"

Range("h2").Value = Me.Mes.Value

Me.ListBox1.RowSource = Empty

Range("A1:f50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"H1:I2"), CopyToRange:=Range("H15"), Unique:=False

Me.ListBox1.RowSource = "Datos"

Range("a1").Select

Application.ScreenUpdating = True

y por ultimo buscas la siguiente linea:

Range("h15:l50000").ClearContents

y la sustituyes por la siguiente

Range("h15:m50000").ClearContents

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

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy