Userform beginnersvraag

[TonJis]

Hallo,

Probeer een userform werkend te krijgen, maar ben nog een echte beginner. Hoe krijg ik de gegevens die ik invoer, op de juiste plek?
Het userform heb ik al kunnen maken, alleen het doet niks. Ik zal dan wel ergens codes moeten wegschrijven, maar weet niet waar en hoe.
Misschien wil iemand zo vriendelijk zijn om bijgevoegd bestandje even aan te passen en te beschrijven hoe je dit doet.
Mijn bedoeling is om even op weg te worden geholpen, zodat ik ook zelf leer hier mee te werken.

M.vr.gr Ton

 

[snb]

Stond hier al voor je klaar.

 

[wieter]

Ik heb het even werkend gemaakt
In de VB-code achter de UserForm zie je hoe het moet

 

[TonJis]

Beiden en in het bijzonder Wieter, hartelijke dank.
Het duurde even voordat ik doorhad dat je in het VBAproject de VB-codes kunt benaderen door op de onderdelen in het userform te dubbelklikken.
Kan nu aan de slag.

Nogmaals dank, Ton

 

[wieter]

Voor textbox1(datum) moet het format nog naar dd.mm.jjjj aangepast worden.
Anderen zullen je hierbij moeten helpen (echtgenote voormiddag opgenomen in ziekenhuis) , heb nu wel wat anders te doen

 

[TonJis]

Wieter, dank voor je snelle reactie.
Sterkte met je vrouw en haar snelle beterschap toegewenst.

M.vr.gr. Ton

 

[wieter]

Ik heb de datumformat aangepast, zodat de datum niet weergegeven wordt als mm/dd/yyyy (USA), maar als dd/mm/yyyy (Europa)

Als Ton dit bestandje nu meermaals gaat gebruiken, gaat hij uiteindelijk een ellenlange lijst van verrichtingen krijgen.
Daarom heb ik in This Workbook een code gezet die bij openen van het bestand, de rijen ouder dan 31 dagen(maand) wist.

Private Sub Workbook_Open()
Dim i As Integer
  With Sheets("Blad1")
    For i = .Range("G1").CurrentRegion.Rows.Count To 4 Step -1
        If Date - (.Cells(i, "G")) > 31 Then Rows(i).Delete
    Next
  End With
End Sub

Die code werkt echter niet.
Ik zie de fout niet, misschien willen de specialisten even bijspringen?

 

[wieter]

@ Ton,
Heb je bestand wat aangepast.
Het datumprobleem is nu opgelost mm/dd/yyyy(USA) is nu dd/mm/yyyy(Europa)
Om te voorkomen dat je na enkele maanden een onoverzichtelijke, lange lijst met gegevens gaat krijgen,
heb ik in VBA achter This Workbook een code gezet, die de verlopen datums (ouder dan 31 dagen)verwijdert.
Dit gebeurt telkens als je het bestand opent.

Private Sub Workbook_Open()
With Sheets("Blad1")
Application.ScreenUpdating = False
For i = Range("G65500").End(xlUp).Row To 4 Step -1
If Cells(i, 7) < (Date - [COLOR="#FF0000"]31[/COLOR]) Then Rows(i).EntireRow.Delete
Next
End With
End Sub

Indien je nu de gegevens langer dan 31 dagen wil bewaren, verander je in de code 'de rode 31' in 60 of 90 of ...
Als je wenst dat er helemaal niets verwijderd wordt, delete je de hele code achter This Workbook.

Door het verwijderen van verlopen datums, gaat ook je startknop verdwijnen.
Daarom heb ik een titelblokkage ingevoerd en de startknop boven deze blokkage gezet.

 

[TonJis]

Wieter, bedankt voor de tijd en de moeite die je eraan heb willen spenderen.
Jouw inputs hebben me lekker op weg geholpen (zie bijlage). E.e.a. is bedoeld voor de penningmeesteres van onze dartsvereniging.
Er zijn nog een paar dingen, zoals de blauwe balk van de userform voorzien van eigen tekst en een melding als een tekstvak niet is ingevuld, die ik nog even moet uitzoeken.
Maar met de zoekfunctie op dit forum kom ik daar vast wel uit.

Groeten, Ton

 

[wieter]

Hallo Ton,
Ik heb het voor je verwerkt.
In een balk staat :"Registratie kasboek" en in de andere :"Registratie bankboek"
Dit kan je veranderen:
Ga naar VBA, dubbelklik op UserForm1.
Als die verschijnt klik 'links' ergens op de Userforn(niet op de tekstvakken of de knoppen) en selecteer eigenschappen.
Bij 'caption' kan je dan mijn tekst veranderen in uw voorkeur.
Daarna doe je dit ook met Uform2

In de VBA achter de knoppen heb ik ook de waarschuwingen bijgevoegd, ook hier kan je uw eigen melding zetten i.p.v. de mijne.

Gezien je met versie 2010 werkt is het eenvoudig mogelijk, als een boekjaar voorbij is, om het bestand op te slaan op je PC als een PDF-bestand, automatisch het bestand leeg te maken en een nieuw boekjaar te beginnen.

ps. Bij verderen vragen kan ik pas na 20u antwoorden moet naar het ziekenhuis.

 

[TonJis]

Wieter, perfect. Heb hier een hoop van opgestoken.
U bent een perfecte leermeester. Met deze manier van uitleg gegeven ga ik, denk ik, werken met Excel heel leuk vinden.
Hopelijk kan uw vrouw binnenkort weer gezond naar huis.
Ik laat dit bericht nog even tot morgen staan en zal het dan op opgelost zetten.

Ton

 

[wieter]

Graag gedaan.

Je moet mijn inbreng echter niet overroepen, want eigenlijk ken ik niets van VBA, in vergelijking met de experten hier op het forum.
VBA is niet iets wat je zomaar even aanleert (zonder cursus gaat het eigenlijk niet).
Een minimum kan je leren, door zeer lang, de codes van anderen te bestuderen en te leren begrijpen.
Dan met vallen en opstaan, steeds maar blijven testen met eenvoudige codes, en deze steeds maar bijven uitbreiden.
Bedankt voor de herstelwensen aan mijn vrouw.

Groeten