repetir un campo un número de veces

Y la Bd la qiuiers en MDB o XLS ?

Saludos




"Susana" escribió en el mensaje
news:

Hola,

Tengo una base de datos con nombres de calles y el numero inicial y final.
CALLE Desde Hasta
Abedul 1 43

Quiero generar una base de datos que me repita el nombre de la calle

tantas

veces como números tenga la calle (en este caso 1,3,543)

Alguien tiene alguna idea?

Gracias,

Susana

La quiero en XLS

"Francisco Parrilla" wrote:

Y la Bd la qiuiers en MDB o XLS ?

Saludos




"Susana" escribió en el mensaje
news:
> Hola,
>
> Tengo una base de datos con nombres de calles y el numero inicial y final.
> CALLE Desde Hasta
> Abedul 1 43
>
> Quiero generar una base de datos que me repita el nombre de la calle
tantas
> veces como números tenga la calle (en este caso 1,3,543)
>
> Alguien tiene alguna idea?
>
> Gracias,
>
> Susana

hola, Susana !

Tengo una base de datos con nombres de calles y el numero inicial y final.
CALLE Desde Hasta
Abedul 1 43
Quiero generar una base de datos que me repita el nombre de la calle
tantas veces como numeros tenga la calle (en este caso 1,3,543)

si suponemos que existe una "Hoja2" y corres la siguiente macro desde la hoja con la 'base de datos'...
obtendras un 'consecutivo' de los numeros 'desde y hasta' con el mismo nombre de la calle [pares o nones]
OJO: [probablemente] alcanzaras el 'limite' de 65536 filas en la hoja2
-> hasta en tanto comentes algunos detalles adicionales que pudieran haberse 'quedado en el tintero' :))

Sub Genera_domicilios()
Dim Fila As Long, n As Integer
For Fila = 2 To Range("a65536").End(xlUp).Row
n = (Range("c" & Fila) - Range("b" & Fila)) / 2 + 1
With Worksheets("hoja2").Range("a65536").End(xlUp).Offset(1)
.Offset(, 1) = Range("b" & Fila)
.Offset(1, 1) = Range("b" & Fila) + 2
.Offset(, 1).Resize(2).AutoFill _
Destination:=.Offset(, 1).Resize(n)
.Resize(n) = Range("a" & Fila)
End With
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor

Oye, muchas gracias. Muy bueno esto. He siguido tus instrucciones y funciona
bien. Lo único que se para después de tres calles y me da un error:

"Se ha producido el error ´1004´en tiempo de ejecución: Error en el método
de AutoFill de la clase Range"

Y me señala:
.Offset(, 1).Resize(2).AutoFill _

Destination:=.Offset(, 1).Resize(n)

Sabes qué puede ser? El caso es que hasta ese punto lo hace bien.

Muchas gracias por haber contestado.

Susana

"Héctor Miguel" escribió:

hola, Susana !

> Tengo una base de datos con nombres de calles y el numero inicial y final.
> CALLE Desde Hasta
> Abedul 1 43
> Quiero generar una base de datos que me repita el nombre de la calle
> tantas veces como numeros tenga la calle (en este caso 1,3,543)

si suponemos que existe una "Hoja2" y corres la siguiente macro desde la hoja con la 'base de datos'...
obtendras un 'consecutivo' de los numeros 'desde y hasta' con el mismo nombre de la calle [pares o nones]
OJO: [probablemente] alcanzaras el 'limite' de 65536 filas en la hoja2
-> hasta en tanto comentes algunos detalles adicionales que pudieran haberse 'quedado en el tintero' :))

Sub Genera_domicilios()
Dim Fila As Long, n As Integer
For Fila = 2 To Range("a65536").End(xlUp).Row
n = (Range("c" & Fila) - Range("b" & Fila)) / 2 + 1
With Worksheets("hoja2").Range("a65536").End(xlUp).Offset(1)
.Offset(, 1) = Range("b" & Fila)
.Offset(1, 1) = Range("b" & Fila) + 2
.Offset(, 1).Resize(2).AutoFill _
Destination:=.Offset(, 1).Resize(n)
.Resize(n) = Range("a" & Fila)
End With
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Susana !

... se para despues de tres calles y me da un error:
"Se ha producido el error 1004 en tiempo de ejecucion:
Error en el metodo de AutoFill de la clase Range"
Y me se#ala:
.Offset(, 1).Resize(2).AutoFill _

Destination:=.Offset(, 1).Resize(n)

Sabes que puede ser? El caso es que hasta ese punto lo hace bien.

- cual es el rango de numeros [desde y hasta] donde se presenta la falla ?
- se trata de celdas en blanco, vacias, ???

comentas algun detalle mas... 'significativo' ?
saludos,
hector.