fout in mijn programmaatje

[Shery]

Ik heb een programma gemaakt en deze beveiligt met een password "test"
nu heb ik een fout melding als ik de button opslaan gebruik dit komt waarschijnlijk door het bereik welke ik er ook in heb moeten zetten voor de cellen welke wel bewerkt mogen worden
hij loopt op de onderstaande regel vast
Workbooks("calculatie29.xls").Sheets("Blad1").Cells.Copy
With NewBook.Sheets(1).Range("A1")
.PasteSpecial xlPasteAll 'Values
.Select
End With

wie o wie kan mij helpen

zie ook bijgaand progje

 

[vanschagen]

er staat wat geels in je code ,ik ga geen moeite doen om dat te lezen,is namelijk niet zichtbaar

 

[Shery]

daarmee wilde ik aangeven op welke regel hij vast loopt
maar ik heb hem gelijk aangepast

 

[snabbi]

Hier werkt het gewoon. Wel krijg ik 2 keer de melding of ik wel zeker weet of ik werkbladen wil verwijderen. Dat is op te lossen via Application.DisplayAlerts = False

 

[Shery]

snabbi,

kan dat soms liggen aan de versie waar ik mee werk Excel 2002 sp3
bij mij werkt het nog steeds niet wel zijn de meldingen nu weg dankzij
Application.DisplayAlerts = False :thumb:

 

[snabbi]

Ik gebruik excel 2003. Wat is precies de foutmelding die je krijgt, want wellicht kan je er omheen programmeren.

 

[Wigi]

Ik kan het gewoon uitvoeren.

Waarom selecteer je trouwens? Zie .Select in jouw code uit de vraag.

Waarom doe je xlPasteAll? Dat is toch hetzelfde als de gewone Kopiëren-Plakken?

 

[Shery]

Nou als ik op de button opslaan klik blijft hij hangen is het gedeelte dat hij het blad wil plakken in het nieuwe blad
PasteSpecial xlPasteAll 'Values

en krijg ik de foutmelding

Fout-2147417848(80010108) tijdens uitvoering
Methode PasteSpecial van object Range is mislukt

Hoop dat je hier iets op weet

 

[Shery]

Ik kan het gewoon uitvoeren.

Waarom selecteer je trouwens? Zie .Select in jouw code uit de vraag.

Waarom doe je xlPasteAll? Dat is toch hetzelfde als de gewone Kopiëren-Plakken?

Ja nu loopt hij weer gewoon door en krijg de fout melding niet meer
alleen jammer nu slaat hij om de een of andere reden de vooraf aangegeven dir naam over welke in de cellen staan op blad1 ??? (zie tekst bold)

Do
FName = Application.GetSaveAsFilename(InitialFileName:=Sheets("Blad1").Range("D2") & "_" & Sheets("Blad1").Range("C6")) Loop Until FName <> False
If Right(FName, 3) = "xls" Then
NewBook.SaveAs Filename:=FName
Else
NewBook.SaveAs Filename:=FName & "xls"
End If