Naar waarde op een ander werkblad zoeken en dan deze waarde selecteren

[Severijns]

Geachte forumleden,

Zie bijgevoegd bestand.

Wanneer ik in het werkblad Art. nr en Loc. nr een cel selecteer in de kolom Art. Nr (Range B8:B525) dan wil ik, middels het indrukken van de Commandbutton, naar het overeenkomstige werkblad Art. Nr toe gaan en dan in de kolom Bijzonderheden naast de cel met de overeenkomstige waarde gaan staan.
Dus al ik de waarde 469002 selecteer in het werkblad Art. nr en Loc. nr wil ik na het drukken op de Commandbutton naar het tabblad Art. Nr toegaan en dan in de kolom Bijzonderheden naast de cel et de overeenkomstige waarde gaan staan.
Hetzelfde wil k bereiken voor een geselecteerde cel in de kolom Loc. Nr maar dan natuurlijk naar het werkblad Loc. Nr toe gaan.
Kan iemand mij verder helpen.

Met vriendelijk groet,

Rob

 

[VenA]

Zonder foutcontrole

Private Sub CommandButton1_Click()
  Application.Goto Sheets(ActiveCell.Column).Cells(Application.Match(ActiveCell.Value, Sheets(ActiveCell.Column).Columns(2), 0), 3)
End Sub

 

[Severijns]

Dat is snel.
Werkt perfect.:thumb:

Bedankt.

Rob

 

[Severijns]

Excuses maar ik heb toch noch een aanvullende vraag.

Ik heb kolommen aan de tabel toegevoegd maar nu werkt de code niet meer.
Ik krijg nu een melding dat het Subscript buiten het bereik valt.
Wel getracht wat te sleutelen aan de code maar het lukt me nog niet.
Wat gaat er mis?

Rob

 

[VenA]

Is toch een kwestie van logisch nadenken?

Welke waarde denk je dat dit dit krijgt?

ActiveCell.Column

Op welk blad kom je hier uit?

Sheets(ActiveCell.Column)

Probeer het zo maar eens.

Private Sub CommandButton1_Click()
  With ActiveCell
    If .Column < 5 And .Column Mod 2 = 0 Then
      t = Application.Match(.Value, Sheets(.Column / 2 + 1).Columns(2), 0)
      If Not IsError(t) Then Application.Goto Sheets(.Column / 2 + 1).Cells(t, 3)
    End If
  End With
End Sub

 

[Severijns]

VenA,

Nogmaals bedankt.
Ik ga er morgen mee aan de slag.

Rob

 

[Severijns]

Voor een ander mogelijke oplossing zie ook:

https://www.helpmij.nl/forum/showthread.php/945159-Bij-dubbelklik-naar-geselecteerde-waarde-op-een-ander-werkblad

Met vriendelijke groet,

Rob