hi
can some one check this code i need to copy only value but the following code copy formula which i don't need. i only need value to be copy paste
also i need to modify to check value in column "A" in the "T_Mth" sh. if value in column find than do nothing else copy data from "summary" sh to "M_Th" sh.
thanks for you time it's appreciated.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wss As Worksheet
Dim wst As Worksheet
Set wss = ThisWorkbook.Worksheets("Summary")
Set wst = ThisWorkbook.Worksheets("T_Mth")
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$7" Then GoTo n1 'Exit Sub
If MsgBox("Send Data to All Data Sheet?", vbYesNo) = vbYes Then
Cancel = True
Range(Cells(Target.Row, "A"), Cells(Target.Row, "N")).Copy _
Sheets("T_Mth").Range("a3").Offset(0, 0) '.PasteSpecial.Offset(0, 0) 'xlValues ' & Rows.Count).End(xlUp).Offset(1, 0)
End If
n1:
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$8" Then Exit Sub
If MsgBox("Send Data to All Data Sheet?", vbYesNo) = vbYes Then
Cancel = True
Range(Cells(Target.Row, "A"), Cells(Target.Row, "M")).Copy _
Sheets("T_Mth").Rows("10:15").EntireRow.Insert
ThisWorkbook.Worksheets("T_Mth").Activate
End If
Application.CutCopyMode = False
End Sub
Bookmarks