vb biljartbestandje

[belcitas]

Bijgaand een stukje van een biljartbestand
Ik zou graag in dit bestand ook de poedels per partij en per week willen verzamelen
In dit bestand wordt het gemiddelde ook al doorgeboekt Ik heb geprobeert via deze macro een nieuwe te maken voor de poedels maar hier kom ik steeds foutmelding tegen
Cells(sapr,wak)=sa[/B] zie bijgaande macro
Sub Exportpoedels()

With Sheets("wedstrijd")
w = .[y8].Value
a = .[w12].Value
ap = .[w13].Value
sa = .[w20].Value
b = .[x12].Value
bp = .[x13].Value
sb = .[x20].Value
With Sheets("uitslag punten")
Set sar = .Range("a1:a100").Find(a, lookat:=xlWhole)
If Not sar Is Nothing Then
Set sap = sar.Resize(7).Find(ap, lookat:=xlWhole)
If Not sap Is Nothing Then
sapr = Range(.[a1], sap).Rows.Count
End If
End If
Set wa = .Range("a1:n1").Find(w)
If Not wa Is Nothing Then
wak = Range(.[a1], wa).Columns.Count
End If
.Cells(sapr, wak) = sa

Set sbr = .Range("a1:a100").Find(b, lookat:=xlWhole)
If Not sbr Is Nothing Then
Set sbp = sbr.Resize(7).Find(bp, lookat:=xlWhole)
If Not sbp Is Nothing Then
sbpr = Range(.[a1], sbp).Rows.Count
End If
End If
Set wb = .Range("a1:n1").Find(w)
If Not wb Is Nothing Then
wbk = Range(.[a1], wb).Columns.Count
End If
.Cells(sbpr, wbk) = sb
End With
End With
End Sub

Wie kan mij helpen

 

[OctaFish]

Begin eens met de bovenstaande code tussen CODE tags te zetten.

 

[VenA]

Als de te zoeken gegevens in kolom B staan dan moet je niet gaan zoeken in kolom A

Set sar = .Range("a1:a100").Find(a, lookat:=xlWhole)

sar zal op deze manier leegblijven sapr dus ook en dan gaat het dus fout.

Dit is allemaal eenvoudig te vinden als je met <F8> door de code loopt.