other then that it's only macro's left
from a post of Tom Ogilvy
--------------------------
Select the cell or cells in the first firstdatasheet and then run the macro.
Sub CopyValueofSelection()
for each cell in Selection
worksheets("seconddatashee
Cell.Value
Next
End sub
another approach
Sub CopyAreas()
for each ar in Selection.Areas
ar.copy
Worksheets("Seconddatashee
Worksheets("Seconddatashee
Next
End sub
If you want to write a function that you can put in a cell in the
seconddatasheet, you really don't need to. You can just reference the
firstdatasheet
=firstdatasheet!A1
But if there is some reason you do want a function:
Public Function DupData()
Dim sStr As String
Dim vVar As Variant
Application.Volatile
sStr = Application.Caller.Address
vVar = Worksheets("FirstDataSheet
If UCase(Application.Caller.P
<> UCase("SecondDataSheet") Then
DupData = "Wrong Sheet"
Else
DupData = vVar
End If
End Function
Post back with an expanded description of your needs if this doesn't answer the question.
--------------------------
HAGD:O)Bruintje
Main Topics
Browse All Topics
by: bruintjePosted on 2002-12-06 at 00:26:25ID: 7541059
Hello Agehya,
maybe you could try
-copy
-instead of paste
-choose edit | paste special | check the values box
HAGD:O)Bruintje