gegevens uit ander bestand halen en in userform zetten

[bjornesto]

Ik heb 2 bestanden

1ste bestand (book 5) waarin je op die cijfers (Sheet1-->111 of 112) moet klikken en er dan een userform tevoorschijn komt (haalt momenteel daar de data uit sheet 2)
2de bestand (book 2) waar hij de data zou vandaan moeten halen. (is voor op een plan)

Bedoeling is dat ze op die nummer klikken en er meer informatie tevoorschijn komt (dus er mag niets veranderen op de userform zelf).

Hoe kan je dat het beste oplossen met vba?

Bekijk bijlage Book5.xlsm
Bekijk bijlage Book2.xlsx

 

[Warme bakkertje]

Aanpassingen in beide bestanden.
Vereiste : beide bestanden in dezelfde directory

 

[bjornesto]

Dit werkt perfect

Vele malen dank

 

[bjornesto]

Warme bakker

Ik heb nu pas ondervonden dat mijn zoekbutton niet meer werkt aangezien jij die in labels gezet bij book 5 de nummers en ik heb deze op mijn bestand in shapes ("oval") gezet

Hoe moet ik dan mijn code aanpassen voor mijn zoekbutton?

Private Sub CommandButton1_Click()
Dim Findwhat As String, tb As Shape, a
Findwhat = InputBox("Find what?")
On Error Resume Next
 If Findwhat = "" Then Exit Sub
  For Each tb In ActiveSheet.Shapes
 If tb.AutoShapeType = msoShapeOval Then
    If InStr(1, tb.TextFrame.Characters.Text, Findwhat) > 0 Then
         With tb.TextFrame.Characters(Start:=l, Length:=Len(Findwhat)).Font
         .Name = "Arial"
         .Size = 10
         .Underline = xlUnderlineStyleSingle
         .Bold = True
         End With
         tb.Fill.ForeColor.RGB = RGB(255, 244, 0)
       End If
      End If
    Next
End Sub

 

[Warme bakkertje]

Ik zou niet weten waarom deze code niet meer werkt ?
Ik vind er niets van terug in je voorbeeldbestand en aan de labels heb ik niets gewijzigd.

 

[bjornesto]

Warme bakker

Ik moet mij excuseren tegenover u.

Ik ben de schuldige geweest

Kan je wat je gedaan hebt voor die labels ook toepassen op shapes?
heb de knoppen er aan toegevoegd nu.

Die in het rood zijn, zijn oval shapes
Die met zwarte tekst is met label.

Bekijk bijlage Book5.xlsmBekijk bijlage Book2.xlsx

 

[Warme bakkertje]

Rechtsklik op de shape, selecteer macro toewijzen en wijs de overeenkomstige macro toe.

Sub Oval_6_Click()
     Door_Specs ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

Sub Oval_7_Click()
     Door_Specs ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

 

[bjornesto]

Dank u wel werkt perfect