Recente berichten

Pagina's: [1] 2 3 ... 10

E-Mailprogramma's / Re: mail antwoorden

« Laatste bericht door pierre1959 Gepost op Vandaag om 14:46:43 »

Bedankt voor de tip.
Ga ik zekers proberen bij proximus, ik hou jullie op de hoogte.
Gtz

Excel / Re: ScrollRow

« Laatste bericht door Sunnybat Gepost op Vandaag om 13:27:48 »

@Della Jordan @SoftAid

het is een soort lopende scherm die in een buurthuis van me buurman op een scherm loopt ( soort bejaardenhuis )

het is wel zo te doen, alleen jammer dat het een beetje schokt
en er zit ook nog een soort foutje in kan de macro niet zo goed stoppen en als ik ESC druk komt die met een fout
dus ben aan zoeken om de macro fatsoenlijk te stoppen
en de andere vraag heeft ook hier een beetje mee te maken
zodat me buurman zelf een csv in kan laden

Excel / Re: Bestand voor genealogie

« Laatste bericht door mvdvlist Gepost op Vandaag om 12:19:34 »

Beste Genealoog, dit voorbeeldje hoort in een Loop.
Deze kan natuurlijk ook in een If

Voorbeeldje: Je TextBoxen noem je bv T1 tm T12

Dan kan de code zijn:

Code: [Selecteer]

For A = 1 to 12
 Me.Controls("T"& A).Value = A
Next A

Dan worden je TextBoxen gevuld met de cijfers 1 tm 12. Daar staat immers die A voor.

Je kunt dit ook perfect gebruiken om bv labels een Caption te geven gelijk aan de kolomkoppen in je tabel

BV:

Code: [Selecteer]

For A = 1 to 12
 Me.Controls("Label" & A).Caption = Sheets("HUP").Cells(1,A).Value
Next A[

Voorwaarde is dan dat de labels gewoon Label1 tm Label12 heten.
En als je later dus een kolomkop aanpast, gebeurt dit ook automatisch in het formulier.

Voorbeeldje toegevoegd...

Excel / Re: Bestand voor genealogie

« Laatste bericht door Genealoog100 Gepost op Vandaag om 11:09:42 »

Beste mvdvlist

Citaat van: mvdvlist op Gisteren om 19:42:27

Probeer eens: Me.Controls("T" & x)

en hoe declareer ik deze in het geheel.
Ik heb geen enkele kennis van VBA en alles wat ik tot nu toe weet heb ik geleerd op tsoeptsoep, SoftAid en natuurlijk onze Della.

Voor mijn bekrompen kennis zou dit zo iets moeten zijn

Code: [Selecteer]

For x = 1 to ... (hier dan nog iets maar geen idee)
              if me.controls("T" & x). text ( hier dan weer een aanvulling)
                   else
                     me.controls("T" & x)= ( wat hier dan?)
          end if
             (maar hier moet toch een heel stuk code komen die alle namen controleert en indien nodig aanvult met de ontbrekende naam?

                            next x

Graag uw advies in deze