Macro werkt wel in oud bestand maar niet in Nieuwe bestand

[HBot]

Wie kan mij helpen met onderstaande,

Deze macro werkt perfect in een ander bestand maar wil deze gebruiken in een nieuw bestandje maar loopt vast op;
regel 5;
Then Blad2.Columns(3).Copy Blad2.Columns(4).Resize(, [c14] - 1)

de copy wordt niet uitgevoerd.

hier de Macro:
--------------------------------------------------------------------------------------
Sub Projectinfo()
'open projectinfo blad en voeg aantal kolommen toe op aantal artikelen.

Sheets("Projectinfo per product").Visible = True
Sheets("Projectinfo per product").Select
ActiveSheet.Unprotect
Sheets("Opstart door PL-AM").Select
If IsNumeric([c14]) And [c14] > 1 Then Blad2.Columns(3).Copy Blad2.Columns(4).Resize(, [c14] - 1)
Sheets("Opstart door PL-AM").Select
Columns("E").Select
Selection.EntireColumn.Hidden = True
Sheets("Projectinfo per product").Visible = True
Sheets("Projectinfo per product").Select
Range("C5").Select
End Sub
--------------------------------------------------------------------------------
gr
Botje

 

[roeljongman]

wat is de foutmelding.

zonder de sheet te zien is mijn enige gok dat Blad2. niet de codename is voor de sheet die je probeert te kopieren. Controleer dus goed naam van de sheet. En let op Blad2 is de codenaam dat is niet de text/naam die zichtbaar is op het tabbladlabel.

 

[HBot]

Zou goed het probleem kunnen zijn.

De naam van het tabblad is anders, maar als ik deze gebruik in de macro ipv blad2 werkt het niet
de melding is dat de regel vanaf
Blad2.Columns(3).Copy Blad2.Columns(4).Resize(, [c14] - 1)
geel wordt.

hoe en waar kan ik die code aanpassen?

 

[HSV]

Kijk eens in je projectverkenner of er wel een Blad2 is.

 

[HBot]

Allen,

bedankt, weer wat geleerd,
het werkt