Pasar valores de un array de textbox mediante un boton a celdas en excel

2 envíos / 0 nuevos
Último envío
NoSeExcel
Imagen de NoSeExcel
Offline
última acción: Hace 1 mes 2 semanas
alta: 16/01/2021 - 03:33
Puntos: 25
Pasar valores de un array de textbox mediante un boton a celdas en excel

Creo con un boton los 5 textbox, seguido de llenarlos mediante el form  

Public TextBoxD As MSForms.TextBox

Private Sub CommandButton1_Click()

 n = 5

Dim i As Integer

        For i = 1 To n

            Set TextBoxD = Me.Controls.Add("forms.TextBox.1", "TextBoxD" & i)

            TextBoxD.Top = 15 + contador2

            TextBoxD.Left = 65

            contador2 = contador2 + 25

       Next i

End Sub

Aca con un segundo boton envio los valores a una celda de excel, pero siempre se me envia el ultimo valor ingresado en el textbox y los demas valores no

Private Sub CommandButton2_Click()

 n = 5

    For i = 1 To n

    Sheets("Datos").Cells(i + 2, 15) = TextBoxD.Value

    Next i

End Sub

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 17 horas 44 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10890
en la segunda función está

en la segunda función está utilizando la variable TExtBoxD que definiste en el primer botón

pero esa variable siempre es la misma, tras ejecutar el código del botón 1 se queda asociada al último control

Como veo que tus controles se llaman "TextBoxD1", "TextBoxD2", etc., utiliza estos nombres para referirte a ellos en tu bucle del segundo botón

Algo parecido a esto: 

Private Sub CommandButton2_Click()

 n = 5

    For i = 1 To n

    Sheets("Datos").Cells(i + 2, 15) = Me.Controls("TextBoxD" & i).Value

    Next i

End Sub

 

 

 

------
Ya sé Excel, pero necesito más.