Como copiar celdas con macro quitando el formato
Hola, estoy copiando unos datos de una fila en una hoja, cuyas celdas tienen los bordes marcados y los estoy pasando a otra hoja y pegándolos en una columna, el problema es que se copiaron con el borde marcado de la celda. ¿Qué hago para que se copien solo los valores?
Este es el código:
Sub test()
For i = 4 To 35
Sheets("MAR03").Select
Cells(30, i).Select
Selection.Copy Destination:=Sheets("Hoja2").Cells(i - 1, 1)
Next i
End Sub
Este es el código:
Sub test()
For i = 4 To 35
Sheets("MAR03").Select
Cells(30, i).Select
Selection.Copy Destination:=Sheets("Hoja2").Cells(i - 1, 1)
Next i
End Sub
1 respuesta
Respuesta de calvuch
1
Prueba:
Sub test()
For i = 4 To 35
Sheets("MAR03").Select
Cells(30, i).Select
Selection.Copy
Hoja2.Activate
Hoja2.Range(Cells(i - 1, 1), Cells(i - 1, 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Bye
Sub test()
For i = 4 To 35
Sheets("MAR03").Select
Cells(30, i).Select
Selection.Copy
Hoja2.Activate
Hoja2.Range(Cells(i - 1, 1), Cells(i - 1, 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Bye
