Copiar Solo valores de una hoja a otra
Hola estoy tratando de copiar datos de una hoja a otra.
Funciona casi bien, solo que el único problema es que al pasar los datos solo copia las fórmulas.
Este es el código que tengo en el macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila1 As Integer
Dim rgo As Range
datos1 = "a1"
If Not Application.Intersect(Target, Range(datos1)) Is Nothing Then
Range("a14:l14").Select
fila1 = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila1, 1)
End If
End Sub
¿Qué podría hacer para solucionar esto?
Funciona casi bien, solo que el único problema es que al pasar los datos solo copia las fórmulas.
Este es el código que tengo en el macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila1 As Integer
Dim rgo As Range
datos1 = "a1"
If Not Application.Intersect(Target, Range(datos1)) Is Nothing Then
Range("a14:l14").Select
fila1 = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila1, 1)
End If
End Sub
¿Qué podría hacer para solucionar esto?
1 respuesta
Respuesta de jerryeagle
1