Copiar datos de una columna a otra hoja

Primero que todo felicidades por la pagina muy bonita.

La pregunta es esta en mi hoja 1 capturo como 20 datos en la columna b1 hasta b20 y con un botón mandarlos a la hoja 2 que es mi base de datos solamente que en la fila 1 tengo los títulos y deseo que se pases los datos por fila ose lo que capture en la hoja 1 en la columna a1, a2, a3 etc. Se pasen a la hoja 2 pero por fila a1, b1, c1 etc espero me halla explicado

2 respuestas

Respuesta
1

Con este código puedes hacer lo que necesitas, es mucho más ágil y simple

Sub traspone()
Dim uf As Integer
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Hoja1").Range(Cells(1, "A"), Cells(uf, "A")).Copy
Sheets("Hoja2").Cells(1, "A").PasteSpecial Paste:=xlPasteAll, Transpose:=True

Buen día experto me pareció excelente tu respuesta pero una cuestión nada mas lo ejecute y si copio toda la columna vertical a horizontal lo único es que se queda activada el recuadro punteado de lo que va a copiar y lo otro es que si capturo otros datos y los quiero pasar a la hoja 2 me los pasa en la misma fila de la anterior no me los respeta no se si se puede hacer que se vallan quedando los datos anteriores.

Para que no quede activado el recuadro haz

cells(1,1).select

para que quede las celdas con datos usa este código

Sub traspone()
Dim uf,uf1 As Integer
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row

uf1 = Sheets("hoja2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Hoja1").Range(Cells(1, "A"), Cells(uf, "A")).Copy
Sheets("Hoja2").Cells(uf1, "A").PasteSpecial Paste:=xlPasteAll, Transpose:=True

Respuesta

Intenta con este código yo solo llegue hasta el dato de la fila 8 pero tu lo puedes completar

Este código lo puedes ejecutar desde un botón como habías dicho

Y copia los 8 datos de a1 hasta a8 y los pega en la hoja2 en una sola fila

CÓDIGO

Sub copiadatos()
'
' copiardatos Macro
'
Application.ScreenUpdating = False
Worksheets("Hoja2").Activate
Worksheets("Hoja2").Select
Worksheets("Hoja2").Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Hoja2").Cells(2, 1).Value = Worksheets("Hoja1").Cells(1, 1).Value
Worksheets("Hoja2").Cells(2, 2).Value = Worksheets("Hoja1").Cells(2, 1).Value
Worksheets("Hoja2").Cells(2, 3).Value = Worksheets("Hoja1").Cells(3, 1).Value
Worksheets("Hoja2").Cells(2, 4).Value = Worksheets("Hoja1").Cells(4, 1).Value
Worksheets("Hoja2").Cells(2, 5).Value = Worksheets("Hoja1").Cells(5, 1).Value
Worksheets("Hoja2").Cells(2, 6).Value = Worksheets("Hoja1").Cells(6, 1).Value
Worksheets("Hoja2").Cells(2, 7).Value = Worksheets("Hoja1").Cells(7, 1).Value
Worksheets("Hoja2").Cells(2, 8).Value = Worksheets("Hoja1").Cells(8, 1).Value
Worksheets("Hoja1").Cells(1, 1).Value = ""
Worksheets("Hoja1").Cells(2, 1).Value = ""
Worksheets("Hoja1").Cells(3, 1).Value = ""
Worksheets("Hoja1").Cells(3, 1).Value = ""
Worksheets("Hoja1").Cells(4, 1).Value = ""
Worksheets("Hoja1").Cells(5, 1).Value = ""
Worksheets("Hoja1").Cells(6, 1).Value = ""
Worksheets("Hoja1").Cells(7, 1).Value = ""
Worksheets("Hoja1").Cells(8, 1).Value = ""
Worksheets("Hoja1").Activate
Worksheets("Hoja1").Select
Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Excel copiar datos a otra hoja en fila vacia para Dam

Quiero copiar datos de una determinada columna (hoja1) a hoja 2 ya tengo echo el procedimiento lo único malo que al copiarlo me los copia en la misma fila, que instrucción me falta para que pase a la siguiente fila El código es este : Sub copiar()...
4 respuestas

Como copiar rangos de filas y transponer con macro?

Soy un principiante en esto por favor su ayuda. Tengo una planilla con una serie de datos los cuales debo mover a otra hoja, el problema es que no me copia y transpone todos los datos y solo transpone la primera serie:
1 respuesta

Pregunta para Luis Mondelo: Macro

Me ayudaste con esta macro hace algunos dias. Me surge otra inquietud mas bien necesidad. Podria ser que el valor buscado en este caso C11 no se arroje en J11. Me explico que sólo arroje en J11 los datos que estan a la derecha del valor buscado.....
1 respuesta

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

Buenas tardes como están... Tengo una macro que compara diferencias entre 2 hojas

La macro compara las diferencias entre las 2 hojas y copia las diferencia en una tercera. Y trabaja bien con 30 o 40 lineas pero necesito que compare unas 900 o 1000 lineas, Otra cosa esta macro tiene una hoja ( hoja 1 como master) y importa datos de...
1 respuesta

Buscar con un dato y copiar filas enteras que lo contengan

A5:D20, Tab_Facturas) con datos repetidos (que está en la Hoja1), necesito buscar todas las filas que tengan por ejemplo el numero dos que se encuentran en la columna "C" que es el N°. De vendedor, la columna "A" contiene el N°. De Factura, la...
1 respuesta

Extraer datos repetidos de una hoja a otra

Tengo una llamada "datos" con varios registros que son agrupados de acuerdo aun identificador de una columna llamada código, por ejemplo: Código nombre prod valor C001 nomA sofá 500 C001 momA sillón 600 C002 nomB regla 100 C002 nomB lápiz 50 Los...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Macro transponer cada por filas

Necesito una macro que todos los datos de una columna A que están ordenados cada 4 filas con: nombre, dirección, teléfono, espacio en blanco. Nombre2, direccion2, telefono2, espacio en blanco2. Nombre3, direccion3, telefono3, espacio en blanco3....
2 respuestas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta