Visual Basic para Aplicaciones - Problema funcion listbox

Hola a todos,

estoy haciendo una macro en Excel 2000 con una serie de formulario. He creado una función a la que le paso un listbox para hacer una serie de operaciones con este.

La declaración de la función es "Public Function opera_listbox(lst_listbox as listbox) as integer " y desde el código que la llamo pongo "opera_listbox mi_listbox"., donde mi_listbox en un listbox del formulario.

El problema es que siempre me dice que los tipos de datos no coinciden y no se ejecuta. ¿Alguien podría ayudarme? Muchas gracias.

tb he dejado el mensaje en el foro de visual ya que no sabía donde encaja mejor

Que tal pipiolo, bueno mira hice una prueba hice un formulario con un listbox el cual tiene los numeros 1 y 2, un boton que me llama a tu funcion y un textbox que en la cual escribo el resultado de la funcion, el codigo es el siguiente:

FORMULARIO:
Private Sub CommandButton1_Click()
Dim resultado As Integer
resultado = opera_listbox(ListBox)
TextBox1.Text = resultado
End Sub

'Al cargar el formulario se llena
Private Sub UserForm_Initialize()
ListBox.AddItem (1)
ListBox.AddItem (2)
End Sub

'y en un modulo cree la funcion que me retorna la suma

Public Function opera_listbox(con As Object) As Integer
opera_listbox = CInt(con.List(0)) + CInt(con.List(1))
End Function

Esta probado y me funciono perfecto, espero que te sea util, cualquier cosa no dudes en preguntar, suerte!

Ya está resuelto. El problema era la declaración de la función que yo tenía:

Private Function mi_funcion (mi_listbox as listbox) as integer

y probando tu código debe ser:

Private Function mi_funcion (mi_listbox as object) as integer

Pensaba que se podía pasar el listox como argumente, pero por lo visto no funciona.

un saludo y muchas gracias

Hola

El error debe ser otra cosa porque un Listbox si se puede pasar como argumento

Saludos
http://www.theemulator.tk