OnKey and Range Question

[jayy]

Is it possible to take a range from one worksheet and place it in
another in the same spreadsheet (without copying and pasting)?

For example something similar to this:

-----
Sub test()
Dim rng As Range
Set rng = Worksheets(1).Range("A1", "C4")

Worksheets(2).Range("B1", "D4") = rng
End Sub
-----

I was also wondering how to make 'onKey' work for both Mac and PC.
I've got code running on my Mac in a Personal Macro Workbook as so
(which uses the keystroke Command-Option-Shift-j):

-----
Sub Auto_Open()
Application.OnKey "+%*j", "test"
End Sub
-----

I haven't tested it on a PC but was wondering what the best approach
was if I still want to use the 'Command' button on a Mac. I'm using
Mac OS 10.3 and 10.4 with Excel 98 and Excel 2004.

Thanks.

Jay

 

[Tom Ogilvy]

Sub test()
Dim rng As Range
Set rng = Worksheets(1).Range("A1", "C4")
Worksheets(2).Range("B1", "D4").Value = rng.Value
End Sub

worked for me.


You would need to use an IF statement and write the appropriate sendkey
combination based on the operating system

? application.OperatingSystem
Windows (32-bit) 4.10


from help on OperatingSystem property:
Returns the name and version number of the current operating system ¾ for
example, "Windows (32-bit) 4.00" or "Macintosh 7.00". Read-only String.

 

[jayy]

Hi Tom,

Thanks so much for your fast reply! This is exactly what I wa
needing! Thanks again for taking the time to help.

Ja