Weet niet waar te plaatsen

[Mansv1966]

Hallo,

Ik heb het volgende probleem als in het volgende tegen DEZE beschreven

Ik heb de code van Haije toegevoegd maar ik krijg nog steeds de melding.

Wie kan mij helpen om de code van Haije op de goede plaats te zetten zodat de melding niet meer verschijnt.

Sub Straat_kopieren()
'
'
    Application.DisplayAlerts = False
    Sheets("Blad1").Select
    Range("AZ2:AZ327").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Invoer").Select
    Range("Y3").Select
    ActiveSheet.Paste    
    Sheets("Blad1").Select
       Range("A1").Select
   Application.DisplayAlerts = True
End Sub

Alvast bedankt.

Mocht iemand deze code korter weten hou ik me aanbevolen

 

[VenA]

Hoe het korter kan staat toch ook in het andere draadje.

Sub VenA()
  Sheets("Invoer").Cells(3, 25).Resize(326) = Sheets("Blad1").Range("AZ2:AZ327").Value
End Sub

 

[Mansv1966]

Dank je VenA,

Je hebt gelijk