Auteur Topic: Bestand voor genealogie (gelezen 43884 keer)

Genealoog100 · « **Reactie #15 Gepost op:** 15 april 2024, 14:12:03 »

SoftAid

Zou het niet kunnen zijn dat je in de toekenning worksheet de verkeerde benaming gebruikt?
ale toch als je het 2de bestandje (Genalogie3) gebruikt

groeten
Marcel

SoftAid · « **Reactie #16 Gepost op:** 15 april 2024, 14:17:16 »

Hallo Marcel,

Ik meen dat de worksheet BSGOVL juist staat vermeld,

Code: [Selecteer]

Dim sh As Worksheet
       Set sh = ThisWorkbook.Sheets("BS_H_OVL")

EDIT: Ha, nu zie ik het, je hebt de Underscores verwijderd....., dat mag je aanpassen in de code.
Maar ik had getest op V2, met Underscores. en de foutmelding zit op de Me.T & x

SoftAid

Genealoog100 · « **Reactie #17 Gepost op:** 15 april 2024, 14:28:23 »

Allen,

@ Andy: U zal begrijpen dat ik hier geen mening over ga uitspreken zonder meer. Misschien kunnen jullie het even uitpraten om zo tot een goede verstandhouding te komen met alle leden. Je lijkt me een verstandige kerel dus loet zeker lukken.
Indien anders... ( wat jammer zou zijn) Toch bedankt voor het meedenken.

Wat de formulieren betreft je zou kunnen gelijk hebben als je de forms aanpast en daar de nodige mogelijkheden ingeeft om weg te schrijven.
BS = Burgerlijke stand
PK = Parochiale Klapper
G = Geboorte
H = Huwelijk
O = Overlijden
Zoals u dus kan zien zijn er nogal wat om dit in 1 form te gaan neerzetten.
Ach wat is nu al gereduceerd

naar 2 forms

So stick around and see the result at the end

@ SoftAid : de sheets zijn nu zonder onderliggende streepjes ( alle letters aan elkaar)
vandaar de vraag of er de mogelijkheid zou zijn dat de gegevens worden weggeschreven met de data uit de gegeven cellen.

En ik denk ook dat ME.T niet is benoemd

groeten
Marcel
nu pas op he met mijn bekrompen kennis kan ik enkel gissen naar de juistheid van mijn uitspraak

Della Jordan · « **Reactie #18 Gepost op:** 15 april 2024, 15:30:09 »

Citaat

he met mijn bekrompen kennis

zo bekropen vind ik je kennis niet.
Ik heb bijna een voorbeeld klaar, ben nog wat aan het prullen om een foto in te voegen.

Genealoog100 · « **Reactie #19 Gepost op:** 15 april 2024, 15:48:00 »

@Della Jordan

is nog bekrompen hoor als ik hier alles zie ...
Maar he ... ne mens heeft tijd en zin, dus ...

We doen rustig verder

Della Jordan · « **Reactie #20 Gepost op:** 15 april 2024, 18:50:31 »

Hoi Marcel
Ik heb één voorbeeldje gemaakt namelijk je formulier [FrmBSGOVL]
Ik denk dat ik daarmee al je vragen heb beantwoord.
Let op ik maak gebruik van een tabel en een gedefinieerd naambereik (dat kan je terugvinden onder de Tab Formules, Namen beheren)
Gezien jij pensionado bent en dit een leuk tijdverdrijf vindt kan je uit mijn voorbeeldformulier inspiratie halen voor de rest van je formulieren.
In bijlage vind je een zipbestand met je excel file en een paar foto's ter illustratie (eerst uitpakken)
Hoe werkt het, vul je gegevens in, klik in de gele lijst om een foto toe te voegen en druk op Save.
Wil je iets wijzigen, kies eerst een naam in de groene lijst en verander je gegevens, wil je de foto veranderen, kies een andere foto in de gele lijst en druk daarna op Wijzigen.
Wil je een naam verwijderen, kies eerst een naam in de groene lijst en klik op delete.
Om een naam te zoeken, typ een letter in het zoekvenster(of meerdere om de zoekopdracht te verfijnen), selecteer daarna de gewenste naam om te wijzigen of te verwijderen.
Voor de foto's kan je in dit voorbeeld alleen JPG's gebruiken.
Ik heb een grapje ingebouwd, klik maar eens op oplossing in de groene lijst.
Ik persoonlijk vind niets verkeerd aan het aantal formulieren, alleen zou ik in één formulier Tabs gebruiken net zoals in een browser.
Heb je nog vragen just shoot.

SoftAid · « **Reactie #21 Gepost op:** 15 april 2024, 19:18:25 »

Della, ziet er heel goed uit $\o/$

SoftAid

De appel valt wel snel van de boom Oeps

Della Jordan · « **Reactie #22 Gepost op:** 15 april 2024, 19:56:59 »

Citaat

De appel valt wel snel van de boom Oeps

Klopt, door wat foto's te verwijderen klopte de naam van appel niet meer. (verkeerde foto gewist

)
Bij deze nieuw voorbeeld

SoftAid · « **Reactie #23 Gepost op:** 15 april 2024, 20:01:55 »

Je bent geweldig (met appels) $\o/$

hopelijk spreekt het Marcel ook aan, maar ik ben er vrij zeker van....

Nog een fijne avond.

SoftAid

Della Jordan · « **Reactie #24 Gepost op:** 15 april 2024, 20:18:45 »

Citaat

Nog een fijne avond.

Voor jou hetzelfde.

Genealoog100 · « **Reactie #25 Gepost op:** 15 april 2024, 22:19:36 »

Goedenavond Heren,

Met enige nederigheid buig ik het hoofd voor jullie.
$_/-\o_$ $_/-\o_$ $_/-\o_$ $_/-\o_$ $_/-\o_$ $_/-\o_$

Hoe fijn is deze oplossing....
ik had eigenlijk in het tweede ontwerp ook de listbox willen opnemen maar dacht van hé Marcel laat maar zo. Het is nu al een een marathon boven je petje!

En kijk ... de listboxEN dan nog wel, zijn er !!

alleen ga ik nu wel studie hebben om de code's allemaal te ontleden en PROBEREN te zien om deze te gebruiken in de andere bladen.
Dat belooft $:-\$ $:-\$

Niet boos zijn als ik hier met hangende pootjes en tail between the legs terug kom dat het om zeep is.
hehehehehehe

Neen neen alle gekheid op een stokje ... is al een SUPER begin en met een grote dankbaarheid voor jullie inzet.

Ik laat nog zeker iets van me horen

Tot later

PS bij enige twist met de vrouw stuur ik deze naar oplossing.be, zal weer nachtactiviteit worden nu.
Groeten
Marcel

Genealoog100 · « **Reactie #26 Gepost op:** 15 april 2024, 22:42:52 »

Ben hier al terug....

@Della Jordan : Het kan niet om met dit formulier de leuze te laten maken in welke sheet het dient te worden weggeschreven naar de behorende sheet. dit dmv de data in de cellen T1, T2, T3 ( van deze cellen een Array te maken)
T1 "BS", "PK"
T2 "G","H","O"
T3 Hier alle provincies van ons absurdistan/corruptiestan landje "OVL","WVL","ANT",LIM',"VBR","WBR","LIE","NAM","HAI",LUX"

Waarbij dan de gebruikte data refereert naar de sheet. ( remember BSGOVL)

Ik hoor het graag wat je van deze vraag denkt.

Della Jordan · « **Reactie #27 Gepost op:** 16 april 2024, 11:03:17 »

Is geen enkel probleem om zoiets te maken.
Je moet wel wat geduld hebben, ik heb een voltijdse baan en moet alles tussendoor doen.

SoftAid · « **Reactie #28 Gepost op:** 16 april 2024, 15:38:37 »

Hallo Marcel,

zelfs hier "In den Limburg" valt uw zweet met druppels uit de lucht...

Intermezzo: ik heb die formule nog eens bekeken, die ene die ik niet goed kreeg.

Een beetje zoekwerk heeft mij de juiste schrijfwijze getoont:

Code: [Selecteer]

Private Sub cmbSave_Click()        
   
   Dim sh As Worksheet
       Set sh = ThisWorkbook.Sheets("Blad1")
           Dim rij As Long, x As Long
                rij = sh.Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
        For x = 1 To 10
          sh.Cells(rij, x).Value = Me.Controls("T" & x)           'het addertje onder het gras was "Controls" toevoegen 
        Next
 End Sub

Ik heb het in een bestandje gestoken, dan kan je er wat mee spelen (als je al niet véééél verder bent dan dit simpel ding)

Ik wilde dit eerst even oplossen, en dan ga ik eens kijken of ik al een deel van de puzzel kan oplossen (jou vorige vraag).

Groeten,

SoftAid

Genealoog100 · « **Reactie #29 Gepost op:** 16 april 2024, 15:51:04 »

Hey dag SoftAid ( of mag Theo ook )

Top!
Ik heb vandaag nu niet echt de wereld van tijd, want dat is dan de andere zijde van het retirement

is dat je kan genieten van de kleinkinderen...
opa opa opa opieopieopie pepe pepe pepe pepe enz....
vreten je dag en energie volledig op hoor!
Energie gaat vlugger leeg dan de snoependoos (en nog maar goed ook van de snoependoos

)

Vanavond eens meer tijd en energie in stoppen!

Toch al bedankt en neen we houden het nog steeds heeeeeeeeeeeel simpel.
De boterham van Della is eentje om bij na te denken. ( voor een leek als ik toch ) maar we komen er wel uit hoor!

dus tot later

Help!

Menu

Hulp bij posten

Zoeken

Recente topics