Hej!
Det kanske finns flera sätt att göra detta men så här hade jag gjort:
1) Skapa en variabel i arket för information som skall innehålla namnet på det ark som användaren kom från.
2) Skapa i varje annat ark en metod som meddelar informationsarket om sitt namn när användaren byter till informationsarket.
Nedan finns kod för detta. Informationsarket är Blad3. Notera att jag använder mig av BeforeDoubleClick för att testa det hela. Det är ingen bra metod, men du har väl någon knapp eller så som du kan koppla koden till.
*** Kod för 1 "Informationsarket": ***
Private m_sCallerName As String
Public Sub RememberCaller(sCallerName As String)
m_sCallerName = sCallerName
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ThisWorkbook.Sheets(m_sCallerName).Select
End Sub
*** Kod för 2: Övriga ark ***
Private Sub Worksheet_Deactivate()
If ActiveSheet.Name = "Blad3" Then * Gick vi till informationsarket?
Call ActiveSheet.RememberCaller("Blad1") ' eller Blad2 eller vad det nu är...
End If
End Sub
Mvh
Kihlman