Visual Basic para Aplicaciones - Ayuda =aplicacion para Excel

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda =aplicacion para Excel

Publicado por Pedro (5 intervenciones) el 07/09/2005 17:04:29
Estoy haciendo un juego con Visual Basic de excel y para simplificarlo, necesitaría crear un bucle que me cambie el indice de los controles, para utilizarlos en una hoja Excel. Más o menos quiero algo así:

For M=1 to 81 step 1
A="A" & M
range(A) = textbox(M)
Next M

El problema esta en cambiar el indice de textbox1, textbox2, textbox3 etc.....

Como veis pretendo escribir lo que hay en texbox1 en la celd A1 y asi sucesivamente hasta la 81.

Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda =aplicacion para Excel

Publicado por carlos (55 intervenciones) el 11/09/2005 03:58:00
Proba algo asi en un form con textBoxes y un boton de comando.
Lo escrito es para tres Text y un cmd llamado Seguir

Private Sub cmdSeguir_Click()
Dim c As Controls
Dim txt As Control
Dim miValor As String

For Each txt In Controls
miValor = txt.Value

If miValor = "Falso" Then Exit Sub ' esto es porque cuando termina de 'recorrer los TextBox pasa al boton de comando y éste responde 'Falso'

Range("A1").Select
ActiveCell.Value = miValor

Next txt
End Sub

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda =aplicacion para Excel

Publicado por PedroI (5 intervenciones) el 12/09/2005 18:26:07
Gracias por tu ayuda. Con una pequeña modificación es justo lo que yo estaba buscando.
Por si alguien le interesa, tras la modificación ha quedado asi:

Private Sub CommandButton2_Click()

Dim txt As Control
Dim miValor As String
a = 0
For Each txt In Controls
miValor = txt.Value
a = a + 1
If miValor = "Falso" Then Exit Sub ' esto es porque cuando termina de 'recorrer los TextBox pasa al boton de comando y éste responde 'Falso'
ran = "A" & a
Range(ran).Select
ActiveCell.Value = miValor
Next txt
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar