Separar rango en columnas

[jpara3]

Hola

Me gustaría seleccionar un rango, por ejemplo el rango ("A1:C15") y que dicho rango se dividiera en 3, "A1:A15", "b1:B15" "C1:C15", pero no se muyh bien como hacerlo.

Ahora mismo estoy en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

_

Selecciona un rango cualquiera y ejecuta una de las tres macros siguientes:


Para columnas:

Sub PartirRangoEnColumnas()
Dim Rangos()
ReDim Rangos(0)
For Each c In...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Karlmay]

Hola jpara3, Antoni

No se entiende muy bien como quieres separar el rango seleccionado en columnas, ¿quieres separar las columnas y que queden otras columnas en medio, quieres separar el rango y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

_

Karlmay:

Antoni, no entiendo muy bien que es lo que realizan las macros, me dice que separa el rango en columnas ¿y?..

Cualquier rango seleccionado ya esta dividido en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jpara3]

Eso es, y lo resolví de la siguiente manera:

<i>
</i>dim r(n) as range
dim filas as double
dim columnas as double
filas = columnas.Rows.Count
columnas = columnas.Columns.Count

For i = 0 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí