Waarde gebruiken en daarmee doortellen

[rfcdejong]

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

 

[Ad Becude]

Nou Rob,

Zet dat maar eens in een voorbeeld bestandje.

 

[rfcdejong]

Hierbij een voorbeeld bestand

Vriendelijke groet Rob

 

[VenA]

Je kan iets doen met het Worksheet_Change event. Of dit lekker werkt met al die samengevoegde cellen weet ik niet.

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

 

[rfcdejong]

Dank voor de voorgestelde oplossingen, ik kan het niet volgen dus ga ik maar met iets ander aan de slag

 

[Ad Becude]

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.

 

[rfcdejong]

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

 

[Ad Becude]

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.

 

[VenA]

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.

 

[rfcdejong]

Hallo VenA,

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

Rob

 

[Ad Becude]

Ja, zie voorbeeldje.

 

[rfcdejong]

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

 

[Ad Becude]

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

 

[rfcdejong]

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

 

[rfcdejong]

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

 

[VenA]

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.

If Intersect(Target, Range("M3:M4,M11:M12")) Is Nothing [COLOR="#FF0000"]Or Target.Count > 1[/COLOR] 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.

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.

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

 

[rfcdejong]

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

 

[VenA]

Geen idee waar je het over hebt. Maar werken mijn suggesties niet?

 

[rfcdejong]

Hallo VenA en Ad,

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


Rob de Jong

 

[Ad Becude]

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.