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(Sheet1EmpTypeRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2EmpTypeColPointer)

Thanks in advance for the help.

Add Value

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPointer, 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(Sheet1EmpTypeRowPointer, h). _
> Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
> Sheet2EmpTypeColPointer)
>
> Thanks in advance for the help.
>

Hello Bob

Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPointer, h).Copy

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

HTH
Cordially
Pascal

"Bob" <(E-Mail Removed)> a écrit dans le message de news:
4091AC29-C580-45A8-AC0C-(E-Mail Removed)...
> 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(Sheet1EmpTypeRowPointer, 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(Sheet1EmpTypeRowPointer, 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(Sheet1EmpTypeRowPointer, 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(Sheet1EmpTypeRowPointer, h).Copy
>
> Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
> Sheet2EmpTypeColPointer).PasteSpecial (xlPasteValues)
>
> HTH
> Cordially
> Pascal
>
> "Bob" <(E-Mail Removed)> a écrit dans le message de news:
> 4091AC29-C580-45A8-AC0C-(E-Mail Removed)...
> > 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(Sheet1EmpTypeRowPointer, h). _
> > Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
> > Sheet2EmpTypeColPointer)
> >
> > Thanks in advance for the help.
> >
>
>
>

My pleasure!

Cordially
Pascal

"Bob" <(E-Mail Removed)> a écrit dans le message de news:
22502232-C711-444D-BD76-(E-Mail Removed)...
> Pascal,
> That did the trick! Thanks!
> Bob
>
>
> "papou" wrote:
>
>> Hello Bob
>>
>> Worksheets(Sheet1Name).Cells(Sheet1EmpTypeRowPointer, h).Copy
>>
>> Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
>> Sheet2EmpTypeColPointer).PasteSpecial (xlPasteValues)
>>
>> HTH
>> Cordially
>> Pascal
>>
>> "Bob" <(E-Mail Removed)> a écrit dans le message de news:
>> 4091AC29-C580-45A8-AC0C-(E-Mail Removed)...
>> > 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(Sheet1EmpTypeRowPointer, h). _
>> > Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
>> > Sheet2EmpTypeColPointer)
>> >
>> > Thanks in advance for the help.
>> >
>>
>>
>>