verjaardagen selecteren

[pasan]

bij jou stond de offset op 1 pas aan naar 3 dan werkt het weer

Private Sub CommandButton1_Click()
Dim c As Range
With ListBox1
If .ListIndex <> -1 And TextBox1.Value <> vbNullString Then
Set c = Columns(1).Find(.List(.ListIndex, 0), , xlValues, xlWhole)
 
  c.Offset(, 3) = c.Offset(, 3).Value + CLng(TextBox1.Value)
  ListBox1.List = Sheets("klant overzicht").Range(Range("A2"), Range("A2").End(xlDown)).Resize(, 2).Value
  MsgBox "De punten zijn bijgeschreven."
 Else
    MsgBox "U heeft:" & vbLf & vbLf & "geen klant geselecteerd," & vbLf & "      Of      " & vbLf & "geen punten gegeven.", vbCritical, "Foutje"
  End If
 TextBox1 = vbNullString
 .ListIndex = -1
 End With
End Sub

 

[jong.braster]

Hallo Pasan,
Werkt zoals je zegt, dank je.

Echter heb ik één ding over het hoofd gezien, dat is:
wanneer je op de knop drukt opent Userform1.
In het formulier zie je in het veld bij de klantnamen 2 kolommen.
De eerste kolom geeft de klantnaam weer en de tweede kolom het emailadres.

Verzoek:
Is het mogelijk dat hij in de tweede kolom het aantal punten weergeeft uit "Klant overzicht" kolom E (punten nog te goed).

ps. was in een eerdere versie wel goed maar door mijn geklooi gaat dit nu fout, sorry.

 

[pasan]

zo?

 

[jong.braster]

Hallo Pasan,
Het voorbeeld werkt uitstekend, dank je.

Maar wat is het verschil met de vorige?
Het lukt mij niet om deze oplossing van jou in het originele document te krijgen.

 

[pasan]

vergelijk alle code van het gehele workbook met jou origineel Alle code.......
pas aan waar het anders is

 

[jong.braster]

Hallo Pasan,

Ondanks jouw mooie oplossingen kom ik er niet uit.
Wil je a.u.b. voor mij kijken wat ik niet goed doe.
Je laatste oplossing ging over het plaatsen van kooppunten. In het invoerscherm staat nu "klantnaam""en "emailadres" DIT IS FOUT.
In je oplossing staat er "klantnaam" en "aantal kooppunten" DAT IS GOED.


Bijgevoegd heb ik een voorbeeld bestaande uit 2 bladen:

blad 1 is is het voorblad, heeft de functie van "overall cijfers' en "verjaardagen" en een knop naar "klant overzicht" WERKT GOED

blad 2 heeft 4 knoppen:
knop 1 (CommandButton2) = terug naar voorblad (WERKT GOED)

knop 2 (CommandButton1) = kooppunten registreren, de functie van deze knop werkt niet goed, in jouw vorige oplossing werkt hij wel maar niet in mijn document. Wanneer je op de knop klikt komt er een window. Wanneer je een klantnaam invoert moet hij het aantal punten weergeven en niet het emailadres.

knop 3 (CommandButton4) = cursor op eerste lege regel zetten om klantnaam in te voeren (WERKT GOED)
knop 4 (CommandButton3) = na nieuw ingevoerde klanten kunnen ze alfabetisch gezet worden. (WERKT GOED)

Ik hoop dat je me wil helpen.

 

[pasan]

Ben nu niet thuis ik zal later vanavond wel reageren

 

[pasan]

bij deze

 

[jong.braster]

Hallo Pasan,

Jouw document ziet er perfect uit en werkt goed. Bedankt.
Ik heb zowel de programmacode van het "voorblad" als het "klant overzicht" gekopieerd naar het originele document.

Maar het werkt niet. Als ik op de knop "kooppunten" klikt gaat het "Userform1" open maar daar staan geen gegevens in de velden, het formulier is helemaal leeg.

Waarom weet ik niet, ik heb alles geprobeerd. Ben vandaag denk ik wel 3 uur bezig geweest en nu ook weer.
Ik zie niet waarom het niet werkt in het originele document.

Heb je nog een suggestie?

 

[jong.braster]

Hallo Pasan,
Ik ben vanmorgen direct weer gaan onderzoeken wat de oorzaak kan zijn.

Ik heb geconstateerd dat in jouw document het volgende gebeurd:
open blad "klant overzicht"
open "programmacode weergeven"
ga naar "uitvoeren"
kies voor "sub/userform uitvoeren"
dan verschijnt Userform1, ingevuld met de juiste velden.

Wanneer je deze handelingen uitvoert in mijn document dan verschijnt er geen Userform1 maar een window waarin alle macro's staan. Dit is erg vreemd.
Misschien kan je iets met deze informatie.

 

[jong.braster]

Hallo Pasan,

Ik heb het probleem even omgekeerd.
Ik heb jouw goede document weer opgebouwd met de onderdelen uit mijn document (het origineel).
Nu werkt alles goed. GELUKKIG.

Ben nog wel nieuwsgierig wat er met mijn (het originele) document fout gaat.

 

[pasan]

jou laatste voorbeeld bestand die je geplaatst hebt daar stond code die voor het userform bedoeld was achter het werkblad ........ Dus ik denk dat je mijn voorbeeld code niet op de goede plek zet in de vba editor

 

[pasan]

En als je nieuwe code plaatst kun je deze via rechter muisknop op de button macro toevoegen deze code aan de knop hangen

 

[jong.braster]

Hallo Pasan,
Bedankt vooral je goede suggesties, ik ben er lekker mee bezig.

Nog wel een uitdaging:
Wanneer ik het blad "klant gegevens" beveiligd werkt de VBA code om de jarigen op het voorblad te zetten niet meer. Kan dit voorkomen worden?

Ik wil het blad "klant gegevens" beveiligen om te voorkomen dat de gebruiker gegevens in kolom E zet. In deze cellen staat een formule en de cellen worden automatisch gevuld.

Ik krijg de foutmelding:
Private Sub Worksheet_Activate()
Dim it As Range
Dim jarig As Date

Range("E3:H20000").ClearContents
For Each it In Sheets("klant overzicht").Columns(3).SpecialCells(xlConstants)
If IsDate(it) Then jarig = DateSerial(Year(Date), Month(it), Day(it))

If DateDiff("d", Date, jarig) >= -3 And DateDiff("d", Date, jarig) <= 7 Then
Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Resize(, 3) = Sheets("klant overzicht").Cells(it.Row, 1).Resize(, 3).Value
End If

Next

For Each it In Columns(7).SpecialCells(xlConstants)
Cells(it.Row, 8) = DateSerial(Year(Date), Month(it), Day(it))
Next

Range("E3:H" & Cells(Rows.Count, 5).End(xlUp).Row).Sort [H3]
Columns(8).ClearContents
End Sub

 

[pasan]

gebruik code tags

Private Sub Worksheet_Activate()
Dim it As Range
Dim jarig As Date
Worksheets("voorblad").Unprotect Password:="Jouwachtwoord"
Range("E3:H20000").ClearContents
For Each it In Sheets("klant overzicht").Columns(3).SpecialCells(xlConstants)
( de rest van jou code)
Worksheets("voorblad").Protect Password:="Jouwachtwoord"
End Sub

 

[jong.braster]

Pasan het werkt perfect, bedankt.

 

[pasan]

graag gedaan