• 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.

Waarde links van geselecteerde cel weergeven

Status
Niet open voor verdere reacties.

Severijns

Gebruiker
Lid geworden
6 jul 2018
Berichten
139
Geachte forumleden,

In bijgevoegd bestand gebruik ik een stukje VBA code (waar ik het vandaan heb weet ik zo gauw niet) om de waarde van een geselecteerde cel (in een specifiek bereik) te tonen in een andere cel (BC3)

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.ScreenUpdating = False
    
    Dim sv
    If Not Intersect(Target, Range("BE8:BH1007")) Is Nothing Then
        sv = Split(Target, "/")
        If UBound(sv) > 0 Then
    Else
        Range("BC3").ClearContents
    End If
        Range("BC3") = Target.Value
    End If
End Sub

Nu zoek ik een mogelijkheid om naast de geselecteerde waarde welke getoond word in cel BC3 eveneens de corresponderende waarde, op dezelfde rij, uit kolom AI te tonen in cel AQ3
M.a.w. wanneer ik de waarde B7 selecteer (Cel BF14) zou in cel AQ3 de waarde 7 (Cel AI7) moeten komen te staan. enz enz.

Gemakshalve heb ik een aantal kolommen verborgen zodat het wat overzichtelijker wordt.


Bij voorbaat dank,

Rob
 

Bijlagen

  • Voorbeeld.xlsm
    244 KB · Weergaven: 19
Dan krijg je zoiets:
Code:
        Range("BC3") = Target.Value
        Range("AQ3").Value = Cells(Target.Row, 35).Value
 
Zoef zoef.....

Dat is snel en werkt ook nog eens perfect :D

OctaFish… Bedankt :thumb:

Rob
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan