Auto return to sheet 1
 

I have the following macro in 130 sheet codes, what I am looking for is when
an entry is put into cells D7:D500 recognised as the the last entry I input
when I hit enter and data is input I need to bring up sheet 1 which is named
Index of Stock. Can anyone help me on this??

Here is the code.

Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A500")) Is Nothing Then Target.Value = Date
End Sub


Many thanks

Auto return to sheet 1
 

Simply use Sheets("Index of Stock").Activate
at the end of the code in your Worksheet_SelectionChange.

Terielad;244822 Wrote:
I have the following macro in 130 sheet codes, what I am looking for is
when
an entry is put into cells D7:D500 recognised as the the last entry I
input
when I hit enter and data is input I need to bring up sheet 1 which is
named
Index of Stock. Can anyone help me on this??

Here is the code.


Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A500")) Is Nothing Then Target.Value
= Date
End Sub


Many thanks


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=68280

Auto return to sheet 1
 

Can you please explain how I would insert this into my code at the moment,
please dispaly an example, as I need the date macro to remain.

Regards

"Simon Lloyd" wrote:


Simply use Sheets("Index of Stock").Activate
at the end of the code in your Worksheet_SelectionChange.

Terielad;244822 Wrote:
I have the following macro in 130 sheet codes, what I am looking for is
when
an entry is put into cells D7:D500 recognised as the the last entry I
input
when I hit enter and data is input I need to bring up sheet 1 which is
named
Index of Stock. Can anyone help me on this??

Here is the code.


Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A500")) Is Nothing Then Target.Value
= Date
End Sub


Many thanks


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=68280

Auto return to sheet 1
 

Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon
Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1)
View this thread: 'Auto return to sheet 1 - The Code Cage Forums'
(http://www.thecodecage.com/forumz/sh...ad.php?t=68280)



--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=68280

Auto return to sheet 1
 

On Feb 24, 2:10*pm, Terielad
wrote:
I have the following macro in 130 sheet codes, what I am looking for is when
an entry is put into cells D7:D500 recognised as the the last entry I input
when I hit enter and data is input I need to bring up sheet 1 which is named
Index of Stock. *Can anyone help me on this??

Here is the code.

Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A500")) Is Nothing Then Target.Value = Date
End Sub

Many thanks

Did you know about the WorkBook Module?
Then you would have just entered the code once...

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

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

End Sub

Auto return to sheet 1
 

This is not doing what I require, I revised my code and whatever cell I
select it returns to the index of stock, yes this is what I require but only
on cells D7:D500 and after I input initials.

Any other ideas??

Regards

"Simon Lloyd" wrote:


Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon
Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1)
View this thread: 'Auto return to sheet 1 - The Code Cage Forums'
(http://www.thecodecage.com/forumz/sh...ad.php?t=68280)



--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=68280