Perhaps you are right on that, but I based my original response on the OP's
opening statement...

"I am using the following code to paste
the value of the given selected cell"

--
Rick (MVP - Excel)


"Dave Peterson" wrote in message
...
Maybe to allow the formats to migrate?

Maybe because the value is currency or a date? (use .value2 instead).



Rick Rothstein wrote:

Since the OP just wants to copy a single value for each iteration of the
loop, why not skip copy/paste and just assign it directly...

With ThisWorkbook
.Worksheets("Sheet2").Range("F" & myrow).Value = _
Worksheets("Sheet1").Cells(2 + i, 11).Value
End With

-
Rick (MVP - Excel)

"Dave Peterson" wrote in message
...
First, column J is the 10th column.

Second, you can use .pastespecial, but even simpler is to just
copy|paste.

with thisworkbook
.worksheets("sheet1").cells(2+i,11).copy _
destination:=.worksheets("sheet2").range("f" & myrow)
end with

Although, I like to be consistent:

with thisworkbook
.worksheets("sheet1").cells(2+i,11).copy _
destination:=.worksheets("sheet2").cells(myrow, "f")
end with


Karti wrote:

Hi,
I am using the following code to paste the value of the given selected
cell
to another sheet with the following VBA function. I have used a
function
to
get the row number for the given criteria in column "J".

For i = 0 To 5
If Cells(2 + i, 11) = 1 Then
myrow = Sheets("Sheet1").Cells(2 + i, 12).value
'MsgBox myrow
ThisWorkbook.Sheets("Sheet1").Cells(2 + i, 11).Copy
ThisWorkbook.Sheets("Sheet2").Range("f" & myrow).Paste
End If
Next i

While execution I am getting the following error.
Run time method '438':
Object doesn't support this property or method.

Please let me know where I am doing wrong.

--

Dave Peterson

--

Dave Peterson