Gegevens opvragen dmv soort msgbox

[perry99]

Hallo,

Hoop dat iemand mij met het volgende kan helpen, kom er zelf niet uit.

Het navolgende zou ik graag willen:
Als ik in kolom J b.v. de cel J17 (157340) 2x druk op sheet main een message in het scherm krijg met de volgende gegevens welke vermeld staan in sheet adressen.
1 = Debiteurnummer 157340
2= Naam
3= Adres
4= Postcode
5= Plaats
6= Netnummer telefoon 7=telefoonnr zonder netnr (kan soms lang zijn daar vaak achter 7 ook een mobielnr staat) b.v. 1234567-0612345678

Hoop echt dat iemand mij hiermee kan helpen.

Alvast bedankt.

Heb een bestandje bijgevoegd.

Perry

 

[Ginger]

Perry99, Ik heb een codeblokje voor je geschreven waarmee je met een 'dubbelklik' op het debiteurennummer in de sheet Main een messagebox krijgt met daarin al je gevraagde velden. Plaats de code in de module van de sheet Main!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sAdres          As String

    If Target.Column <> 10 Then Exit Sub 'in foute kolom gedubbelklikt...
    
    On Error Resume Next
    
    sAdres = Sheets("ADRESSEN").Columns(1).Find(What:=Target, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
        
    If sAdres = "" Then 'het nummer is niet gevonden!
        MsgBox "Geen match gevonden...", vbOKOnly, "Mismatch"
        Exit Sub
    End If
    
    On Error GoTo 0
    
    With Sheets("ADRESSEN").Range(sAdres)
        MsgBox "Gevonden gegevens bij debiteurnummer: " & .Offset(, 0).Value & Chr(13) & _
            "Naam           = " & .Offset(, 3).Value & Chr(13) & _
            "Adres          =  " & .Offset(, 4).Value & Chr(13) & _
            "Postcode     =  " & .Offset(, 5).Value & Chr(13) & _
            "Plaats         =  " & .Offset(, 6).Value & Chr(13) & _
            "Netnr          =  " & .Offset(, 7).Value & Chr(13) & _
            "Telnr           =  " & .Offset(, 8).Value, _
            vbOKOnly, "Zoekresultaat..."
    End With

End Sub

Dit is een opzetje (getest) met een msgbox. Je zou het zelf natuurlijk nog mooier kunnen maken met een userform en textboxen. Maar dat plezier van bouwen gun ik jou zelf.

Groet, Leo

 

[perry99]

Hallo Ginger,

Het werkt fantastisch, je bent een kanjer.
Geldt voor meerdere personen op deze forum.

Ginger kan je de telnr ook naast netnr op het scherm krijgen.

Alvast super bedankt.

Perry :thumb: :thumb: :thumb: :thumb: :thumb:

 

[Ginger]

Perry99,

je bent een kanjer

Dank!

Geldt voor meerdere personen op deze forum

BEN IK HELEMAAL MET JE EENS! :thumb:

telnr ook naast netnr

Tuurlijk... Vervwijder het & Chr(13) uit de regel

           "Netnr          =  " & .Offset(, 7).Value & Chr(13) & _

Let op! Niet meer, niet minder!!!

Groet, Leo

 

[Ginger]

En nu ik er over nadenk... Is dit wellicht nog mooier

            "Telefoon          =  " & .Offset(, 7).Value  & " " & .Offset(, 8).Value, _

In plaats van de regels...

            "Netnr          =  " & .Offset(, 7).Value & Chr(13) & _
            "Telnr           =  " & .Offset(, 8).Value, _

Groet, Leo

 

[perry99]

Ginger,

Werkt super, mijn dank is groot.

Perry :thumb: :thumb: :thumb: :thumb: