een verborgen symbool tevoorschijn laten komen

[snb]

Dan wellicht deze code wel:

Private Sub CommandButton1_Click()
  with Sheets("Blad2")
     .cells(rows.count,1).end(xlup).offset(1).resize(,2)=array(.range("C1"),.Range("I21"))
     .range("E4,E12").clearcontents
  end with
  CommandButton1.Visible = False
End Sub

@cobbe
Het is verstandig bij 'ranges' altijd aan te geven uit welk werkblad ze komen: [E4], [C1], [I21] kan anders onvoorspelbare resultaten geven.

 

[jv345]

Hallo,

Ik dacht het te snappen maar toch niet.
De eerste commandbutton en de codes hierachter werken goed.
Dus vol goede moed heb ik op een volgend tabblad weer de werkzaamheden, volgens het filmpje van Cobbe, uitgevoerd.
En nu werkt het niet meer.
Button aanmaken is gelukt ( dit heet ook weer nummer 1!!!) Dubbelklik en je komt terecht in VBA. Plaatsje erbij gezocht en de code aangepast.
Ik heb in VBA de naam Commandbutton 1 aangepast naar 2. Toch pakt nu de eerste button ook deze code en andersom ook.
Wat doe ik fout?
groet,
John