foutmeldin bij selecteren meerdere checkboxen

[ronald1986]

Goedemiddag,

Via een userform selecteer ik checkboxen. Als ik vervolgens op een knop druk moet er onderstaande gebeuren:

If CheckBox1 = True Then
Sheets("Afleveroverzicht").Range("J17:J20").Select
Selection.Copy
Sheets("deleteblankrows").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

If CheckBox2 = True Then
[COLOR="#FF0000"]Sheets("Afleveroverzicht").Range("J28:J31").Select[/COLOR]
Selection.Copy
Sheets("deleteblankrows").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

Wanneer ik CheckBox1 en CheckBox2 beide aanvink en op de knop druk krijg ik telkens een fout bij de rode regel. Weet iemand misschien hoe dit komt? De foutmelding is: "Methode Select van klasse Range is mislukt".

Bvd!

 

[Cobbe]

If CheckBox1 = True Then
  Sheets("Afleveroverzicht").Range("J17:J20").Copy Sheets("deleteblankrows").Range("A1")
End If

If CheckBox2 = True Then
  Sheets("Afleveroverzicht").Range("J28:J31").Copy Sheets("deleteblankrows").Range("A5")
End If

In die code zit geen reden toto foutlopen.
Is de naam wel correct en/of zijn er cellen beveiligd?

 

[ronald1986]

Hmm, als ik jouw code probeer werkt het wel dus de namen zullen goed zijn. Alleen de cellen die gekopieerd worden zijn formules dus daarom deed ik alleen de waarden plakken. Kan dat ook met jouw code?

Bvd,

 

[ronald1986]

Hmmm, ik heb het nu net een beetje anders geprobeerd en nu werkt het ineens wel... Ben dan toch wel benieuwd waarom het eerst niet werkte...

Zo werkt het wel:

If CheckBox1 = True Then
Sheets("Afleveroverzicht Boterolie").Select
Range("J17:J20").Select
Selection.Copy
Sheets("deleteblankrows").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

If CheckBox2 = True Then
Sheets("Afleveroverzicht Boterolie").Select
Range("J28:J31").Select
Selection.Copy
Sheets("deleteblankrows").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

 

[Cobbe]

Sorry had even die waardeplakking !! uit het oog verloren:

If CheckBox1 = True Then
  Sheets("deleteblankrows").Range("A1:A4").Value = Sheets("Afleveroverzicht").Range("J17:J20").Value
End If

If CheckBox2 = True Then
  Sheets("deleteblankrows").Range("A5:A9").Value = Sheets("Afleveroverzicht").Range("J28:J31").Value
End If

Met deze code vermijd je tenminste die select's.