excel formule

[belcitas]

Ik ben maar een leek op excel gebied maar probeer toch zelf iets te maken
Maar nu loop ik vast en mijn vraag is wie kan mij helpen aan een formule die de namen uit het rolmenu op M6 en M8 automatisch bij de juiste personen plaatst in het blad uitslagen + moet de uitkomst van het gemiddelde van H25 en J 26 en dit per partij ook de juiste namen van het blad uitslagen komen
zie voorbeeld bestandje

 

[Cobbe]

Kun je hier iets mee doen?

 

[belcitas]

Hartelijk dank voor uw snelle reactie Het door U aangepaste testbestandje is exact wat ik bedoel maar ik heb getracht het te verwerken in het originele bestand en dan krijg ik steeds een foutmelding als ik de kolom WEGSCHRIJVEN gebruik
Fout 91 tijdens uitvoering Objectvariabele of blokvariabele With is niet ingesteld
Foutopbouw:Cells (rl.RW,k.Column = Cells(25, "H ")
Ik heb de cel met wegschrijven vanuit het testbestand naar het originele gekopieerd en dat zal wel niet de bedoeling zijn
Zou U me hierin verder kunnen helpen want als het een macro is ben ik helemaal een leek want daar heb ik nog nooit mee gewerkt
Als het zo niet mogelijk is wil ik U eventueel het originele bestand toesturen

Met vr gr
c.v.loon

 

[Cobbe]

Deze code moet je in een Module plakken van je bestand, hoe je dat doet heb ik gefilmd.

Sub Wegschrijven()
With Sheets("Uitslagen")
Set k = .Range("B2:F2").Find(Range("H12"))
Set r1 = .Range("A4:A10").Find(Range("H14"))
 If Not r1 Is Nothing Then
  .Cells(r1.Row, k.Column) = Cells(25, "H")
  Range("H19,H21,H23").ClearContents
 End If
Set r2 = .Range("A4:A10").Find(Range("J14"))
 If Not r2 Is Nothing Then
  .Cells(r2.Row, k.Column) = Cells(25, "J")
  Range("J19,J21,J23").ClearContents
 End If
 End With
End Sub

Filmpje 'how do they do it'
Hier te downloaden:
https://we.tl/2L0RTcB6Ih

 

[HSV]

Deze code moet je in een Module plakken van je bestand, hoe je dat doet heb ik gefilmd.

Misschien zijn er mensen die het filmpje graag willen zien Cobbe.

 

[Cobbe]

Ja stom hé, heb het toch nog toegevoegd.

 

[belcitas]

Beste Cobbe
Dank voor je filmpje ik heb dit heel vaak bekeken maar het lukt mij niet om dit "wegschrijven" werkend in mijn origineel programma te krijgen
ik heb naar mijn mening alles gedaan volgens het filmpje maar het lukt niet
ik ben zo vrij om het originele programma mee te sturen en U te vragen of U dit erin kunt zetten,want ik ziet nu muurvast
bij voorbaat mijn hartelijke dank

m vr gr
c.v.loon

 

[Cobbe]

Zo dan?

 

[belcitas]

formule excel

Dank U voor Uw snelle reactie
ik heb het uitgeprobeert maar als ik wegschrijven indruk zijn de formules uit
gemaakte punten,beurten en hoogste reeks verdwenen deze moeten wel blijven werken

mv gr
c.v.loon

 

[Cobbe]

Vervang dan de code door deze:

Sub Wegschrijven()
With Sheets("Uitslagen")
Set k = .Range("A2:F2").Find(Range("AD7"))
Set r1 = .Range("A4:A15").Find(Range("AJ6"))
 If Not r1 Is Nothing Then
  .Cells(r1.Row, k.Column) = Cells(25, "AE")
  Range("AE19,AE21,AE23").ClearContents
 End If
Set r2 = .Range("A4:A15").Find(Range("AJ8"))
 If Not r2 Is Nothing Then
  .Cells(r2.Row, k.Column) = Cells(25, "AG")
  Range("AG19,AG21,AG23").ClearContents
 End If
 End With
[AE19].FormulaLocal = "=MAX(D6:E30;M6:N30;V6:W30)"
[AE21].FormulaLocal = "=AANTAL(C6:C30;L6:L30;U6:U30)"
[AE23].FormulaLocal = "=MAX(C6:C30;L6:L30;U6:U30)"
[AG16].FormulaLocal = "=MAX(H6:I30;Q6:R30;Z6:AA30)"
[AG21].FormulaLocal = "=AANTAL(G6:G30;P6:P30;Y6:Y30)"
[AG23].FormulaLocal = "=MAX(G6:G30;P6:P30;Y6:Y30)"
End Sub

 

[belcitas]

Dank U voor Uw medewerking
is nu gelukt (zat nog wel een klein foutje in maar heb ik zelf opgelost)

mvgr
c.v.loon