Macro Copiar y pegar en otro archivo
Mi problema es este agradecería su ayuda : tengo 2 hojas en una al hacer doble clic en la celda selecciona todos los datos de la fila donde se encuentra la celda copia y abre otro archivo y necesito pegar los datos como texto a partir de la celda especificada (A80) para este caso
mi problema esta en que me envía error en la instrucción Range("A80"). Select , ya probe con active y tampoco, estoy perdido
de antemano gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
sensCelda = "m3:m175"
If Not Intersect(Target, Range(sensCelda)) Is Nothing Then
ActiveCell().Select
Selection.EntireRow.Copy
Workbooks.Open Filename:="C:\CRM\solicitud viaticos.xlsm"
Selection.Insert Shift:=xlDown
Range("A80").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("h6").Select
End If
End Sub
mi problema esta en que me envía error en la instrucción Range("A80"). Select , ya probe con active y tampoco, estoy perdido
de antemano gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
sensCelda = "m3:m175"
If Not Intersect(Target, Range(sensCelda)) Is Nothing Then
ActiveCell().Select
Selection.EntireRow.Copy
Workbooks.Open Filename:="C:\CRM\solicitud viaticos.xlsm"
Selection.Insert Shift:=xlDown
Range("A80").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("h6").Select
End If
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1
La línea que falla es la del Insert.
Imagino que querrás insertar una fila a partir de la 80 para guardar siempre lo nuevo por encima. Entonces cambiá el orden de las líneas:
ActiveSheet.Range("A80").Select
Selection.Insert Shift:=xlDown
Cuando se abre un libro es conveniente asegurarse la selección de la hoja, si el libro contiene + de 1. Por ahora quedó ActiveSheet
Imagino que querrás insertar una fila a partir de la 80 para guardar siempre lo nuevo por encima. Entonces cambiá el orden de las líneas:
ActiveSheet.Range("A80").Select
Selection.Insert Shift:=xlDown
Cuando se abre un libro es conveniente asegurarse la selección de la hoja, si el libro contiene + de 1. Por ahora quedó ActiveSheet
