LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8
Default Multiple Offsets

A Lifesaver, that's what you are. Thanks.
--
Jon M.


"OssieMac" wrote:

Hi again Jon,

Having another look at the code I am not sure you need the following line.
If Target.Count 1 Then Exit Sub

Also because the offset is the same for each Case you can code it like the
following.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub

If IsEmpty(Target.Value) Or _
Len(Target) < 11 Then Exit Sub

Select Case Target.Row
Case 11, 23, 35, 47
Target.Offset(-10, 2).Select
End Select
End Sub

--
Regards,

OssieMac


 
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
offsets (I think) Stan Excel Discussion (Misc queries) 4 January 31st 10 04:48 PM
Countif & Offsets Yuanhang Excel Discussion (Misc queries) 1 February 15th 08 09:16 PM
offsets - using ranges Theo Excel Programming 3 January 25th 08 05:40 PM
Named range using offsets Spike Excel Programming 2 July 17th 06 12:45 PM
average, array and offsets Darin1979 Excel Worksheet Functions 0 November 17th 04 04:21 PM


All times are GMT +1. The time now is 02:39 AM.

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"