Fout in Darts schema

[pd1lg]

Goedemiddag,

Ik heb een Dartsschema gemaakt, in het begin werken de formules prima.
Maar vanaf L32 verdwijnen de formules als ik de scores invul.
Ik kan de fout niet vinden. Misschien als een van jullie eens wil kijken.

 

[popipipo]

=IF($J[COLOR="#FF0000"]$[/COLOR]6="";"";IF($J[COLOR="#FF0000"]$[/COLOR]6>$J[COLOR="#FF0000"]$[/COLOR]7;$I[COLOR="#FF0000"]$[/COLOR]6;$I[COLOR="#FF0000"]$[/COLOR]7))
=IF($J$10="";"";IF($J$10>$J$11;$I$10;$I$11))

Verwijder eens een deel van de $-tekens

=IF($J6="";"";IF($J6>$J7;$I6;$I7))
=IF($J10="";"";IF($J10>$J11;$I10;$I11))

Dan kun je deze formule door kopiëren naar de de juiste cellen daaronder.

 

[pd1lg]

de formules zijn goed.

De formules zijn goed, het gaat erom, als ik scores invul een formule verdwijn of veranderd.
kijk naar O7 en O8, de namen staan goed, totdat ik in P8 en P9 de score invul. Dan veranderd de formule in O8.

 

[pd1lg]

Het probleem zat hem in Visual Basic.

 

[emields]

wat is de bedoeling van die macro? Iedere keer als er iets veranderd op het blad een hoop lege cellen kopiëren en plakken?

 

[popipipo]

De formules zijn goed

Ik zou daar dan toch nog maar even goed naar kijken want in cellen D14 en D15 wint Adam van Richie.
en bij ronde L32 in cel O16 staat opeen Richie weer en is Adam verdwenen.

Maar als jij dat goed vind dan vind ik het ook goed.

 

[pd1lg]

wat is de bedoeling van die macro? Iedere keer als er iets veranderd op het blad een hoop lege cellen kopiëren en plakken?

Hoe bedoel je?
Er zitten geen macro in de wkdarts.

De formules die erin staan, zijn ervoor om, na invoer van de score, de speler die gewonnen heeft naar de volgende ronde te plaatsen.

 

[emields]

Het probleem zat hem in Visual Basic.

Hoe bedoel je?
Er zitten geen macro in de wkdarts.

hrt probleem zit dus in iets wat er niet is?

 

[AlexCEL]

Grappig draadje.

De formule in kolom O is gedeeltelijk fout, want verwijst naar verkeerde cellen. TS vindt van niet..
Wordt opmerking gemaakt over macro (druk eens op Alt+F11, zitten er duidelijk in...). TS vindt dat hij geen macro's heeft.

Tip: luister wel naar gemaakte opmerkingen...

 

[pd1lg]

Grappig draadje.

De formule in kolom O is gedeeltelijk fout, want verwijst naar verkeerde cellen. TS vindt van niet..
Wordt opmerking gemaakt over macro (druk eens op Alt+F11, zitten er duidelijk in...). TS vindt dat hij geen macro's heeft.

Tip: luister wel naar gemaakte opmerkingen...

Dat is geen macro maar VBA, en dat was nou net het probleem. Die heb ik verwijderd.

 

[pd1lg]

hrt probleem zit dus in iets wat er niet is?

Er zitten geen macro in, maar wel VBA, Visual Basic Applicatie . Het probleem zit in de VBA(die er dus wel is). Die moet verwijderd worden, dan werkt alles weer naar behoren.

 

[AlexCEL]

Blijft grappig. Maar mooi dat het opgelost is.

 

[HSV]

Even voor de duidelijkheid.
Dit zijn dus allemaal macro's die in jouw bestand staan.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Call Wissen_vlaggen
    Call kopieren_vlaggen
    Target.Offset(1, 0).Select
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    
End Sub

Sub Wissen_vlaggen()
    For Each vorm In ActiveSheet.Shapes
        If vorm.Left > 100 Then 'vlaggen 1e kolom op 58.5
           vorm.Delete
        End If
        nr = nr + 1
    Next vorm
End Sub

Sub kopieren_vlaggen()


For Kolom = 4 To 28 Step 6
    HoogsteRij = ActiveSheet.UsedRange.Rows.Count + 1
    For rij = 1 To HoogsteRij
        zoekwaarde = Cells(rij, Kolom).Value
        If zoekwaarde <> "" Then
            With ActiveSheet.Range(Cells(2, Kolom + 6), Cells(HoogsteRij, Kolom + 6))
                Set S = .Find(zoekwaarde, LookIn:=xlValues)
                If Not S Is Nothing Then 'waarde is gevonden in uitslagen kolom)
                    Cells(rij, Kolom - 1).Copy
                    Cells(S.Row, Kolom + 5).Select
                    ActiveSheet.Paste
                End If
            End With
        End If
    Next rij
Next Kolom
End Sub

Sub t()
Application.EnableEvents = True
End Sub

 

[pd1lg]

Blijft grappig. Maar mooi dat het opgelost is.

Ik vraag me af wat er zo grappig aan is. Of snap je er niets van?

 

[JEC.]

VBA=Macro

 

[pd1lg]

Even voor de duidelijkheid.
Dit zijn dus allemaal macro's die in jouw bestand staan.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Call Wissen_vlaggen
    Call kopieren_vlaggen
    Target.Offset(1, 0).Select
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    
End Sub

Sub Wissen_vlaggen()
    For Each vorm In ActiveSheet.Shapes
        If vorm.Left > 100 Then 'vlaggen 1e kolom op 58.5
           vorm.Delete
        End If
        nr = nr + 1
    Next vorm
End Sub

Sub kopieren_vlaggen()


For Kolom = 4 To 28 Step 6
    HoogsteRij = ActiveSheet.UsedRange.Rows.Count + 1
    For rij = 1 To HoogsteRij
        zoekwaarde = Cells(rij, Kolom).Value
        If zoekwaarde <> "" Then
            With ActiveSheet.Range(Cells(2, Kolom + 6), Cells(HoogsteRij, Kolom + 6))
                Set S = .Find(zoekwaarde, LookIn:=xlValues)
                If Not S Is Nothing Then 'waarde is gevonden in uitslagen kolom)
                    Cells(rij, Kolom - 1).Copy
                    Cells(S.Row, Kolom + 5).Select
                    ActiveSheet.Paste
                End If
            End With
        End If
    Next rij
Next Kolom
End Sub

Sub t()
Application.EnableEvents = True
End Sub

Met macro kun je handelingen opnemen, en ja die komen ook in de Visual Basic editor te staan. Maar deze functie zijn zo met de hand geprogrammeerd. Voor mijn is dat anders. En prima dat jij er anders over denkt.

 

[peter59]

Hallo pd1lg

Zie deze link en kijk eens wat het verschil is tussen VBA en een macro. Eigenlijk, geen.
https://www.gratiscursus.be/Excel_automatiseren/ExcelAut_les014.html

 

[HSV]

. En prima dat jij er anders over denkt.

Nee ik niet, jij denkt daar anders over en ten onrechte!

Sla het werkboek op als .xlsx bestand en je bent van al je macro's af.

 

[pd1lg]

juiste versie

ff de goede versie hier plaatsen.

En een goed nieuwjaar.

 

[emields]

misschien kan je deze eens proberen. zie ook de macro's