• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

namen in sheets aan elkaar linken

Status
Niet open voor verdere reacties.

Brenda01

Nieuwe gebruiker
Lid geworden
22 mrt 2020
Berichten
2
Hallo,

Ik ben voor mijn werk bezig om een overzicht te maken van veterinaire behandelingen bij bepaalde dieren. Nu wil ik dit in Excel doen en zit met het volgende probleem:

Ik heb 1 sheet met daarin de namen van alle dieren en hun individuele gegevens (mannelijk\vrouwelijk, leeftijd etc)
Op sheet 2 staat het naam van een dier met èèn van de behandelingen die gedaan is. Dus de namen van de dieren kunnen meerdere keren voorkomen, omdat ze meerdere behandelingen hebben gedaan.

Nu wil ik het mogelijk maken dat als je in een sheet een naam aanklikt deze meteen alle gegevens laat zien van de andere sheet. Ik heb overal gezocht maar kan niet zien of en hoe ik dit kan doen.

Wie kan me helpen? Alvast bedankt!


Toevoeging:
Hieronder 2 (zeer eenvoudige) voorbeelden van de 2 sheets.

Naamloos.jpgnaamloos 2.jpg
 
Laatst bewerkt:
"Wie kan me helpen?" Veel helpers hier denk ik.

Begin eens met een Excel-voorbeeldje te plaatsen.
 
Ik zal een voorbeeld maken. Vanwege geheimhouding (privacy) kan ik niet het echte bestand laten zien.
 
In een plaatje is het moeilijk formules invoeren of testen.

Graag een kort representatief Excel-bestandje. Geef daarin ook (handmatig) voor een aantal cellen aan wat je als uitkomst verwacht (plus: waarom...).
 
Laatst bewerkt:
Met een macro in de module van het blad 'Animal'. Dubbelklik in kolom A op het 'refnr'.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 And Target.Row > 3 And Target.Value <> "" Then
    Sheets("treatment").Cells(1).CurrentRegion.AutoFilter 1, Target.Value
    Application.Goto Sheets("treatment").Cells(1)
  End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan