Convertir tabla a columnas pero con solo las celdas visibles
Publicado por Braispak (2 intervenciones) el 19/01/2018 22:02:00
Buenas,
quiero pasar los datos de una tabla a una sola columna, algo que ya he conseguido. Pero ahora lo que no soi capaz de conseguir es que solo me pase a esa sola columna los datos de esta misma tabla pero aplicando filtros.
el código que tengo es el siguiente:
alguien me puede echar una mano a resolver este problema??
quiero pasar los datos de una tabla a una sola columna, algo que ya he conseguido. Pero ahora lo que no soi capaz de conseguir es que solo me pase a esa sola columna los datos de esta misma tabla pero aplicando filtros.
el código que tengo es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub rango_columnas()
Dim rango As Variant
Dim i As Long, j As Long, k As Long
Dim col As Long
rango = Selection.Value
'Esta es la parte que permite ubicar la salida
col = Selection.Column
k = Selection.Row
'Esto recorre el rango y realiza la trasposición
For i = 1 To UBound(rango, 1)
For j = 1 To UBound(rango, 2)
Cells(k, col + UBound(rango, 2)).Value = rango(i, j)
k = k + 1
Next
Next
End Sub
alguien me puede echar una mano a resolver este problema??
Valora esta pregunta
0
