05/11/2008, 08:50
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 2 meses Puntos: 17 | |
| Respuesta: error 9
no te compliques la vida con tantas funciones que kizas no se justifican
Private Sub CommandButton1_Click()
Dim luzera=5
Dim datuak_hartu(1 to 5) As Integer
Dim j As Integer
llena el vector
for x=1 to luzera
datuak_hartu(x)=x
next x
Range("A1").Select
For j = 1 To luzera
ActiveCell.FormulaR1C1 = datuak_hartu(j)
ActiveCell.Offset(0, 1).Select
Next j
End Sub |