Pasar un rango de números de un textbox a un listbox

[Santij80]

Hola a todos,

estoy empezando con la programación en VB porque estoy con un trabajo en excel. Necesito una ayuda para que al introducir un rango de filas en un textbox de un formulario (ej. 20:30) al pasarlo mediante un boton a un listbox lea el contenido del rango e introduzca el número de filas que contiene ese rango (ej. 20,21,22,23... 30).

De momento lo tengo configurado para introducir los valores de uno en uno:

Private Sub Agregar_Click()


If IsNumeric(TextBox1.Text) = True Then
Me.ListBox1.AddItem (TextBox1.Text)
Me.TextBox1.Text = ""
Aceptar.Enabled = True
Else

MsgBox "Se debe incluir el número de fila a eliminar", vbCritical

End If

Me.TextBox1.SetFocus

End Sub

Muchas gracias por vuestra ayuda!!

[erbuson]

Hola, si quieres prueba esta rutina a ver si esto es lo que estas necesitando:

La idea es que al pulsar sobre el Command1, visualices en un List1 separadas las filas del rango indicado.

Si no se indica : la función no se ejecuta
Si indicas :10 visualizarás de 0 a 10

Código vb:

Private Sub Command1_Click()
  Dim Separador As Integer
  Dim Desde As Integer, Hasta As Integer, Numero As Integer
  Separador = InStr(Text1.Text, ":")
  If Separador = 0 Then Exit Sub
  Desde = Val(Left$(Text1.Text, Separador - 1))
  Hasta = Val(Mid$(Text1.Text, Separador + 1))
  List1.Clear
  For Numero = Desde To Hasta
    List1.AddItem Numero
  Next
End Sub
 

Es una idea, en base a lo que entiendo preguntas y el sistema es muy simple y facil de comprender, cualquier duda comentas.

Saludos

[Santij80]

Muchas gracias ya lo he conseguido!!!!