afvangen wegschrijven (overschrijven)

[devlam]

Er word een werkmap FACTUUR opgehaald waarin het goede factuur No staat .
Deze factuur word na invulling weggeschreven op factuur No en daarna met 1 verhoogd.
Om nu de volgende keer weer het goede factuur No te laden word de werkset weer vernoemd naar FACTUUR .
Maar dan komt het probleem deze bestaat reeds en volgt de vraag overschrijven .
Deze vraag wil ik niet zien en er moet altijd worden overschreven .
Zodat ik bij een volgende start het goede No heb.


Nu staat er :

Private Sub CommandButton1_Click()

Dim MyName
    MyName = Range("b2").Value & "" & Range("c13").Value
    ChDir "C:\doelen\2014\nota"
   ActiveWorkbook.SaveAs Filename:=MyName & ".xlsm"
Range("C13").Value = Range("C13").Value + 1
Range("H13").Select
    Selection.ClearContents
    Range("E15:G15").Select
    Selection.ClearContents
    Range("E17:G17").Select
    Selection.ClearContents
    Range("E19:G19").Select
    Selection.ClearContents
    Range("A23:C42").Select
    Selection.ClearContents
    Range("E15:G15").Select
MyName = Range("b2").Value & "" & Range("R1").Value
    ChDir "C:\doelen\2014"
   ActiveWorkbook.SaveAs Filename:=MyName & ".xlsm"
End Sub

Wat moet er nu tussen / aangevuld zodat de vraag van bestaat reeds niet meer komt.
Wie heeft de oplossing

 

[VenA]

Ik neem aan dat je nieuw bent op dit forum.. Dus welkom. Mijn Zuid-Afrikaans is helaas een beetje weggezakt dus als de vraag in het Nederlands kan, dan graag. Om de leesbaarheid van code wat beter te maken zijn er codetags uitgevonden. Alle Range().select kan weg even als de Selection.ClearContents.

Beter kan je even een voorbeeldje uploaden.

 

[devlam]

Deze zijn nodig om de vorige factuur te wissen en zodoende weer een nieuwe factuur met een nieuw factuur No te verkrijgen.
Dit is normaal Nederlands of niet dan.
Indien het niet duidelijk is mijn excuus , het antwoord was dat ook niet.

 

[HSV]

Vanaf reageervenster veranderd, dus graag testen in een testbestand.

Private Sub CommandButton1_Click()
Dim MyName as string
MyName = "C:\doelen\2014\nota\" & Range("b2").Value & "" & Range("c13").Value
   ActiveWorkbook.SaveAs Filename:=MyName & ".xlsm"
Range("C13").Value = Range("C13").Value + 1
   Range("H13, E15:G15, E17:G17, E19:G19,A23:C42").clearcontents
         MyName = "C:\doelen\2014\" & Range("b2").Value & "" & Range("R1").Value
   application.displayalerts = false
    ActiveWorkbook.SaveAs Filename:=MyName & ".xlsm"
  application.displayalerts = true
End Sub

 

[devlam]

Beste Harrie

De oplossing werkt perfect met GROTE dank.
Hopelijk mag ik in de toekomst ook eens voor dirigent spelen.

M.Vr.Gr Gerard