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
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
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