Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: 1 2 [3] 4 5 ... 10
21
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op Gisteren om 14:17:16 »
Hallo Marcel,

Ik meen dat de worksheet BSGOVL juist staat vermeld,

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 :)             
22
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Gisteren om 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
23
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op Gisteren om 13:57:32 »
Hallo Marcel,
een volgende stap zou zijn om je data van het formulier weg te schrijven naar het werkblad.

Met (ongeveer) deze for-Next code zou je met weinig veel kunnen bereiken.

Private Sub cmbSave_Click()
   Dim sh As Worksheet
       Set sh = ThisWorkbook.Sheets("BS_H_OVL")
           Dim rij As Long, x As Long
                rij = sh.Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
        For x = 1 To 20
          sh.Cells(rij + 1, x + 1).Value = Me.T & x      'Toewijzen van data aan de juiste cellen via For-Next loop
        Next
 Workbook.Save
 End Sub

Spijtig genoeg krijg ik een foutmelding op het stukje code:  Me.T & x 
en ik zie de fout niet dadelijk.

Ik zoek verder.

:) SoftAid :)             



24
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Gisteren om 13:35:45 »
Beste allen,

Zo bij deze is dit dan ook achter de rug en kunnen nu de neuzen allemaal in dezelfde richting staan  ;)

Hierbij dan het bestandje dat is aangepast naar 2 formulieren.
Heb er nog geen codes in weggeschreven, gewoon als deze oplossing  niet geschikt is dan is dit een hoop moeite voor piet snot geweest. ::)

De bedoeling zou nu zijn dat wanneer in T2, T3, T4 gegevens komen dat deze dan ook worden weggeschreven naar de juiste sheet
Om weer een vb te geven
T1 "BS"      T2 "H"         T3 "OVL"
Dan zou deze gegevens moeten worden weggeschreven in sheet BSHOVL
enz voor alle mogelijkheden
( zo zijn er 9 sheets)

Graag jullie opbouwende reacties zodat ik hier mijn stress kan op botvieren 0:-) 0:-) 0:-)

Groeten
Marcel
25
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Gisteren om 12:45:10 »
Dag,

Vooreerst, dank voor het meedenken.
Laat me toe even dit te zeggen...

Zoals in de eerste topic gemeld is de kennis miniem en haal ik veel informatie van "YouTube" ( zeg maar tsoeptsoep) en ergens kan je wel gelijk hebben met je bemerkingen maar ik denk dat ook verkeerde informatie mooi is om uit te leren.

De raad van Della is opgevolgd en zal in het nieuw bestandje zo ingevuld worden T1,T2, T3, enz... Form1, Form2,...

En waarom 2 formulieren...
form 1 kan gebruikt worden bij de akten geboorten en overlijden terwijl er bij de akte huwelijken een pak meer info is. ( schoonfamilie, enz...)

Nu als je denkt dat alles kan met 1 Form graag je kennis hoor... maakt het alleen maar aangenamer in gebruik toe.

Dus, we stomen verder naar de juiste oplossing die tot iedereens tevredenheid kan schikken  :) :)

Groeten
Marcel
26
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op Gisteren om 11:09:03 »
#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen.  :'(

Sorry, foutje in de typeaanduiding van de variabele: "Dim rij As Range" moet zijn "Dim rij as Long"
Deze code achter het werkblad doet wat het moet doen.

Private Sub Saveformulier()
Dim rij As Long
     rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
                           FrmBSGOVL.txtRegister = ("tien") 'tijdelijk, om het formulier niet te moeten gebruiken
     Sheets("BS_G_OVL").Cells(rij, 2).Value = FrmBSGOVL.txtRegister.Value
End Sub

Straks meer... eerst je bijgewerkt voorbeeldbestand doornemen (na de koffie)

:) SoftAid :)             
 
27
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Gisteren om 10:34:42 »
Goedenacht SoftAid  8) :glare:

Ik maak er werk van deze middag en dan post ik het tweede gedachtegoed.

En dan u oogjes dicht en snaveltje toe .... slaapzacht

hahahahahaha

Groeten
Marcel
28
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op Gisteren om 10:16:01 »
Klopt het dat er eigenlijk maar 2 formulieren nodig zijn om deze volledig te doen draaien?
Hallo Marcel,

ook een goede morgen (10:14h, veel te vroeg  ;D)

Mogelijk kan je met 2 formulieren verder, maar dat wil ik eerst even bekijken in je bijlage.

Ik (of iemand anders) laat straks zeker iets weten (als mijn oogjes open zijn...;)

Groeten,

:) SoftAid :)             
29
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Gisteren om 08:15:29 »
Goedemorgen iedereen,

Alvorens hiermee verder te gaan een vraagje....

Klopt het dat er eigenlijk maar 2 formulieren nodig zijn om deze volledig te doen draaien?
Namelijk 1 formulier voor geboorte en overlijden ( aangezien dit toch dezelfde gegevens zijn die ingevuld worden) en 1 voor de huwelijken.

Alles zou dan blijkbaar kunnen opgeslaan worden in de juiste sheet adhv de data in de boxen "Register" & box "Welke" & box "Register"
bvb 
(1)
box "register"     Burg. Stand
Box "welke"       Geboorte
Box "Provincie"  West-Vl.

OF
(2)
box "register"     Paroch. Klapper
Box "welke"       Geboorte
Box "Provincie"   West-Vl.


de data zou dan weggeschreven worden naar de worksheet 
(1)
BS_G_WVL
(2)
PK_G_WVL

Mocht dit zo zijn dan zou dit toch een pak programeerwerk besparen denk ik dan toch maar.

Graag je mening op deze vraag.

Alvast bedankt voor het meedenken.

groeten
Marcel
30
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op 14 april 2024, 22:32:54 »
OK Goedenavond iedereen.

First: Della Jordan - Bedankt voor het meedenken  _/-\o_

Second :

#3 Della Heb de korte procedure geprobeerd maar krijg hier foutmelding op.
#4 Della Zijn allemaal aangepast. Was precies bezigheidstherapie  :-[     :P
#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen.  :'(

#6 Della LOL ( ze krijgt hopelijk herexamen  :D :D :D)

Groeten
Marcel
Pagina's: 1 2 [3] 4 5 ... 10


www.combell.com