*

Help!

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

Hulp bij posten

Recente topics

Recente berichten

Pagina's: 1 ... 4 5 [6] 7 8 ... 10
51
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op 14 april 2024, 18:22:17 »
Hallo Marcel,

ik heb kleine aanpassingen gemaakt in je reactie.

als je code tussen codetags plaats (wat je geweldig hebt gedaan) dan kan je daar geen andere tags (zoals Color=red) aan toevoegen. Ik noem dit enkel om je de mogelijkheden van dit forum te laten kennen....

Wat is er mis:

Je hebt sh ingesteld als variabele (als vervanger) voor ThisWorkbook.Sheets("BS_G_OVL"

Daarna gebruik je sh niet, maar je gebruikt ("Worksheet") als sheets in je vergelijking. Dus zou je moeten schrijven:

Code: [Selecteer]
rij = sh.Range.Cells(Cells.Rows.Count, "B").End(xlUp).Row + 1 ------------------------------------------------------------------------------------------------------
Bij het gebruik van  "With ....." dien je op elke volgende regel die gebruik maakt van die sh een punt te zetten vóór de volgende instructie:

Code: [Selecteer]
With sh
  .Cells......
  .Cells......
  .cells......
End with-----------------------------------------------------------------------------------------------------
Een ander code en tijdbesparend iets zou zijn om je Werkblad(en) en je Userform perfect op elkaar af te stemmen.
Zo heb je nu een Werkblad Kolom "Sex", maar geen Userform inputbox of textbox "sex" (moet dat niet "Sexe" zijn?)

Als je de namen van je txtboxen aanpast in functie van de kolommen in je werkblad, dan kan je via For-next loops alles aanpassen met 1 of twee lijntjes code.

Maar, het gaat goed  :thumbsup:

 :) SoftAid :)             
52
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op 14 april 2024, 18:19:14 »
Nog een hint, gebruik eenvoudegere namen voor je textboxen, comboboxen buttons.
Het is dan zoveel makkelijker om iets in een loop te zetten.
Zoiets als T1 of T_1 of tx1, dat maakt niets uit en maak geen onderscheid met je comboboxen.
De rest is voor morgen.
53
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op 14 april 2024, 18:11:14 »
Dit vind ik een leuk projectje :)

Ik ben de volgende twee dagen vrij (weekend werk,pff)
Ik ga morgen wat verder kijken.
Deze code kan al iets korter.
Code: [Selecteer]
   
            Me.TxtVolgnr.Value = ""
            Me.txtRegister.Value = ""
            Me.txtWelke.Value = ""
            Me.txtProvincie.Value = ""
            Me.txtSex.Value = ""
            Me.txtNaam.Value = ""
            Me.txtVoornaam.Value = ""
            Me.txtVader.Value = ""
            Me.txtVNVader.Value = ""
            Me.txtMoeder.Value = ""
            Me.txtVNMoeder.Value = ""
            Me.txtGD.Value = ""
            Me.txtPostcode.Value = ""
            Me.txtPlaats.Value = ""
            Me.cbTypeDoc.Value = ""
            Me.txtbron.Value = ""
            Me.cbOAkte.Value = ""
            Me.cbHAkte.Value = ""
Kan je veranderen door:
Code: [Selecteer]
For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
Next Ctrl
Ik heb ook Aldfaer eens bekeken, wordt niet meer ondersteund en is zeker geen aanrader.
Maar ik bewonder het voorbeeld en de energie dat je er al ingestoken hebt.
 :thumbsup:
54
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op 14 april 2024, 17:42:53 »
Beste SoftAid

Dank voor de verwelkoming

Inderdaad is de bedoeling om toch zelf te leren met behulp van jullie wijsheden en tsoeptsoep en de almighty Google  ::)

Maar 't spel zit al op de wagen zie  :default_thumpdown:

De code in het rood herkent hij niet.
enig raad of advies.

Code: [Selecteer]

'CommandButton "SAVE"

Private Sub cmbSave_Click()
    Dim sh As Worksheet
        Set sh = ThisWorkbook.Sheets("BS_G_OVL")
            Dim rij As Long
                rij = Sheets("Worksheet").Range("B" & Rows.Count).End(xlUp).Row  'Deze code herkent hij niet.
 
  '---------------- Toewijzen van data aan de juiste cellen  -------------------------
     With sh
                Cells(rij + 1, "B").Value = Me.TxtVolgnr.Value
                Cells(rij + 1, "C").Value = Me.txtRegister.Value
                Cells(rij + 1, "D").Value = Me.txtWelke.Value
                Cells(rij + 1, "E").Value = Me.txtProvincie.Value
                Cells(rij + 1, "F").Value = Me.txtSex.Value
                Cells(rij + 1, "G").Value = Me.txtNaam.Value
                Cells(rij + 1, "H").Value = Me.txtVoornaam.Value
                Cells(rij + 1, "I").Value = Me.txtVader.Value
                Cells(rij + 1, "J").Value = Me.txtVNVader.Value
                Cells(rij + 1, "K").Value = Me.txtMoeder.Value
                Cells(rij + 1, "L").Value = Me.txtVNMoeder.Value
                Cells(rij + 1, "M").Value = Me.txtGD.Value
                Cells(rij + 1, "N").Value = Me.txtPostcode.Value
                Cells(rij + 1, "O").Value = Me.txtPlaats.Value
                Cells(rij + 1, "P").Value = Me.cbTypeDoc.Value
                Cells(rij + 1, "R").Value = Me.txtbron.Value
                Cells(rij + 1, "S").Value = Me.cbOAkte.Value
                Cells(rij + 1, "T").Value = Me.cbHAkte.Value
    End With
   
  '--------- Hier worden de cellen leeggemaakt na saven van de data------------
               
            Me.TxtVolgnr.Value = ""
            Me.txtRegister.Value = ""
            Me.txtWelke.Value = ""
            Me.txtProvincie.Value = ""
            Me.txtSex.Value = ""
            Me.txtNaam.Value = ""
            Me.txtVoornaam.Value = ""
            Me.txtVader.Value = ""
            Me.txtVNVader.Value = ""
            Me.txtMoeder.Value = ""
            Me.txtVNMoeder.Value = ""
            Me.txtGD.Value = ""
            Me.txtPostcode.Value = ""
            Me.txtPlaats.Value = ""
            Me.cbTypeDoc.Value = ""
            Me.txtbron.Value = ""
            Me.cbOAkte.Value = ""
            Me.cbHAkte.Value = ""


End Sub


Alvast bedankt

Groeten
Marcel
55
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op 14 april 2024, 16:06:43 »
Hallo genealoog100,

Welkom op Oplossing.be  :)

Je hebt je knoppen naar het "hoofdmenu" nog niet toegewezen aan de betreffende macro (frmHoofdmenu) maar dat is een kleinigheid.

Een macro om de data weg te schrijven van de userform naar de juiste cellen is in principe niet zo moeilijk. Een zaak eerst: je moet de laatste lege rij in je werkblad weten te vinden. Dat doe je door een code te gebruiken die in het werkblad het rijnummer van de eerste lege rij ophaalt:

Code: [Selecteer]
rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1Deze code zoekt de eerste lege rij (van boven naar beneden) in kolom "B" en wijst deze rij toe aan een variabele rij (rij zonder haakjes, het is geen tekst)

Daarna schrijf je in je macro, als je deze "Save" activeert, dat de waarde in de cellen (rij, 2), (rij, 3), (rij, 4)  enzovoorts gelijk zijn aan de juiste invoervelden van je userform.

Code: [Selecteer]
Sub Save()     ' op voorwaarde dat je de macro (die verbonden is aan de knop "Save"
                              ' in de code module van de userform zet.
Dim rij as Range

rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1
Sheets("BS_G_OVL").Cells(rij, 2).Value = Me. TxtBox.Value

End Sub
Je zal dus een macro in de userform code-module moeten zetten die de waarden van de txtboxen afgaat en deze naar het werkblad schrijft.

Als je hulp wenst, laat maar horen.
Mogelijk vindt je het fijner om zelf de weg te zoeken.
We helpen graag.

Groeten,

:) SoftAid :)             


56
Excel / Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op 14 april 2024, 15:01:10 »
Hallo iedereen,

Misschien even voorstellen als nieuwste member.
Ik ben dus Marcel, gelukkig gepensioneerd ( en geloof me maar er van aan het genieten!!! ;D ;D ;D) met als hobby ( of wat dacht je dan anders) genealogie.

Nu ben ik begonnen met een bestand te maken in excel waarin ik kort alle data zou willen inbrengen van personen die gevonden zijn en die thuis horen in de stamboom. Programma dat ik daarvoor gebruik is Aldfaer. ( aanrader ).

Nu voor ik hier verder tijd en energie ga in steken, had ik al even willen vragen of jullie hier een mening over hebben en of dit voor verbetering ( ben ik van overtuigd van wel   :-\) en zoja welke dan.

Nu kan ik hier een uiteenzetting gaan geven maar denk niet dat dit nut zal hebben.

toch dit.

Ik heb nu voor iedere soort bestand een userform gemaakt.
Ook heb ik voor iedere bestand een sheet aangemaakt.
de inhoud van de userform zouden moeten worden weggeschreven in de juiste cel.
Er is al een deel voorzien van een code die ik van tsoeptsoep (YouTube)heb gehaald.

Heb geen jota verstand van programmeren, maar wat ik bijleer is altijd mooi meegenomen. ( vandaar tsoeptsoep)
even nog voor de duidelijkheid....

BSGOVL staat voor
BS = Burgerlijke Stand
G = Geboorte
OVL = Oost-Vlaanderen
WVL = West-Vlaanderen
PKGOVL staat voor
PK = Parochiale Klapper
G = Geboorte
OVL = ...
WV = ...

BSHOVL
BS = ...
H = Huwelijk
OVL...

PKHOVL
PK = Parochiale ....
H = Huwelijk
OVL = ...

BSOOVL
BS = ...
O = Overlijden
enz... zoals hierboven

Alvast mijn oprechte dank en excuses mocht het wat chaotisch samengesteld zijn ( maar ja zo is het ook in mijn koppie(chaotisch))

Mvg

Marcel
57
Excel / Re: Aanpassen file voor grote prijskampen
« Laatste bericht door redenering Gepost op 13 april 2024, 16:46:05 »
Prima voor mij. Verspil ik geen kostbare tijd met je werkboeken na te kijken of te reageren op foute stellingen en antwoorden (waar je blijkbaar het antwoord zelf niet op weet)
Succes.... met jou instelling  :default_thumpdown:

58
Excel / Re: Aanpassen file voor grote prijskampen
« Laatste bericht door lco Gepost op 13 april 2024, 16:33:34 »
redenering,

ik zou het zo laten als ik u was,hier ga ik niet verder op in.
Als dat je enige inbreng is hier laat het dan maar.

      mvg,Lco
59
Excel / Re: Aanpassen file voor grote prijskampen
« Laatste bericht door redenering Gepost op 13 april 2024, 16:24:05 »
Citaat van: lco op 13 april 2024, 15:44:58
Als je zelf het antwoord geeft in post 9 moet je het niet meer vragen héé

Ik gaf geen antwoord op men eige vraag in post 9. Ik stelde vast dat je startvraag onmogelijk is.
Jij stelt dan dat het wel mogelijk is, want je zegt dat het "opgelost" is. 

Dan vind ik het niet zo vreemd dat ik graag zou wilen weten hoe het opgelost is.
Waar (in je bestand) en op welke manier.
60
Excel / Re: Aanpassen file voor grote prijskampen
« Laatste bericht door redenering Gepost op 13 april 2024, 15:18:12 »
Citaat van: lco op 13 april 2024, 15:03:14
ik bedoelde dat het opgelost is

en mogen we ook vragen "Hoe" en "waar" het is opgelost in je 2de voorbeeldbestand?

Pagina's: 1 ... 4 5 [6] 7 8 ... 10


www.combell.com