Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Problemas con List Box

13/11/2009 - 14:49 por Guli | Informe spam
Ayuda Hacer una pregunta
Hola!!!
Gracias de antemano.
El problema está en que cuando quiero agregar datos a un listbox no lo puede
hacer, me dice que Error 424 "se requiere un objeto". Por lo que entiendo
supongo que apuntará a que falta el listbox donde agregar los datos, pero lo
tengo!!!
El botón de comando está agregado a una hoja donde también se encuentra el
listbox.
Adjunto el código que estoy utilizando, cualquier dato adicional que
necesiten favor haganmelo saber.
Muchas Gracias nuevamente!!!!
Guli.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
MsgBox Prompt:="Cargar Tarifa Individual", Title:="Recordatorio"
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox1.AddItem "Celulosa (Incluye Fluff)"
ListBox1.AddItem "Madera (Incluye Moldura - Rema - Blanks)"
ListBox1.AddItem "MDF"
ListBox1.AddItem "PBO"
ActiveWorkbook.Sheets("Necesario2").Activate
Range("B2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
celdin = ActiveCell.Address
Range("B2:" + celdin).Select
Selection.Copy
ActiveWorkbook.Sheets("Consulta").Activate
celdo = Range("D2")
ActiveWorkbook.Sheets(celdo).Activate
Range("AJ1").Select
ActiveSheet.Paste
Range("AJ1").Select
Do While ActiveCell <> Empty
Rem AQUÍ ME DA EL ERROR
ListBox2.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
13/11/2009 - 21:54 | Informe spam
hola, !

El problema esta en que cuando quiero agregar datos a un listbox no lo puede hacer
me dice que Error 424 "se requiere un objeto".
Por lo que entiendo supongo que apuntara a que falta el listbox donde agregar los datos, pero lo tengo!!!
El boton de comando esta agregado a una hoja donde tambien se encuentra el listbox.
Adjunto el codigo que estoy utilizando, cualquier dato adicional que necesiten favor haganmelo saber.



comprueba/corrige/... que "la hoja" (donde tienes incrustado el boton y los listboxes) sea "la misma"
(la hoja que queda como activa despues de estas tres instrucciones de tu codigo original):

ActiveWorkbook.Sheets("Consulta").Activate
celdo = Range("D2")
ActiveWorkbook.Sheets(celdo).Activate



saludos,
hector.

__ el codigo expuesto __
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
MsgBox Prompt:="Cargar Tarifa Individual", Title:="Recordatorio"
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox1.AddItem "Celulosa (Incluye Fluff)"
ListBox1.AddItem "Madera (Incluye Moldura - Rema - Blanks)"
ListBox1.AddItem "MDF"
ListBox1.AddItem "PBO"
ActiveWorkbook.Sheets("Necesario2").Activate
Range("B2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
celdin = ActiveCell.Address
Range("B2:" + celdin).Select
Selection.Copy
ActiveWorkbook.Sheets("Consulta").Activate
celdo = Range("D2")
ActiveWorkbook.Sheets(celdo).Activate
Range("AJ1").Select
ActiveSheet.Paste
Range("AJ1").Select
Do While ActiveCell <> Empty
Rem AQUI ME DA EL ERROR
ListBox2.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Preguntas similares

 

Busqueda sugerida :