Jump to content
Sign in to follow this  
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!!!!!!!

Share this post


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

Share this post


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!!!

Share this post


Link to post
Share on other sites

hola pericleoscs,

pues a mi me funciona perfectamente. Las columnas que tenías ocultas la he mostrado y he visto como se pegaban las filas que seleccionaban en el listbox. Debes tener algún problema en tu excel.

Share this post


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.

Share this post


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

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png