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"
Intenté reemplazar ese segmento por lo siguiente, pero no me funcionó. Alguna sugerencia?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
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.CopyActiveWorkbook.Close SaveChanges:=False
Sheets("Data").Select
Columns("A:I").Select
ActiveSheet.PasteApplication.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
0