Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Waarde links van geselecteerde cel weergeven

  1. #1
    Vraag is opgelost

    Waarde links van geselecteerde cel weergeven

    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Dan krijg je zoiets:
    Code:
            Range("BC3") = Target.Value
            Range("AQ3").Value = Cells(Target.Row, 35).Value
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Zoef zoef.....

    Dat is snel en werkt ook nog eens perfect

    OctaFish… Bedankt

    Rob

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren