Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a cell, it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

Add Value

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h).value _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer).value


"Bob" wrote:

Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a cell, it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

Joel,
Thanks for the help. Unfortunately, after I modified the code per your
suggestion, I now get a "Compile error" message.
Bob


"Joel" wrote:

Add Value

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h).value _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer).value


"Bob" wrote:

Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a cell, it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

Hello Bob

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h).Copy

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer).PasteSpecial (xlPasteValues)

HTH
Cordially
Pascal

"Bob" a écrit dans le message de news:
...
Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a cell,
it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

Pascal,
That did the trick! Thanks!
Bob


"papou" wrote:

Hello Bob

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h).Copy

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer).PasteSpecial (xlPasteValues)

HTH
Cordially
Pascal

"Bob" a écrit dans le message de news:
...
Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a cell,
it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

My pleasure!

Cordially
Pascal

"Bob" a écrit dans le message de news:
...
Pascal,
That did the trick! Thanks!
Bob


"papou" wrote:

Hello Bob

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h).Copy

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer).PasteSpecial (xlPasteValues)

HTH
Cordially
Pascal

"Bob" a écrit dans le message de news:
...
Con someone kindly tell me how to modify the line of code below so that
instead of copying the contents, formatting, validation, etc. of a
cell,
it
simply copies the cell's value?

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPoint er, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.