Buenas tardes estoy haciendo un listbox en vba excel para que guarde unos datos, sin embargo me aparece ese error.
Todas las variables son públicas e incluso las he puesto todas tipo variant.
ListBox1.ColumnCount = 4
ListBox1.AddItem
ListBox1.List(0, 0) = (UserForm1.TextBox5.Text)
ListBox1.List(0, 1) = ""
ListBox1.List(0, 2) = ""
ListBox1.List(0, 3) = UserForm1.precio_adquisicion
Do Until (ListBox1.List(ListBox1.ListCount, 3) = UserForm1.valor_residual)
'For i = 2 To 100
ListBox1.AddItem
'variable = variable + 1
ListBox1.List(ListBox1.ListCount, 0) = DateAdd("yyyy", 1, CDate(UserForm1.fecha_funcionamiento))
ListBox1.List(ListBox1.ListCount, 1) = (UserForm1.precio_adquisicion - UserForm1.valor_residual) / UserForm1.años
acumulador_amortizacion = acumulador_amortizacion + ListBox1.List(ListBox1.ListCount, 1)
ListBox1.List(ListBox1.ListCount, 2) = acumulador_amortizacion
ListBox1.List(ListBox1.ListCount, 3) = (ListBox1.List((ListBox1.ListCount - 1), 3) - ListBox1.List(ListBox1.ListCount, 1))
'Next
Loop
End Sub
He probado a sustituir el listcount por una variable que vaya incrementando 1 y nada
ListBox1.List(ListBox1.ListCount - 1, 3) = ListBox1.List(ListBox1.ListCount - 1, 3) - ListBox1.List(ListBox1.ListCount - 1, 1)
No se puede configurar la propiedad list los tipos no coinciden. He probado a cambiar las variables a double e integer y nada