LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 1
Default code is not to work on sheet1


Hello to all.

If possible could someone help here.
This workbook is a bookin sheet for guests.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)

' VB TO COPY CONTENTS FROM LAST SHEET TO THIS ONE
If ActiveCell.Row < 11 Then Exit Sub
If ActiveCell.Row 64 Then Exit Sub
If ActiveCell.Column 1 Then Exit Sub
ActiveSheet.Unprotect
Sheets(ActiveSheet.Index - 1).Rows(ActiveCell.Row).Copy

ActiveSheet.Paste

end sub

As you can see here, this bit of code copies the row from previous
sheet over the active sheet. This also works even when i am on sheet1,
however there should be nothing to copy. Is it possible for the this
code to look at what sheet it is on and if sheet1 then not execute.

Many thanks Allan


--
Allan R Jeffery
------------------------------------------------------------------------
Allan R Jeffery's Profile: http://www.excelforum.com/member.php...o&userid=37860
View this thread: http://www.excelforum.com/showthread...hreadid=574108

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Could someone HELP TRANSLATE this simple psuedo code into MACRO please?! bxc2739 Excel Discussion (Misc queries) 3 April 27th 06 06:53 PM
Can someone help me put psuedo code into actual excel macro?? bxc2739 Excel Discussion (Misc queries) 1 April 22nd 06 02:58 PM
t-distribution puzzle in Excel [email protected] Excel Discussion (Misc queries) 8 November 11th 05 10:27 AM
Macro for changing text to Proper Case JPriest Excel Worksheet Functions 3 August 8th 05 09:31 PM
Using other workbooks.. DavidMunday Excel Worksheet Functions 2 July 1st 05 07:35 AM


All times are GMT +1. The time now is 05:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"