Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Pagina 1 van 2 1 2 LaatsteLaatste
Weergeven resultaten 1 tot 20 van 21

Onderwerp: Waarde gebruiken en daarmee doortellen

  1. #1
    Senior Member
    Geregistreerd
    7 december 2007
    Vraag is opgelost

    Waarde gebruiken en daarmee doortellen

    Hallo,

    Ik heb een vragen lijst welke d.m.v. het cijfer 1, aangeeft of iets fout was.
    Indien fout, mag deze persoon herhalen tot het antwoord juist is.
    Nu wil ik de uitkomst van die foute uitslagen optellen.
    De antwoorden worden gegeven op het bekijken van een plaatje.

    B.v. vraag Antwoord d.m.v =ALS(Uitkomst) Fouten

    1 Is dit een hond? 1 Als goed, OK als fout, 1 probeer het nog eens 1
    2 Is dit een koe?
    3 Is dit een poes?
    4 Is dit een vogel?

    Is het ook mogelijk dat ik de fouten welke bij herhaling gemaakt zijn ook op kan tellen?
    Mogelijk door de uitslag definitief te maken?

    Vriendelijke groet Rob
    Laatst aangepast door rfcdejong : 15 mei 2019 om 18:05

  2. #2
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Nou Rob,

    Zet dat maar eens in een voorbeeld bestandje.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

  3. #3
    Senior Member
    Geregistreerd
    7 december 2007
    Hierbij een voorbeeld bestand

    Vriendelijke groet Rob
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Je kan iets doen met het Worksheet_Change event. Of dit lekker werkt met al die samengevoegde cellen weet ik niet.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, Range("M2:M3")) Is Nothing Then Exit Sub
      Target.Offset(, 10) = Target.Offset(, 10) + 1
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Senior Member
    Geregistreerd
    7 december 2007
    Dank voor de voorgestelde oplossingen, ik kan het niet volgen dus ga ik maar met iets ander aan de slag

  6. #6
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Je moet niet zo snel opgeven, maar gewoon doorvragen.

    Hier is het werkende voorbeeld, met macro. Macro's moet je wel inschakelen.
    Klik op je werkblad op Alt + F11 je komt nu in de VBA omgeving waar je de code ziet staan.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

  7. #7
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo Ad,

    Dit is precies hetgeen ik wilde, maar ik heb gezocht naar de wijze hoe de macro werkt, ik wil namelijk veel meer vragen op deze wijze onder elkaar zetten maar ik begrijp de code niet, ik heb wel eens een macro opgenomen maar deze wijze begrijp ik echt niet, wel heb ik het boek grote VBA boek van Wim de Groot, , probleem is dat ik 3 weken geleden weer een Tia heb gekregen en daar nog last van heb, ik kan momenteel niet lezen, ook niet met een leesbril, mogelijk wil je mij nog verder helpen.

    Vriendelijke groet Rob

  8. #8
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Hallo Rob,

    Ik hoop dat je de Tia snel te boven komt, er gaat immers niets boven gezondheid.
    Aan gezien ik ook geen VBA specialist ben, ben ik van mening dat als VenA dit leest hij je zeker te hulp zal komen.
    Ik wens je beterschap, en we wachten af.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Hier valt toch niet zoveel aan uit te leggen? Toch maar een poging:
    - Het Worksheet_Change Event moet in de module van het betreffende blad staan. Als je een waarde in de cel van dit blad wijzigt dan wordt de code uitgevoerd;
    - Door het gebruik van Intersect baken je de cellen af zodat er alleen wat gebeurt als je iets in deze cellen wijzigt;
    - Als je iets wijzigt in Range("M2:M3") dan wordt de waarde van, 10 posities naar rechts gerekend vanaf M2 of M3, dus W2 of W3 met 1 opgehoogd.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo VenA,

    Dank voor je hulp, houd dit in dat ik alleen de desbetreffende cellen erbij moet plaatsen, met een komma er tussen?

    Rob

  11. #11
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Ja, zie voorbeeldje.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

  12. #12
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo AenA en Ad Becude,


    Dit werkt inderdaad zoals ik dat wens maar begrijpen doe ik het nog niet, ik kan ook geen uitleg vinden in mijn VBA boek dat ik met heel veel licht erop een beetje kan lezen, ik heb gezocht bij doel, en alle termen uit dit script, opdat ik ervan kan leren, mogelijk word het over een paar weken wat beter te lezen voor mij, ik wil jullie heel erg bedanken voor de hulp en het geduld.
    Ook begrijp in niet hoe de opgetelde waarde in de nieuwe (W-cel) terechtkomt

    Vriendelijke groet Rob de Jong
    Laatst aangepast door rfcdejong : 21 mei 2019 om 18:08

  13. #13
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Dank voor je hulp, houd dit in dat ik alleen de desbetreffende cellen erbij moet plaatsen, met een komma er tussen?
    Je geeft hier zelf het antwoord al.

    If Intersect(Target, Range("M2:M3,M11:M12")) Is Nothing Then Exit Sub
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

  14. #14
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo Ad,

    Ik ga eerst het één en ander proberen, want ik begrijp niet hoe de uitkomst in W2, W3, W11, W12 terecht komt, ik heb hoier 3 boeken welke niets vertellen over het gebruik van deze formule.


    Toch heel erg bedankt voor je geduld

    Rob

  15. #15
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo Ad,

    Ik heb nu door hoe het plaatsen in kolom W werkt maar nu kan ik de reeds opgenomen wismodule (t.a.v. invoer kolom-M en nu dan ook voor de W-kolom) niet meer gebruiken en krijg ik een fout 13 melding, is die combinatie niet te gebruiken, opnemen v.s. bladmodule

    Rob
    Laatst aangepast door rfcdejong : 22 mei 2019 om 09:18

  16. #16
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Is het dan niet handig om de wis macro te plaatsen? Door het wissen van meerdere cellen wordt het Change Event aangeroepen en deze gaat fout. Dit kan je ondervangen door een aanpassing in de code in het Change event.

    Code:
    If Intersect(Target, Range("M3:M4,M11:M12")) Is Nothing Or Target.Count > 1 Then Exit Sub
    Beter is het om in de wis macro de Events even uit te schakelen en aan het eind weer in te schakelen.

    Code:
    Sub VenA()
      Application.EnableEvents = False
      Range("M3:M4,M11:M12,W3:W4,W11:W12").ClearContents
      Application.EnableEvents = True
    End Sub
    Nog beter is het om geen samengevoegde cellen te gebruiken. Geeft bijna altijd ellende in combinatie met VBA. Dan wordt het zo en worden alle getallen in de kolommen M en W gewist.
    Code:
    Sub VenA()
      Application.EnableEvents = False
      If Application.Count(Columns(13)) Then Range("M:M,W:W").SpecialCells(2, 1).ClearContents
      Application.EnableEvents = True
    End Sub
    Laatst aangepast door VenA : 22 mei 2019 om 19:25
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  17. #17
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo VenA,


    Het leek mij niet zo moeilijk en dus plaatste ik het laatste voorbeeld waar de kolommen worden gewist direct voor het gisteren gemaakte voorbeeld op hetzelfde blad (blad1), het werkte direct goed maar nu werk de rest niet meer.

    Vraagje, waaraan dank ik het feit dat ik senior member ben? Ik ben wel senior maar heb nog weinig kennis.

    Rob
    Laatst aangepast door rfcdejong : 22 mei 2019 om 22:06

  18. #18
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Geen idee waar je het over hebt. Maar werken mijn suggesties niet?
    Laatst aangepast door VenA : 22 mei 2019 om 22:12
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  19. #19
    Senior Member
    Geregistreerd
    7 december 2007
    Hallo VenA en Ad,

    Dank jewel voor dit deel van mijn vraag, ik begin het te begrijpen en kan dit nu ook aanpassen, ik begrijp hoe ik moet verplaatsen en waar naartoe.


    Rob de Jong
    Laatst aangepast door rfcdejong : 23 mei 2019 om 11:47

  20. #20
    Mega Senior Ad Becude's avatar
    Geregistreerd
    13 mei 2006
    Locatie
    Ergens in de polder van west Zeeuws-Vlaanderen
    Vraagje, waaraan dank ik het feit dat ik senior member ben? Ik ben wel senior maar heb nog weinig kennis.
    Rob, als je op je naam klikt, en dan op "Bekijk Profiel" > "Over mij"
    Dan zie je dat je 140 berichten hebt gepost, en daarom ben je Senior Member.
    Ik ben Mega Senior, en pas 72. Hoe oud zou VenA wel niet moeten zijn met zijn: Giga Honourable Senior Member ik denk zo rond de 150
    Het ligt dus aan het aantal berichten die je hebt gepost.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing werkt.....of niet.

    Groet Ad
    P.S.
    Wil je zelf geen e-mails via het forum ontvangen, stuur er mij dan ook geen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren