MsgBox met de matchende cell value van de cell rechts ernaast

[nikr]

Goedeavond,

Ik heb deze code van internet en naar mijn smaak aangepast.
Ik wil alleen meer dan dit en kom er niet uit omdat ik alleen kopieer/plak VBA skills heb.

Nu wordt er gezocht naar naar een matchende datum, en als er een match is krijg ik een popup te zien met wat ik aangeef in de MsgBox.
Ik wil heel graag de matchende datum weergeven in de popup en ook de cell ernaast.
Van alles heb ik geprobeerd, maar ik heb eigenlijk geen idee wat ik aan het doen ben en hoop maar op het beste

Alvast bedankt!

Nick

 Sub MsgBoxTest4()

Dim r As Long
Dim answer As Integer


For r = 2 To 20 'in rij 2 tot 20 wordt gezocht


If Range("A1").Value = Range("A" & r).Value Then 'Als Datum uit A1 zelfde is als Datum uit range AA dan laat hij popup zien

answer = MsgBox("Hier wil ik de cell value van de cell rechts ernaast")

If answer = vbNo Then



Else


End If
End If
Next r


End Sub

Bekijk bijlage BelangrijkeDingenPopUp.xlsm

 

[Haije]

dat zal zoiets zijn:

gezochte_waarde= Range("A" & r).offset(,1).Value
answer = MsgBox gezochte_waarde

 

[snb]

Sub M_snb()
  sn=range("A1:B20")

  For j = 2 To 20 
    If sn(1,1)=sn(j,1) then exit for
  next    

  MsgBox sn(j,2)
End Sub

 

[nikr]

Goud!!! Het werkt!

Wat Haije aangeeft werkt! Echt bedankt ervoor.

snb -> je code werkt zo niet. Als er een match is dan exit sub. Maar ik heb m een beetje aangepast

 Sub M_snb()
  
  
  sn = Range("A1:B20")

  For j = 2 To 20
    If sn(1, 1) = sn(j, 1) Then
    MsgBox sn(j, 2)
    
    End If
     Next
     
End Sub

Echt heel mooi om te zien dat hetzelfde resultaat zo compact kan! Dankjewel, hier krijg ik een glimlach van!!

 

[snb]

Kijk eens naar de aangepaste code....

 

[nikr]

Ja die doet het!! Hartstikke bedankt!