Recente berichten

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

E-Mailprogramma's / Re: Gmail vol

« Laatste bericht door stevenvl Gepost op Gisteren om 22:09:57 »

Als ik aan de linkerkant van Gmail ben, zie ik bij categorieën een folder staan met ''updates'' met nog tal van emails van vroeger.

Ook al is de inbox, spam en prullenbak volledig leeg, doch blijven tal van mails in de updates folder staan.
Waarvoor is die folder '' updates'' eigenlijk nodig ik zie er het nut niet van in. Ik heb eens gezocht via google maar geraak er niet veel wijs uit.

Excel / Re: ScrollRow

« Laatste bericht door SoftAid Gepost op Gisteren om 21:36:54 »

Citaat van: Della Jordan op Gisteren om 16:18:18

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

Kan er geen tweede knop geplaatst worden, die een macro "Stoppen" triggert.
Ik zal de moelijke manier nemen....
Die macro "stoppen" zet de inhoud vaneen cel op "stop".
De macro "Start", kijkt bij elke loop of betreffende cel "stop" bevat.
Zo ja, Exit Sub

Wat het probleem bij het scrollen !!kan!!! zijn is 32bit api's die in een 64bit omgeving niet goed werken.
Die moet je dan declareren.....

Code: [Selecteer]

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public inc As Integer

Sub ScrollNow()
  Dim lastRow As Long, nextRow As Long
  Application.ScreenUpdating = True
  
  lastRow = ActiveSheet.UsedRange.Rows.Count
  If inc <> 1 Or inc <> -1 Then
    If ActiveCell.Row = lastRow Then
      inc = -1
      Else: inc = 1
    End If
  End If
  
  On Error GoTo handleCancel
  Application.EnableCancelKey = xlErrorHandler
  
  Application.StatusBar = "To End: ESC, Ctrl+Break"
  Do While 1 = 1 'infinite loop
    If inc = 1 And lastRow = ActiveCell.Row Then inc = -1
    If inc = -1 And ActiveCell.Row = 1 Then inc = 1
    nextRow = ActiveCell.Row + inc
    Application.Goto Range("A" & nextRow), True
    Sleep 400
  Loop
handleCancel:
  Application.StatusBar = False
End Sub

Bron

SoftAid

Excel / Re: Bestand voor genealogie

« Laatste bericht door Genealoog100 Gepost op Gisteren 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 Gisteren 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 Gisteren 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 Gisteren 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 Gisteren 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 Gisteren om 11:09:42 »

Beste mvdvlist

Citaat van: mvdvlist op 30 april 2024, 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