Copiar - Pegar valores en codigo

27/04/2009 - 23:38 por faico | Informe spam
Hola Grupo,

Hace tiempo que no escribía...

Tengo el siguiente código que copia y pega una serie de celdas de un
documento a otro pero lo que necesitaría es que copie y pegue VALORES
unicamente

Sabe alguien como cambier el codigo?

Sub Botón3_AlHacerClic()
Dim strArchivo As String
Dim oLibro As Workbook
strArchivo = "E:\Lugar\del\documento\Clientes_2008.xls"
If Dir(strArchivo) = "" Then
MsgBox "No existe el archivo en la ruta indicada."
Exit Sub
End If
Application.ScreenUpdating = False
On Error Resume Next
Set oLibro = Workbooks(Dir(strArchivo))
On Error GoTo 0
If oLibro Is Nothing Then Set oLibro = Workbooks.Open(strArchivo)
oLibro.Worksheets("HOJA1").Range("A2:A39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("D7")
oLibro.Worksheets("HOJA1").Range("B2:B39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("E7")
oLibro.Worksheets("HOJA1").Range("B2:B39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("F7")
oLibro.Worksheets("HOJA1").Range("C2:D39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("G7")
oLibro.Worksheets("HOJA1").Range("F2:J39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("I7")
oLibro.Worksheets("HOJA1").Range("M2:O39").Copy _
Workbooks("Reporting WorldWide.xls").Worksheets("BD").Range
("N7")
oLibro.Close False
Set oLibro = Nothing
Application.ScreenUpdating = True
End Sub

Muchas gracias!
Hasta pronto
 

Preguntas similares