I have the following macro in 130 sheet codes, what I am looking for is when
an entry is put into cells D7500 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

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 D7500 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
>
>

On Feb 24, 2:10*pm, Terielad <teri...@discussions.microsoft.com>
wrote:
> I have the following macro in 130 sheet codes, what I am looking for is when
> an entry is put into cells D7500 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

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 D7500 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
>
>