valores en matriz

15/10/2004 - 20:05 por Garanya | Informe spam

Intento coger los valores de un Rango y meterlos en una matriz para luego
copiarlos en otra hoja
Dim cont As Integer
Dim i As Integer
Dim j As Integer
Dim Articles() As Integer
i = 16
cont = 1
Cells(16, 2).Select
Do While cont < 6
If Not IsEmpty(ActiveCell) Then
Articles(cont) = Cells(i, 2).Value 'Aqui tengo un error alguien
puede ayudarme
i = i + 1

cont = cont + 1
End If

Loop

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Anonimo

16/10/2004 - 10:05 | Informe spam

No dices qué error es, no obstante, tal vez sea que el dato
no es de tipo Integer y tu has definicido la matriz
Articles como integer.

Intento coger los valores de un Rango y meterlos en una

matriz para luego

copiarlos en otra hoja
Dim cont As Integer
Dim i As Integer
Dim j As Integer
Dim Articles() As Integer
i = 16
cont = 1
Cells(16, 2).Select
Do While cont < 6
If Not IsEmpty(ActiveCell) Then
Articles(cont) = Cells(i, 2).Value 'Aqui tengo un

error alguien

puede ayudarme
i = i + 1

cont = cont + 1
End If

Loop
.

Responder a este mensaje

#2 Fer

17/10/2004 - 21:33 | Informe spam

Hola Gar:
Cambia la declaración de la variable vectorial
Y si quieres que comience con uno y no con cero tienes que egregar:

Option Base 1

Sub .()

Dim Articles(5) As Integer

End sub

Saludos, fer

"Garanya" escribió en el mensaje
news:

Intento coger los valores de un Rango y meterlos en una matriz para luego
copiarlos en otra hoja
Dim cont As Integer
Dim i As Integer
Dim j As Integer
Dim Articles() As Integer
i = 16
cont = 1
Cells(16, 2).Select
Do While cont < 6
If Not IsEmpty(ActiveCell) Then
Articles(cont) = Cells(i, 2).Value 'Aqui tengo un error alguien
puede ayudarme
i = i + 1

cont = cont + 1
End If

Loop

Responder a este mensaje

#3 josepma

21/10/2004 - 12:08 | Informe spam

Hola.

Alguien conoce algun programa forma para imprimir cheques bancarios.

Gracias.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida