Inhoud pop up venster bepalen door celinhoud

[molfi]

Hallo

Is het mogelijk om de inhoud van een pop up venster te bepalen door de celinhoud?
In het tabblad "punten" kolom F zou ik de criteria willen tonen in een pop up venster afhankelijk van de bewerking(boren, frezen, zagen...)
Deze criteria worden uit het tabblad "Criteria gehaald" uit de juiste kolom.
Het pop up venster verschijnt reeds bij klikken in kolom F.

Alvast bedankt voor de hulp

 

[HSV]

Geen idee wat de bedoeling is.

Gokje dus.

MsgBox [COLOR=#ff0000]Target[/COLOR], vbInformation, "Evaluatiecriteria"

 

[molfi]

Beste HSV

De pop up venster verschijnt al bij het klikken in kolom F. Ik vroeg mij af of het mogelijk is om de inhoud van het pop up venster aan te passen afhankelijk van de inhoud van de cel in kolom F.
VB. indien in cel F10 boren aanklikt, komen de evaluatiecriteria van boren in het pop up venster. Deze criteria kunnen gehaald worden uit het tabblad "criteria" in de kolom van boren.
Hopelijk is dit een beetje duidelijk
Misschien bestaat er zoiets als vertikaal zoeken waarmee ik de inhoud kan bepalen van een pop up venster??

 

[HSV]

Zoiets dus.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("F10:F100")) Is Nothing Then
         With Sheets("Criteria")
          c = Application.Match(Target, .Rows(1), 0)
           If IsNumeric(c) Then _
MsgBox Join(Application.Transpose(.Cells(3, c).CurrentRegion.Columns(c)), vbLf), vbInformation, "Evaluatiecriteria"
         End With
   End If
End Sub

 

[molfi]

Zoiets dus.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("F10:F100")) Is Nothing Then
         With Sheets("Criteria")
          c = Application.Match(Target, .Rows(1), 0)
           If IsNumeric(c) Then _
MsgBox Join(Application.Transpose(.Cells(3, c).CurrentRegion.Columns(c)), vbLf), vbInformation, "Evaluatiecriteria"
         End With
   End If
End Sub

Top, fantastisch! Nu kan ik mijn document verder uitbreiden.

Bedankt!