Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Forumleden,
Ik ben voornemens om een code vanuit een module d.m.v. een knop op te roepen en dat deze alleen vanuit kolom 9 geactiveerd moet worden. Ik krijg nu de foutmelding: "Object vereist"
Normaal werkt dat prima, echter dus niet vanuit een module. Hoe kan ik dit aanpassen dat het wel functioneert.
Alvast heel hartelijk dank.
Robert
Ik ben voornemens om een code vanuit een module d.m.v. een knop op te roepen en dat deze alleen vanuit kolom 9 geactiveerd moet worden. Ik krijg nu de foutmelding: "Object vereist"
Code:
Sub pstcdpltskopieren()
[COLOR="#FF0000"]If Target.Column <> 9 [/COLOR]Then
MsgBox ("De cursor staat niet op de positie van de postcode? Herstel dit en druk vervolgens op de knop")
Exit Sub
Else
Code = ActiveCell.Offset(0, 0)
Plaats = ActiveCell.Offset(0, 1)
Sheets("Pstcd-plts").Select
Application.EnableEvents = False
Range("A2").Select
Selection.End(xlDown).Select
rij = 1 + ActiveCell.Row
Sheets("Pstcd-plts").Select
ActiveSheet.Unprotect
Cells(rij, 1) = Code
Cells(rij, 2) = Plaats
Sheets("Posten").Select
ActiveCell.Offset(0, 1) = "=IFERROR(IF(RC[-1]<>"""",VLOOKUP(RC[-1],'Pstcd-plts'!R2C1:R496C2,2,0),""""),""Plaats onbekend"")"
End If
End Sub
Normaal werkt dat prima, echter dus niet vanuit een module. Hoe kan ik dit aanpassen dat het wel functioneert.
Alvast heel hartelijk dank.
Robert