Scores in ander blad kopieren.

[pd1lg]

Hallo,

Ik heb hulp nodig bij het volgende,
Ik ben nu 4 maand bezig met Excel 2013, om een biljart score programma te maken.
Tot nu toe lukt het aardig, maar loop vast bij het volgende probleem.
In het scherm OC Start worden de spelers met hun scores ingevoerd en automatisch uitgerekend hoeveel punten ze behaald hebben.
De scores in column GCAR en MP wil ik kopiëren naar het blad Totaal bij de betreffende speler en de wedstrijd nummer.

In het voorbeeld heb ik week/wedstrijd 15 staan. En nr 8, R. de Vries moet 27 caramboles maken en heeft 27 caramboles gemaakt.
Zijn tegenstander nr 26, G. den Herder moet 15 caramboles maken, maar heeft er 16 caramboles gemaakt.
De scores van nr 8, R. de Vries en nr 26, G. den Herder moeten automatisch in het Blad totaal gezet worden in column W15 (week/wedstrijd 15) bij nr 8, R. de Vries en nr 26, G. den Herder.

Hier een voorbeeld bestand: Bekijk bijlage OC26Voorbeeld.xlsm
Ik gebruik een paswoord om te voorkomen dat programmering overschreven word. PW: 2512

Ik hoop dat mijn uitleg zo duidelijk is, en dat iemand mij kan helpen.

 

[pd1lg]

Jammer

Blijkbaar heeft niemand een idee, hoe dit op te lossen.
Ik dacht zelf met Vert.zoeken. Maar als ik het hoofdscherm (OC Sart) leegmaak, zijn ook de gegevens in Totaal weg.

Misschien denk ik te moeilijk, maar ik kom er niet uit.

 

[peter59]

Hallo,

Bijna alle sheets staan vol met VBA codes.
Ik denk dat je het daar moet gaan zoeken cq aanpassen.
Ik ben absoluut geen held in VBA maar op dit forum zijn er meesters in zulk soort problemen.

Mvg
Peter.

 

[Leotaxi]

kijk eens of deze goed is,

wel de code before close terug activeren, heb er effe ' voorgezet


mvg
Leo

 

[pd1lg]

Dank je wel Leo, dit is precies wat ik bedoelde.

Peter ook nog bedankt voor jouw reactie

mvg
Lambert

 

[VenA]

Ik denk dat je beter even alle code eens rustig moet bekijken. Veel staat op een verkeerde plaats.

Je kan bv de code voor SpinButton1 reduceren tot

Private Sub SpinButton1_Change()
    SpinButton1.Min = 1
    SpinButton1.Max = 25
    TextBox1 = SpinButton1
    Range("V1") = SpinButton1
    Range("G4:G16") = Sheets("SR7").Cells(3, SpinButton1).Resize(13).Value
    Range("N4:N16") = Sheets("SR7").Cells(16, SpinButton1).Resize(13).Value
    ar = Sheets("TOTAAL").Range("A7:AB84")
        For j = 1 To 13
            For jj = 1 To UBound(ar)
                If ar(jj, 1) = Cells(j + 3, 7) Then c00 = c00 & ar(jj - 1, SpinButton1 + 3) & "|"
                If ar(jj, 1) = Cells(j + 3, 14) Then c01 = c01 & ar(jj - 1, SpinButton1 + 3) & "|"
            Next jj
        Next j
    Range("J4:j16") = Application.Transpose(Split(c00, "|"))
    Range("Q4:Q16") = Application.Transpose(Split(c01, "|"))
End Sub

Waarbij ook gelijk de waarden worden opgehaald.

In een bladmodule

Private Sub Workbook_Open()
        Sheets("OC Start").ScrollArea = "A1:W24"
    End Sub

zetten en in dezelfde module

Private Sub Worksheet_Activate()
With ActiveWindow
.ScrollColumn = 1
.ScrollRow = 1
.Zoom = 120
End With
Sheets("OC Start").ScrollArea = "A1:CC54"
LintTerug
End Sub

Lijkt mij ook niet erg zinvol.

In het voorbeeldje alleen de code voor de 'SpinButton' aangepast.

 

[pd1lg]

Dankjewel VenA, hier ben ik blij mee.
Ik ben soms nogal chaotisch bezig, maar zal er eens rustig voor gaan zitten.

Mvg
Lambert