vba code voor button

[Ghost]

Goedemorgen allemaal

Ik ben bezig met een excel sheet die een beetje aan de grote kant is. Nu wil ik delen van de sheet
kunnen kopieren door op een button te klikken. Deze sheet zal dus een aantal van deze buttons gaan krijgen.
Nadeel is dat ik wil dat hij de copy in een nieuw workbook zet, zodat ik dit gelijk kan mailen of bewerken, en niet in dezelfde workbook. De code hieronder zet het in dezelfde workbook.
dit is wat ik nu heb:


Private Sub CommandButton1_Click()
Set existsheet = ActiveSheet
Set NewWorkbook = Worksheets.Add
NewWorkbook.Name = "france"
NewWorkbook.Range("A1:ce22").Value = existsheet.Range("A1:ce22").Value
End Sub


Mijn doel is dat de button alleen de waarde en layout meeneemt. Niet de formule's.

 

[DCWDPT]

Als je de range die je in het nieuwe sheet zet, kopieert, kun je met Plakken speciaal er voor zorgen dat alleen de waarden en opmaak worden gekopieerd.

Selection.PasteSpecial Paste:=xlPasteValues, Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Ghost]

Maar dan zit ik nog steeds nidelfde workbook. hij moet een nieuw workbook openen en daar de betreffende area naartoe kopieren.

 

[Warme bakkertje]

Sub kopie()
[A1:CE22].Copy
Workbooks.Add
With [A1]
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With
[A1].Select
ActiveWorkbook.SaveAs Filename:="D:\Mijn documenten\france"
End Sub

Mvg

Rudi

 

[Ghost]

Ik krijg de foutmelding ter hoogte van a1 select.
Hij opent in ieder geval al een nieuwe sheet. (heet nu nog book 1)

 

[Warme bakkertje]

Die mag er eigenlijk tussenuit of zet hem eens als laatste regel

Mvg

Rudi

 

[Ghost]

Tot nu toe zijn we op de goede weg. Thanks. kleine maar.
ok. dit is wat ik tot nu toe heb:

Private Sub CommandButton1_Click()
[A1:CE22].Copy
Workbooks.Add
With [A1]
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\latop.sscl\Desktop\france"
End Sub


hij maakt de sheet. Hij noemt hem ook France. zet hem netjes op de desktop.
maar vult hem niet.

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
[A1:CE22].Copy
Workbooks.Add
With Selection
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\latop.sscl\Desktop\france"
End Sub

Mvg

Rudi

 

[trucker10]

Ik heb deze aanpassing gedaan in de code van Rudy .

.PasteSpecial xlPasteValuesAndNumberFormats

 

[Ghost]

Jaaaaaaaaaaaaa:thumb: het werkt:thumb:
haha. ik ben enorm geholpen. Bedankt voor de hulp