Macro que copia datos de forma horizontal a vertical Review:

En una pregunta anterior, ya habías dado el siguiente código:

Sub Macro1()
'Por.DAM
Range("A1:A20").Copy
Range("B5").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Es posible que, cuando pega los datos,  todos los deje en la misma columna, por ejemplo:

Hoja1:

    A         B           C          D

1 Dato1/Dato2/Dato3/Dato4

2 Dato5/Dato6/Dato7/Dato8

Hoja2

       A

1   Dato1

2   Dato2

3   Dato3

4   Dato4

5   Dato5

.        .

.        .

.        .

2 Respuestas

Respuesta
1

Podría ser algo así:

Sub xxx()
Dim coleccion As New Collection
Dim MatrizFinal() As String
Set Rng = Range("A1:D2")    'donde esté el rango con datos
x = 0
For Each celda In Rng
   x = x + 1
   coleccion.Add celda.Value
Next celda
ReDim MatrizFinal(1 To x) As String
For m = 1 To coleccion.Count
    MatrizFinal(m) = coleccion(m)
Next m
Range("G1:G" & x).Value = Application.Transpose(MatrizFinal)
End Sub

Espero te ayude.

Respuesta
1

H o l a:

Te anexo la macro

Sub CopiarDatos()
'Por.Dante Amor
    j = 1
    For Each c In Sheets("Hoja1").Range("A1").CurrentRegion
        Sheets("Hoja2").Cells(j, "A") = c.Value
        j = j + 1
    Next
    MsgBox "Fin"
End Sub
':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Necesito una fórmula que me busque el nombre de una persona y que me sume los ingresos de esa persona en diferentes hojas

En un libro de excel en la hoja 1 tengo mi base de datos con los diferentes nombres de los colaboradores de la empresa, en las siguiente hojas tengo los ingresos que devengaron mensualmente, enero-Agosto, lo que necesito es que me busque el nombre de...
2 respuestas

¿Cómo cancelar opciones de la barra de menús en google sheets?

He creado y compartido una hoja de google sheets para trabajo colaborativo entre varios usuarios, todos están como "editores" pero sólo pueden editar rangos específicos que les he asignado a cada uno, también he desactivado en configuración las...
2 respuestas

Formato condicional con función de excel

Expertos, como puedo resaltar una celdas con formato condicional en base a una función lógica en Excel Mis criterios es que de lunes a vieres la hora laboradas son 8.5 y sábado 5.5 A partir de la columna D5 se colocan las fechas y en la columna G a...
3 respuestas

Cómo recoger datos concretos de acciones específicas de una web en excel

Tengo un Excel con una columna con los nombres de unas acciones que cotizan en diferentes mercados mundiales. Quisiera saber si, desde una web especializada en bolsa, se puede recoger un dato concreto de cada una de esas acciones que tengo, y...
2 respuestas

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
4 respuestas

Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.

Tengo una tabla con datos, la primera columna (A) es un ID, cuando se completa información en mi base de datos, el número del ID lo elimino, quedando vacío. Entonces cuando vuelvo a cargar el listbox, no quiero que las filas con ID vacío se muestren...
3 respuestas

Como hacer Formato personalizado de celda

Deseo saber si me pueden ayudar con para obtener este formato personalizado de celda. Escribir esto en una celda 624662678 / 944642829 Ver esto 624 66 26 78 / 944 64 28 29 A la espera de su ayuda, me despido.
2 respuestas

Campos en informe de access auto ajustables

Tengo una duda que no se si se podrá resolver, tengo un informe de access con un texto predefinido, en el cual tienen que completarse unos campos previamente introducidos en un formulario, bien como puedo hacer para que el texto predefinido se ajuste...
3 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
5 respuestas

Cambio de color en varias celdas excel

Me preguntaba si habrá algún código que cambie el color de varias celdas en un libro Tengo demasiadas celdas en color amarillo y la idea es reemplazar esas celdas con color rojo
2 respuestas