macro aanpassen

[belcitas]

wie kan mij helpen met het bijgevoegde voorbeeld
ik heb het gemaakt met hulp van diverse mensen
het werkt prima maar ik kan bij namen wel echte namen invoeren maar dan krijg ik steeds de foutmelding 91
in het kumulatieve bestandje gaat het niet goed
wie kan voor mij dit aanpassen zodat ik namen in kan voeren
ik heb geen idee hoe ik dat moet doen aangezien ik totaal niet op de hoogte ben met macro's (regel f.offset geeft foutmelding)

Sub VenA_click()
With Sheets("spel")
For Each cl In .Columns(2).SpecialCells(-4123)
Set f = Sheets("cum stand").Columns(1).Find(cl.Value, , xlValues, xlWhole)
f.Offset(, Split(.Range("AG3").Value)(1)) = cl.Offset(, 31).Value
Next
On Error Resume Next
Range("C4:AF28").SpecialCells(2, 1).ClearContents
End With
End Sub

 

[emields]

lijkt me opgelost.

 

[belcitas]

heel hartelijk bedankt voor uw oplossing

 

[snb]

Plaats de volgende keer svp VBA code tussen code tags !

zie: https://www.helpmij.nl/forum/announcement.php?f=5

 

[belcitas]

oke
zal er rekening mee houden

 

[emields]

Als het probleem opgelost is, stel dan de vraag als opgelost in uw eerste post.

 

[belcitas]

probleem opgelost

 

[emields]

Vergeet aub niet de vraag als opgelost te zetten.

 

[belcitas]

opgelost

 

[emields]

in uw eerste post (vraag) rechtsboven kan je uw vraag als opgelost zetten.