Recente berichten

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

Excel / Re: Bestand voor genealogie

« Laatste bericht door Genealoog100 Gepost op Vandaag om 19:45:32 »

Hallo mvdvlist

Fijn om mee te denken naar de gepaste oplossing maar wat je voorstelt is niet wat de bedoeling is.

De bedoeling is om de namen van zowel de bronpersoon, de vader als de moeder weg te schrijven ook in de sheet statistieken.
Eens die daar in zijn weg geschreven kan er gecontroleerd worden naar de verschillende namen. maw indien een naam verschillende malen voorkomt in de lijst dan hoeft die in de sheet statistieken maar 1 keer voor te komen.
( voorbeeld een naam " Persoon" komt 20 keer voor in de lijst namen van de bronpersoon, maar er zijn ook varianten van de naam zoals "Persoons" of "Persone", en dan heb je nog de naam "Gasten" varianten " Gaste ", "Gaesten" enz... dan zou er in de lijst namen van de bronpersoon dus mogen staan 1 keer Persoon 1 keer Persoons 1 keer Persone enz.)

van overtuigd dat dit voor jullie een walk in the park is of een breach on the beach (met dit weertje nu heeeeeerlijk

)

Alvast bedankt

Excel / Re: ScrollRow

« Laatste bericht door Della Jordan Gepost op Vandaag om 16:18:18 »

Citaat

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

Zal altijd zo zijn, je zit in een oneindige loop.

Code: [Selecteer]

Sub test()
Dim lastRow As Long, i As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lastRow Step 2
    Cells(i, 1).Select
    ActiveWindow.SmallScroll down:=5
    Application.Wait (Now + TimeValue("00:00:01"))
    If i = lastRow - 2 Or i = lastRow - 1 Then
        i = 0
    Cells(1, 1).Select
    End If
Next i
End Sub

Hier maak ik gebruik van SmallScroll, is misschien minder schokkerig, maar je probleem blijft hetzelfde, je zit in een oneindige loop.
Excel is daarvoor helemaal niet geschikt.
Moest er wat meer duidelijkheid bestaan wat ze in het buurthuis willen bereiken, ik heb ooit eens een powerpresentatie gemaakt voor het buurthuis van mijn oma.
Dat ging van openingsuren van de kapper, kantine, welke bezigheidstherapie, noem maar op, zelfs de biljard uitslagen.

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