Excel - Macro Importar datos - Pegar como valores

   
Vista:

Macro Importar datos - Pegar como valores

Publicado por Jorge (2 intervenciones) el 14/03/2018 20:56:44
Hola! Tengo la siguiente Macro que me funciona bien, sin embargo necesito que al final pegue como "valores"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Import()
'
' Import Macro
'
Dim dir As String '
MsgBox "Selecione Libro a Importar"
dir = Application.GetOpenFilename(fileFilter:="Excel Files (*.xls*), *.xls*") 'selecionas el libro
Workbooks.Open Filename:=(dir)
Sheets("Billing Template").Select
MsgBox dir
Columns("N:V").Select
Selection.Copy
ActiveWorkbook.Close SaveChanges:=False
Sheets("Data").Select
Columns("A:I").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'
End Sub

Intenté reemplazar ese segmento por lo siguiente, pero no me funcionó. Alguna sugerencia?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder