Foro Excel

Hola muchach@s; tengo una hoja con una rutina con la cual obtengo la ultima fila vacia y el numero de en esa fila se almacena en la variable FILA ; luego copio los datos de una matriz lineal a las celdas desde la celda ("A"FILA) hasta la celda ("S"FILA) pero me da un error q no se como resolver. Espero me den una manito.

Este codigo busca la ultima fila vacia

Código: Seleccionar todo

Sheets("hoja1").Activate
CeldaInicial = A & 1
Set CeldaInicial = Sheets(hoja).Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
Sheets("hoja1").Cells(fila, col).Activate
Set CeldaInicial = Nothing


UNa vez hubicada la fila hago el copiado de datos de la matriz a las celdas con el siguiente codigo:

Código: Seleccionar todo

For i = 0 To 18
ActiveCell.Offset(0, i) = matriz(i)
Next i


Y luego con esta parte el codigo le pongo un nombre a la lista; pero es en la parte:
Range(rango).Select me dice q hay un error en la propiedad range

Código: Seleccionar todo

rango = ("A2" & ":A" & fila)
Range(rango).Select ' acá me indica el error
ActiveWorkbook.Names.Add Name:="Boletas", RefersToR1C1:="=Hoja2!R2C1:R" & fila & "C1"


Otra vez gracias y espero me ayuden.

Saludos

David

Hola David,

Creo que puedes reducir tu código a estas lí­neas.

Código: Seleccionar todo

Option Base 1
Sub Test()
    Dim Matriz As Variant
    Matriz = Range("A1:S19") [b][color=red]'CAMBIA LA DEFINICION A TU RANGO O VALORES[/color][/b]
    Range("A1", Range("S" & Rows.Count).End(xlUp)).Offset(1, 0) = Matriz
    Range("A2", Range("S" & Rows.Count).End(xlUp)).Name = "Boletas"
End Sub

Saludos

Gracias, genial, simplemente genial


David