hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C
Sub zero()
Dim ultimaCeldaDatos As String
'hallar la ultima celda con datos de la columna B de la hoja estadistica
ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row
'copiando datos de columna B
Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy
Sheets("archivo").Select
'posicionando en la celda donde pegare los datos en la hoja archivo
Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select
Selection.PasteSpecial
Application.CutCopyMode = False
'copiando datos de las columnas de Estadísticas Descriptivas de la hoja estadistica
Sheets("analisis").Range("g3:h7").Copy
Sheets("archivo").Select
'posicionando en la celda donde pegare los datos en la hoja archivo
Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select
Selection.PasteSpecial xlPasteValues
'configurando el borde y tamaño de las columnas de Estadísticas Descriptivas
Selection.Borders.Weight = XlBorderWeight.xlThin
Selection.ColumnWidth = 20
Application.CutCopyMode = False
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C
Sub zero() Dim ultimaCeldaDatos As String 'hallar la ultima celda con datos de la columna B de la hoja estadistica ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row 'copiando datos de columna B Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select Selection.PasteSpecial Application.CutCopyMode = False 'copiando datos de las columnas de Estadísticas Descriptivas de la hoja estadistica Sheets("analisis").Range("g3:h7").Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select Selection.PasteSpecial xlPasteValues 'configurando el borde y tamaño de las columnas de Estadísticas Descriptivas Selection.Borders.Weight = XlBorderWeight.xlThin Selection.ColumnWidth = 20 Application.CutCopyMode = False End Sub