Capturas datos verticales a horizontales

Hola Elsa; mi nombre es cesar chira, soy fiel seguidor de tus acertados consejos y te felicito por el excelente trabajo que realizas.
Mi consulta es la siguiente: tengo diseñado una macro en el cual registro datos en un formulario, luego los grabo y se almacenan de forma vertical en otra hoja llamada registros, la cual tiene los nombres de los campo por ejemplo campo1, campo2, campo3, etc.
También tengo una carta de control estadística que le tengo que indicar que rango tiene que graficar.
Pregunta : como puedo de una manera automática pasar los últimos 20 últimos registros verticales (hoja- registros, a mi carta de control (hoja- carta1) en forma horizontal de los campos: campo1, campo3 y campo4
Te agradezco de antemano tu desinteresada labor y resare por ti.
Sin otro particular : cesar de perú
[email protected]

1 respuesta

Respuesta
1
Aquí te envío las instrucciones para que agregues a tu macro:
Sub transponer()
'para la primer col
Sheets("Registros").Select
Range("A60000").End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(-20, 0)).Select
Selection.Copy
Sheets("Carta").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'para la segunda col
Sheets("Registros").Select
Range("C60000").End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(-20, 0)).Select
Selection.Copy
Sheets("Carta").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'para la cuarta col
Sheets("Registros").Select
Range("D60000").End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(-20, 0)).Select
Selection.Copy
Sheets("Carta").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Tendrás que ajustar la celda de destino, en mi ejemplo utilices las de la col C
Saludos
Elsa
PD) Te recomiendo suscribirte GRATUITAMENTE al boletín de Excel de www.exceluciones.com, donde encontrarás ejemplos, soluciones y mucho material.
elsa;
la macro se detiene en :
Sub transponer()
'para la primer col
Sheets("Registros").Select
Range("A60000").End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(-20, 0)).Select
Selection.Copy
Sheets("Carta").Select
Range("C1").Select
Selecciona bien los datos de la 1ra hoja, luego se posiciona en la segunda hoja "carta" y se queda en la celda c1 y se detiene la macro
César:
Acabo de enviarte un archivo con la rutina incluida.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de fila a Columnas

Tengo este código que baje de la página de ustedes pero me coge la matriz y me la pasa toda a una fila y quisiera que fuera a una columna, no se que modificarle les agradezco que me ayduden a modificar el código y me copie todo a una sola columna...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

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

¿Cómo puedo cambiar celdas a formato de numero, por formato de celdas no me permite?

Solicito de su valiosa ayuda ya que no he podido crear una macro para Excel 2003 que me convierta un rango de celdas a numero, lo he intentado por formato de celdas y no pasa nada, la única forma es realizar el cambio manualmente para lo cual tengo...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta