+knoppen maken in data bestand

[boomen]

Beste allemaal,

Ik bijgaand bestand heb ik een opzet gemaakt voor een data analyse die ik wil gaan doen bij een voetbalteam.
Ik heb geprobeerd om een +knop te krijgen op de plaatsen waar een + in staat.
Deze rij kan eventueel nog langer worden.
Mijn vraag is dus, Hoe kan ik een +knop invoegen die de cel eronder een waarde van +1 toekent bij het klikken op de knop.

Groet,

Paul

Bekijk bijlage Voetbal data.xlsx

 

[edmoor]

Dat idee met allemaal knoppen ga je niet willen. Je kan beter een cel selecteren en dan op een Plus of Min knop klikken.
Of dubbelklik in een cel om +1 te doen.
Zie voorbeeld:
Bekijk bijlage Kopie van Voetbal data.xlsm

 

[JanBG]

Worden heel veel knoppen.
Je kan het ook zo doen:

Sub Knop1_Klikken()

Application.ScreenUpdating = False
    Dim Msg, Style, Title, Response, MyString
Msg = "Heb je de goede cel geselecteerd?"
Style = vbYesNo + vbQuustionOK
Title = "Maak keuze"
Style = vbYesNo + vbQuuestion
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Dim g As Integer
    g = ActiveCell.Value
    g = g + 1
    ActiveCell.Value = g
End If

If Response = vbNo Then

Sheets("Blad1").Select

End If
End Sub

Moet je bestand wel even aapassen:

Bekijk bijlage Kopie van Voetbal data.xlsm

 

[edmoor]

Naast dat vbQuustionOk niet bestaat en Style 2x wordt genoemd is dat wel veel overbodige code.
Zie mijn dubbelklik voorbeeld uit het document dat ik in #2 plaatste:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(ActiveCell, Range("B2:I15")) Is Nothing Then
        If ActiveCell.Value >= 0 Then ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub

 

[JanBG]

Edmoore,

Je hebt gelijk. Het moet zijn: vbQuestionOK. Vreemd genoeg werkt het overigens wel.

You're never late to do the right thing

 

[edmoor]

Je krijgt er geen foutmelding op omdat je Option Explicit niet aan hebt staan, die voorkomt dat soort problemen.
Het nadeel is dat je dan iedere variabele moet declareren en dat is niet altijd nodig.

 

[boomen]

@edmoor

De 1e oplossing is voor mij wel wat ik bedoel. Kan hierin dubbelklik worden toegevoegd. Het gaat er namelijk om dat ik tijdens de wedstrijd efficiënt te werk kan gaan.
Het verschuiven van cel naar + en terug kan ook, maar dit duurt iets langer.

 

[edmoor]

Als je in mij voorbeeld document dubbelklikt op 1 van die cellen dan werkt het al.
Die knoppen zijn dan overbodig.

 

[boomen]

Bij mij niet, het blijft 0 en ik kan dan typen.
Geen idee waarom.

 

[edmoor]

Die heb ik wel later toegevoegd.
Download hem nog eens vanuit #2.
Typen kan sowieso.

 

[boomen]

Nee, soms verspringt hij naar de onderste cel van de kolom, maar een +1 krijg ik niet van dubbel klikken.
Ik bedoel dan ook wel dubbel klikken in een gewone cel met een 0 erin.

 

[edmoor]

Ik had er inderdaad een foutje in zitten. Probeer deze maar eens:
Bekijk bijlage Kopie van Voetbal data-3.xlsm

 

[JanBG]

Edmoore,

Dubbelklikken werkt bij mij alleen als er een ander getal dan 0 staat

 

[edmoor]

Klopt, dat was een foutje en is dus in de versie van #12 opgelost.

 

[JanBG]

Werkt, mooi

 

[boomen]

Perfect! dankjewel.

 

[edmoor]

Nog even voor JanBG. Je voorbeeld in #3 is zo voldoende:

Sub Knop1_Klikken()
    If MsgBox("Heb je de goede cel geselecteerd?", vbYesNo, "Maak keuze") = vbYes Then
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub