Tengo en un form dos textbox que necesito volcar a una hoja,

Private Sub ok_Click()
range(A1).value = textbox_nombre_1.value<br class="typ" />range(b1).value = textbox_apellido_1.value 
range(c1).value = textbox_direccion_1.value
range(A2).value = textbox_nombre_2.value
range(b2).value = textbox_apellido_2.value 
range(c2).value = textbox_direccion_2.value
.....
Range(A100).value = textbox_nombre_100.value
range(b100).value = textbox_apellido_100.value 
range(c100).value = textbox_direccion_100.value
end sub
reemplazar por algo asi
Private Sub ok_Click()
for cont = 1 to 100
range(A1).offset(cont,0).value = textbox_nombre_ & cont 
range(b1).offset(cont,0).value = textbox_apellido_ & cont  
range(c1).offset(cont,0).value = textbox_direccion_ & cont 
End Sub

Desde ya muchas gracias

1 respuesta

Respuesta
1

Te dejo un ejemplo, por favor adapta el nombre del control a tu muestra;

Range("A1").Offset(0, i) = Me.Controls("Textbox" & i).Value


Sdos.

Elsa


http://aplicaexcel.galeon.com/manuales.htm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas