Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 74
Default Active cell is to jump from one cell to another when conditions are met

I have a register that when an entry is made in column B but there is
no entry in column C, the active cell will jump from B to C. Other
columns exist and will require their own sets of conditions. The
problem I have is in the need for a simple formula that will allow for
as many as 1,660 rows. The following shows what I've attempted
without success. Can you offer a solution? Thanks.

If Range("B10:B1660").Value 0 And Range("C10:C1660").Value = ""
Then
With Me
Application.GoTo Range("C10:C1660"), Scroll:=False
End With
End If

A separate issue would be when all the entries in a row have been
entered, the active cell will jump to the next row awaiting it's
initial entry, however, my first problem is far more pressing.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 143
Default Active cell is to jump from one cell to another when conditionsare met

On Jan 20, 10:44*am, Michael Lanier wrote:
I have a register that when an entry is made in column B but there is
no entry in column C, the active cell will jump from B to C. *Other
columns exist and will require their own sets of conditions. *The
problem I have is in the need for a simple formula that will allow for
as many as 1,660 rows. *The following shows what I've attempted
without success. *Can you offer a solution? *Thanks.

* * If Range("B10:B1660").Value 0 And Range("C10:C1660").Value = ""
Then
* * * * With Me
* * * * * * Application.GoTo Range("C10:C1660"), Scroll:=False
* * * * End With
* * End If

A separate issue would be when all the entries in a row have been
entered, the active cell will jump to the next row awaiting it's
initial entry, however, my first problem is far more pressing.


Try this tiny event macro:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As Range, B As Range
Set t = Target
Set B = Range("B10:B1660")
If Intersect(t, B) Is Nothing Then Exit Sub
If t.Offset(0, 1) < "" Then Exit Sub
t.Offset(0, 1).Select
End Sub


Because it is worksheet code, it is very easy to install and automatic
to use:

1. right-click the tab name near the bottom of the Excel window
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you have any concerns, first try it on a trial worksheet.

If you save the workbook, the macro will be saved with it.


To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (worksheet code), see:

http://www.mvps.org/dmcritchie/excel/event.htm
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 74
Default Active cell is to jump from one cell to another when conditionsare met

James,

With great anticipation I look forward to trying this one. Thanks so
very much for your help.

Michael
Reply
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
Active cell jumps when conditions are met on a single row but I needan expanded macro that will do the same on multiple rows Michael Lanier Excel Programming 0 April 19th 10 05:57 PM
Jump to Yahoo Mail with Active Cell Contents, and then perform asearch in the Search Mail Box Mike C[_5_] Excel Programming 0 March 15th 09 12:23 AM
Jump to cell based on cell results created by calendar control too JB Excel Discussion (Misc queries) 3 January 15th 08 08:18 PM
jump to active cell in other sheet . mongkolkorn Excel Discussion (Misc queries) 12 June 19th 07 07:30 PM
How do I double click a cell and jump to cell's referenced cell JerryJuice Excel Discussion (Misc queries) 2 September 10th 05 10:24 PM


All times are GMT +1. The time now is 06:57 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"