Kopieer probleem

[Jack Nouws]

Hallo

Ik zit met een macro probleem om deze kopieer code weer werkbaar te maken, wie kan me helpen hiermee?

Met vr gr
Jack

Sub CmdCopyOpslaan()
  Set Copy = Workbooks.Add
 ThisWorkbook.Worksheets(1).Range("A1:P71").Copy
    Copy.Worksheets(1).Paste
    Copy.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
            Range("B2").Select

End Sub

End Sub

 

[Wigi]

Bij mij werkt dit goed, al zou ik variabelen wel declareren en het mierenspoor van het kopiëren achteraf weghalen.

 

[Jack Nouws]

Bij mij werkt dit goed, al zou ik variabelen wel declareren en het mierenspoor van het kopiëren achteraf weghalen.

Bij mij wordt het gekopieerde bereik niet weer gegeven?
Hoe kan het dat het bij jou wel werkt dan?

Met vr gr
Jack

 

[Wigi]

Bij mij wordt het gekopieerde bereik niet weer gegeven?
Hoe kan het dat het bij jou wel werkt dan?

Met vr gr
Jack

Kijk je wel op het juiste blad/bestand/bereik, ...

 

[Jack Nouws]

Kijk je wel op het juiste blad/bestand/bereik, ...

Het bestand waar het gekopieerde gedeelte moet terecht komen blijft in beeld en cel B2 is geactiveerd en wanneer ik dan op enter druk word het bereik zichtbaar maar er is nog geen tekst en nog juiste kolombreedten geplaatst. Hoe kan dit?

Met vr gr
Jack

 

[Jack Nouws]

Het bestand waar het gekopieerde gedeelte moet terecht komen blijft in beeld en cel B2 is geactiveerd en wanneer ik dan op enter druk word het bereik zichtbaar maar er is nog geen tekst en nog juiste kolombreedten geplaatst. Hoe kan dit?

En bij deze Code is het ook al het zelfde. Een pracht code maar er
valt niets te zien.

Sub kopiie()
Set NieuwBest = Workbooks.Add
    ThisWorkbook.Worksheets(1).Range("B2:P71").Copy
    NieuwBest.Worksheets(1).Range("B2").PasteSpecial Paste:=xlFormats
    NieuwBest.Worksheets(1).Range("B2").PasteSpecial Paste:=xlValues
    NieuwBest.SaveAs Filename:="C:\Documents and Settings\Mijn documenten\Inkoop Orders\Order " & Range("E13").Value & ".xlsm"

End Sub

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

 NieuwBest.SaveAs Filename:="C:\Documents and Settings\Mijn documenten\Inkoop Orders\Order " & Range("E13").Value & ".xlsm"

Bij mij gaf hij eerst aan dat de extentie veranderd moest worden, heb ik xls van gemaakt.
Ik heb toen bij mij even de dir.aangemaakt en het werkte niet direct omdat ik vergeten was om de sub dir. Mijn documenten aan te maken.
De dir. C:\Documents and Settings\Mijn documenten\Inkoop Orders moet dus wel bestaan.
Toen dit klopte werkte hij wel.