Problema con codigo en modulo excel
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 instruccion 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 instruccion 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 edwinhenao
1
Moises así me funcionó...
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As 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"
Rows("80:80").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("h6").Select
End If
End Sub
No olvides califcar para cerrar la pregunta.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As 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"
Rows("80:80").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("h6").Select
End If
End Sub
No olvides califcar para cerrar la pregunta.
