Plakken met VBA

[NajKwin]

Hallo,

ik gebruik de volgende code om wat te plakken naar een ander tabblad.

Private Sub CommandButton1_Click()
Application.EnableEvents = False
   Blad1.Range("B3:c45").Copy
   Blad2.Range("B2:c38").PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
   Sheets("Sheet1").Select
   Sheet1.Range("T1").Activate
End Sub

Gaat op zich goed alleen als op het te kopiëren blad al gegevens staat vraagt hij of ik het wil overschrijven.

is daar binnen VBA ook een code voor dat ik die bevestiging niet hoef te geven en dat hij onvoorwaardelijk de gegevens plakt?

GR Naj

 

[Haije]

Application.DisplayAlerts = False

om de melding uit te schakelen

Daarna weer aanzetten m.b.v.

Application.DisplayAlerts = True

 

[NajKwin]

Thanks

 

[HSV]

Dit doet hetzelfde.

Private Sub CommandButton1_Click()
   Blad2.Range("B2:c44") = Blad1.Range("B3:c45").Value
End Sub

En dan ligt het eraan waar de knop staat anders kan je "Blad1" of "Blad2" ook nog weglaten.