Laatste bezoek

[Newguyontheblock]

Goedendag allemaal,

Ik heb een vraag waar ik zelf niet uit kom.

Wij werken elke dag met een registratie lijst. (en een database welke op een ander tabblad staat).
Dit werkt allemaal met VLOOKUP.

Nu wil ik een extra kolom er bij maken waar in staat wanneer een bezoeker zijn naam voor het laatst is voorgekomen in de database.
Het lukt me alleen niet omdat we aan het eind van de dag de registratielijsten leeg maken voor de volgende dag.

Heeft iemand hier de oplossing?

Gr. Newy

 

[SjonR]

Welkom Newy,

zou je een voorbeeldbestandje kunnen plaatsten?

Dank en groet,

SjonR

 

[cow18]

als je alles leegmaakt op het einde van de dag, tja, dan ga je het nooit weten.
Dus je zal op zijn minst een historiek moeten bijhouden van ofwel alle bezoeken ofwel van alle bezoekers + laatste date.

 

[Newguyontheblock]

Welkom Newy,

zou je een voorbeeldbestandje kunnen plaatsten?

Dank en groet,

SjonR

Heb ik nu erbij gezet

 

[Newguyontheblock]

als je alles leegmaakt op het einde van de dag, tja, dan ga je het nooit weten.
Dus je zal op zijn minst een historiek moeten bijhouden van ofwel alle bezoeken ofwel van alle bezoekers + laatste date.

Daar was ik al bang voor inderdaad.

 

[JanBG]

Hoi,

Je voorbeeld bestandje is beveiligd; dat maakt het wat lastig om te bekijken

 

[OctaFish]

@newguy: blijf alsjeblieft van de QUOTE knop af; dat is GEEN antwoord knop. Ik snap dat je er, als beginner, niet van af kan blijven maar doe het niet. Kijk eens op je scherm, en zoek het tekstvak <Snel reageren> op hetzelfde scherm, en probeer dáár eens wat in te typen. En bedenk dan bij jezelf hoe makkelijk dat is .

 

[Newguyontheblock]

Het bestand

Dit is het bestand

 

[JEC.]

En wat is dan de bedoeling in dit bestand?

 

[Newguyontheblock]

database

Er worden elke dagen namen ingevuld.

Ik zou graag willen dat in de database via een formule of vba word bijgehouden wanneer het laatste bezoek is geweest

 

[JEC.]

En waar staan de datums om naar te verwijzen?
Het beste is om even een aantal gewenste uitkomsten in je vb bestand te zetten.

 

[Newguyontheblock]

Zo denk ik wel duidelijk

Zoiets?

 

[JEC.]

Zorg ervoor dat er geen lege kolommen in je bereik zitten van tabblad 1. Dan werkt de macro niet meer.
Ik heb nu even a'tjes in kolom E gezet. Op tabblad 2 staan de andere gegevens, waaruit de laatste datum wordt gezocht.

 

[JEC.]

Of voor je andere bestand

Sub j_v2()
With Sheets("Database Algemeen")
 Set ar = Sheets("Bezoekers").Cells(1).CurrentRegion
 jv = .Range("A6", .Cells(Rows.Count, 3).End(xlUp))
  For i = 1 To UBound(jv)
    c00 = Application.Match(jv(i, 1), ar.Columns(2), 0)
    If IsNumeric(c00) Then jv(i, 3) = Date
  Next
 .Range("A6", .Cells(Rows.Count, 3).End(xlUp)) = jv
End With
End Sub

 

[HSV]

Onvolledige regel zo.

jv = Sheets("Database Algemeen").Range("A6", Cells(Rows.Count, 3).End(xlUp))

 

[JEC.]

Ik zie het idd! Foutje bedankt

 

[puppie]

TS geeft deze melding via de knop attendeer moderator:

De gebruiker gaf de volgende reden:
Als ik dit bestand wil openen krijg ik een Trojan:O97M/Sadoca.C!ml melding

 

[HSV]

Geen idee naar welk blad het geschreven moet worden.

Ik heb het me zo maar voorgesteld.
Inschrijven op blad "Bezoekers" en wegschrijven naar het ander blad.
De ingeschrevenen komen onderaan de lijst waarbij duplicaten van kolom A en B weer worden verwijderd.