Place the following in the ThisWorkbook window
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
Dim CopyRng As Range
Dim PasteRng As Range
Application.ScreenUpdating = False
Set CopyRng = Sheets("Sheet1").Range("D10:D13")
Set PasteRng = Sheets("Sheet2").Range("A12")
CopyRng.Copy
If PasteRng.Value = "" Then
PasteRng.PasteSpecial , , , Transpose:=True
Else:
Sheets("Sheet2").Range("A65536").End(xlUp).Offset( 1, 0). _
PasteSpecial , , , Transpose:=True
End If
CopyRng.ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
The only problem I see with this is that everytime you right-click, for
anything at all and in any sheet, it will paste the information again. I
personally don't know how to fix that using the beforesheetrightclick event.
I would instead have a button for the user to click to enter the information
on the next sheet. If you want to do that, just copy the code to a module
and give it a different name (i.e. bound it with Sub copy() end Sub)
hope that helps
"redhat" wrote:
Dear all,
I need help in transfering some cells value from one sheet to another.
For example:
In sheet1, I will put data in cells [D10-D13] and values from these 4
cells will be transfered in row #12 like A12=D10; B12=D11;
C12=D13;D12=D14 of sheet2.
That means A12=100;B12=234;C12=456;D12=446 IN SHEET2.
I am writing these codes in right_click function so after putting all
the values user will right click to ensure that all values are given
and then I will write those values in sheet2.
Then, in Sheet2 the row # will be incremented to 13 and so on. The
input cells in SHEET1 will be the same that is D10,D11,D12,D13.
Hope I made myself clear.
Thanks in advance.
Sheet1
Sheet2
C D
A B C D
10 1 100 After right click--row#12 100 234
456 446
11 2 234
12 3 456
13 4 446
--
redhat
------------------------------------------------------------------------
redhat's Profile: http://www.excelforum.com/member.php...o&userid=29301
View this thread: http://www.excelforum.com/showthread...hreadid=490172