Rij markeren bij dezelfde waarde zoekcel

Status
Niet open voor verdere reacties.
M

Marthy Mc Fly

Gebruiker
Lid geworden
14 okt 2010
Berichten
117
Beste Experts,

Ik ben op zoek naar een methode om rij in tabel te markeren en zichtbaar te maken.
Ik heb een tabel met heel wat info. Daarom geeft ik in cel A2 de id nr in waarbij ik dan in cel B2 meteen de link krijg die ik nodig heb.
Maar ik zou ook graag de volledige info, die behoord tot die id nr die ingegeven wordt in cel A2, in de tabel willen zien dmv van ze te markeren
zonder dat ik door de ganse tabel moet scrollen.
 
Dat je nog geen reactie hebt gekregen zal zijn omdat je geen voorbeeld document hebt geplaatst.
 
Moest hiervoor zeer veel gevoelinge data verwijderen.
Dus als ik in cel A2 een ID nr in geeft dan krijg ik in cell B2 een link naar de site. Deze komt uit de tabel er onder.
Er staan in deze tabel meer dan 1000 id nrs. De specifieke rij markeren lukt wel met voorwaardelijke opmaak.
Maar ik wil dat deze ook meteen zichtbaar is in de tabel en niet dat ik eindeloos moet scrollen voordat ik alle info
krijg over de id nr.
 

Bijlagen

  • Test.xlsx
    76,2 KB · Weergaven: 12
In cel B2:
=VERT.ZOEKEN(A2;Tabel2[[ID]:[Text1]];2;ONWAAR)

In bovenstaande formule staat de "Link" in kolom 2.
Scrollen naar de gevonden regel zal met een macro moeten, maar je kunt natuurlijk ook in C2, D2 etc. van VERT.ZOEKEN gebruik maken, dus:

In C2:
=VERT.ZOEKEN($A2;Tabel2[[ID]:[Tex2]];3;ONWAAR)

In D2:
=VERT.ZOEKEN($A2;Tabel2[[ID]:[Tekst3]];4;ONWAAR)

N.B. De kopteksten in regel 5 zijn ietwat verschillend: Text1, Tex2, Tekst3 etc.
 
Laatst bewerkt:
AHulpje zei:
In cel B2:
=VERT.ZOEKEN(A2;Tabel2[[ID]:[Text1]];2;ONWAAR)

In bovenstaande formule staat de "Link" in kolom 2.
Scrollen naar de gevonden regel zal met een macro moeten, maar je kunt natuurlijk ook in C2, D2 etc. van VERT.ZOEKEN gebruik maken, dus:

In C2:
=VERT.ZOEKEN($A2;Tabel2[[ID]:[Tex2]];3;ONWAAR)

In D2:
=VERT.ZOEKEN($A2;Tabel2[[ID]:[Tekst3]];4;ONWAAR)

N.B. De kopteksten in regel 5 zijn ietwat verschillend: Text1, Tex2, Tekst3 etc.
Klik om te vergroten...

Hallo AHulpje,

Het was net de macro waar ik naar op zoek was wan ik wil niet echt nog meer dan cel A2 en B2
 
Gelieve niet te quoten, immers de inhoud van jouw quote staat volledig in post 4. Heeft dus geen enkele zin.

"Het was net de macro waar ik naar op zoek was wan ik wil niet echt nog meer dan cel A2 en B2." Klopt die zin?
 
Mijn excuses voor de quote

Het was net de macro waar ik naar op zoek was want ik wil geen extra cellen met vert. Zoeken.
Anders geformuleerd en hoop dat het nu wel duidelijk is.
 
Met macro, zie bijlage.
 

Bijlagen

  • Test.xlsm
    92 KB · Weergaven: 12
Select en Selection zijn 99,9% overbodige instrumenten in VBA
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address(0, 0) = "A2" Then
     Set c = ListObjects(1).DataBodyRange.Columns(1).Find(Target, , , xlWhole)
       Application.Goto IIf(Not c Is Nothing, c, Target), True
     Application.Goto Target
  End If
End Sub
 
Laatst bewerkt:
@HSV

Maar waarom werkt mijn oplossing wel en die van jou niet (althans bij mij met Microsoft Office Professional Plus 2016)?
 
Geen idee waarom het bij jou niet werkt.

Deze simpele code werkt ook in Office 2007.
Misschien dat je onderstaande even even uit elkaar moet trekken.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)[COLOR=#ff0000]Dim c As Range[/COLOR]
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

Gebeurt wel vaker op dit forum.
 
Laatst bewerkt:
Die Dim had ik uiteraard al naar de volgende regel verhuisd.

Ik probeer hier van te leren, als ik er onderstaande van maak dan werkt het bij mij ook. Enig idee?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Target.Address(0, 0) = "A2" Then
        Set c = ListObjects(1).DataBodyRange.Columns(1).Find(Target, , , xlWhole)
        Application.Goto IIf(Not c Is Nothing, c, Target), True
[COLOR=#008000]        'Application.Goto Target[/COLOR]
        Application.Goto Cells(Target.Row, Target.Column)
    End If
End Sub
 
Vreemd dat 'Target' het hier wel doet dan.
Code: 
Application.Goto IIf(Not c Is Nothing, c, [COLOR=#ff0000]Target[/COLOR]), True
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan