Link naar een ander tabblad
Bas
Uit het onderstaande kom ik niet uit.
In Blad 1 in cel A1 moet een bepaalde waarde worden ingevoerd wat voldoet
aan een bepaald getal.
Als deze juiste waarde is ingevoerd moet er een link worden geopend naar een
ander werkblad Blad 2 in cel B2 met de betreffende waarde ui cel A1 van Blad
1.
Is dit mogelijk? en zoja hoe?
Alvast bedankt
Bas
Jean-Paul Rijnsburger
deze code in de programmacode van het werkblad (rechtermuis
op bladtab, programmacode weergeven)
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "bepaalde waarde" Then
Sheets("blad2").Range("a1").Select
Sheets("blad2").Range("a1").Value =
Sheets("blad1").Range("a1").Value
End If
End Sub
succes verder
Jean-Paul
>-----Oorspronkelijk bericht-----
>.
>
Bas
"Jean-Paul Rijnsburger" schreef:
Jean-Paul
Allereerst hartelijk bedankt voor je reactie.
Ik heb het onderstaande uitgevoerd zoals jij aangaf alleen stuit ik dan op
het volgende:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "15" Then
Sheets("blad2").Range("a1").Select
Sheets("blad2").Range("a1").Value = 15
Sheets("blad1").Range("a1").Value
End If
End Sub
Als ik voor de "bepaalde waarde" op blad 1 in cel 1 het getal 15 definieerd
en dit zelfde getal in cel 1 op blad 2 wil hebben
geeft hij de volgende fout:
Methode select van klasse range is mislukt.
Foutopsporing geeft deze regel aan: Sheets("blad2").Range("a1").Select
(Hij wil nog niet echt linken naar aanleiding van het getal 15)
Weet jij of iemand anders nog een oplossing hiervoor?
emil
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").value = 15 Then
Sheets("blad2").Range("a1").Value = 15
End If
End Sub
--
groet, emil
<getest met office2000>
"Bas" <B...@discussions.microsoft.com> schreef in bericht
news:04DC0854-EC02-44C9...@microsoft.com...
Bas
Is het ook mogelijk dat na het invoeren van de waarde 15 op blad 1
automatische blad 2 wordt geopend?
Groet,
Bas
"emil" schreef:
emil
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("blad2")
.Range("a1").Value = 15
.Activate
End With
End If
End Sub
nu zit er een adder onder het gras................
die mag je eerst zelf ontdekken. ;-)
--
groet, emil
<getest met office2000>
"Bas" <B...@discussions.microsoft.com> schreef in bericht
news:F263308D-C804-4BC7...@microsoft.com...
Bas
Het werkt perfekt!
Nu ga ik nog 1 stapje verder.
Is het ook mogelijk om in plaats van 1 waarde een bereik te maken.
bv. een bereik gedefinieerd van 1t/m 25.
Bij invullen van een getal uit dit bereik, bijv 21 dat je dan automatische
wordt doorgelinkt naar tabblad 21 cel A1. enz.
Vul je dan 26 in dan moet je een foutmelding krijgen!
Ik weet het ik ben veeleisend maar in excel kan alles toch?
Alvast heel erg bedankt.
Gr.
Bas
"emil" schreef:
emil
aangezien ik er vanuit ben gegaan dat alle tabbladen met dezelfde naam
oplopend genummerd zijn heb ik deze code samengesteld.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BladNaam As String
If Not Intersect(Target, Range("a1")) Is Nothing And _
IsNumeric(Target.Value) Then
'niet verder dan blad 26
If Target.Value >= 26 Then GoTo MagNie
BladNaam = ActiveSheet.Name
Do Until Not IsNumeric(Right(BladNaam, 1))
BladNaam = Left(BladNaam, Len(BladNaam) - 1)
Loop
BladNaam = BladNaam & Target.Value
On Error GoTo GaNieDoor
With Sheets(BladNaam)
.Select
.Range("a1").Select
End With
End If
Exit Sub
GaNieDoor:
MsgBox UCase(BladNaam) & " is er nie", vbExclamation
Exit Sub
MagNie:
MsgBox "Dit blad mag nie", vbCritical
Exit Sub
End Sub
hoeveel stapjes ga je hierna nog door? ;-)
--
groet, emil
<getest met office2000>
"Bas" <B...@discussions.microsoft.com> schreef in bericht
news:C21A9CAC-2F55-4E26...@microsoft.com...
Bas
Het werk als een trein.
Nog 1 laatste stapje dan, voor het mooi!
Als ik een willekeurig getal bijv 20 invoer, word ik netjes naar blad 20
gelinkt en is cel A1 geselekteerd.
Is het mogelijk om dan de ingevoerde waarde, 20 in dit geval ook weer te
geven in cel A1 blad 20?
In ieder geval Hartelijk bedankt voor de moeite!
Het werk als een trein.
Groet,
Bas
"emil" schreef:
emil
.Range("a1").value=target.value
invoegen tussen:
.Range("a1").Select
en
End With
--
groet, emil
<getest met office2000>
"Bas" <B...@discussions.microsoft.com> schreef in bericht
news:4E4A901D-FCAC-461D...@microsoft.com...