Kopie opslaan

Status
Niet open voor verdere reacties.

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen,

Heb vorige week hier code in bijlage "gestolen" en wat aangepast.
Alles werkt zoals ik wil, maar mijn kopiesteller zou tot 500 moeten gaan en dan overschreven worden door 1

Dus Loop 1-500-1-500-...

Maar mijn teller blijft tellen, kan iemand dit eens bekijken aub?

bedankt alvast!
 

Bijlagen

  • Testopslaan.xlsm
    17,7 KB · Weergaven: 41
Maak er eens dit van:
If .Range("A1").Value >= 500 Then
 
Blijft optellen....Zit ondertussen aan 515...:-(

'EDIT': Foute code aangepast, code Edmoor werkt!

Afgesloten...
 
Laatst bewerkt:
Alles werkt zoals ik wil, maar bij het afsluiten duurt 'het nadenken' een 3 tal seconden...

Heb bij het before_close event Application.screenupdating = False en True gebruikt, maar dit helpt niets...

Kan ik hier nog iets inzetten?
 
Afgezien van het opslaan naar een netwerkschijf zit daar niets in dat de boel kan vertragen.
 
Nog 2 probleempjes

* Als ik op afsluiten klik (in de "echte" file) en dan annuleren neem, blijft deze niet gewoon in de file, maar komt het scherm van de file zelf erop met (Wilt u de wijzigingen opslaan? Opslaan - Niet opslaan - annuleren)
Als ik dan annuleren neem gebeurt er niets, maar dit tweede overbodige scherm zou ik weg willen.

* Als men file opent zet de teller telkens value+1, dit getal wordt dan gebruikt bij het wegschrijven van de back up. Als men file via bovenstaande vraag "Bestand opslaan" Opslaan neemt, wordt deze gesloten en opgeslagen als back up. Nu als men deze afsluit zonder opslaan en telkens opent is de teller ook steeds value+1
Dus in de map back up krijg ik deze files;

Back up 1
Back up 2
Back up 5
Back up 11

Nummers volgen niet...

Bedankt!
 
Dat betekent dus dat je dat nummer op het verkeerde moment verhoogt.
 
Ja, klopt!

Ik zou deze dus enkel moeten verhogen als men in het Pop up scherm: "Bestand opslaan", "Ja" kiest?

Zo? Maar nu krijg ik foutmelding op Sheets("Blad2").Save, of kan ik hier best terug ActiveWorkbook.save maken?

Code:
Sub Opslaan_copy()

If Not ThisWorkbook.ReadOnly Then
           
            Select Case MsgBox("Bestand opslaan?", vbYesNoCancel, "Vraagske")  '3 keuze box openen, "Ja/Nee/Annuleren"
            
            Case Is = vbYes 'Wanneer "Ja", opslaan op de locaties hieronder
                Dim Origname As String
                    Application.DisplayAlerts = False
                    With Sheets("Blad2")
                         .Range("A1").Value = .Range("A1").Value + 1
                          Sheets("Blad2").Save
                            If .Range("A1").Value >= 500 Then
                            .Range("A1").Value = 1
                            End If
                    End With

                        ActiveWorkbook.SaveAs "W:\AS_ONDH\9. Mappen van WVB-IBT-WM\" & Replace(Environ("username"), ".", " ") & " " & Sheets("Blad2").Range("A1")
                        'ActiveWorkbook.SaveAs "C:\map 1\" + ActiveWorkbook.Name
                    Application.DisplayAlerts = True
                Exit Sub 'Afsluiten bestand na het opslaan
                
                Case Is = vbCancel 'Wanneer "Annuleren", terug naar bestand
                  Cancel = True
                        
                Case Is = vbNo 'Wanneer "Nee", afsluiten zonder opslaan
                  ThisWorkbook.Saved = True
            Exit Sub 'Afsluiten "ingeval van gebruiker..."
    End Select
    
End If
 
End sub
 
Laatst bewerkt:
Heb van Sheets("Blad2").Save, ActiveWorkbook.save gemaakt en lijkt te werken...

Of zit hier mss nog een addertje onder het gras?
 
Mijn tweede puntje paar dagen getest en werkt...

Alleen punt 1 krijg ik niet opgevangen;

* Als ik op afsluiten klik (in de "echte" file) en dan annuleren neem, blijft deze niet gewoon in de file, maar komt het scherm van de file zelf erop met (Wilt u de wijzigingen opslaan? Opslaan - Niet opslaan - annuleren)
Als ik dan annuleren neem gebeurt er niets, maar dit tweede overbodige scherm zou ik weg willen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan