jaartal doortellen.

[schilderehbo]

Hallo kenners,

Ik heb via dit forum een factuur progamma gemaakt en werkt fantastisch.
Maar ik moet elk jaar alle macro's doorlopen en aanpassen. Kan ik dit ondervangen dat het bij het nieuwe jaar gewoon weer op factuur
1 begint.

Alvast bedankt voor de moeite

Heb hier de macro:

    ActiveSheet.Unprotect Password:="0104khhh67"
    
    Range("C6").Select
    ActiveCell.FormulaR1C1 = Date
    Range("E60").Select
    ActiveCell.FormulaR1C1 = Date + 14
    Range("E63").Select
    ActiveCell.FormulaR1C1 = "=R[-56]C[-2]"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = _
        "=TRUNC((R[-2]C-WEEKDAY(R[-2]C,2)+4-DATE( YEAR(R[-2]C-WEEKDAY(R[-2]C,2)+4), 1, 1))/7)+1"
    Range("F17").Select

    mypath = "C:\EHBO - 2018\Administratie EHBO 2018\Facturatie 2018\"
    Aantal = 2018000
 
    MyName = Dir(mypath, vbDirectory)
    Do While MyName <> ""
    If MyName <> "." And MyName <> ".." Then
        If (GetAttr(mypath & MyName) And vbDirectory) <> vbDirectory And Left(MyName, 4) = "2018" Then
            Aantal = Aantal + 1 ' Count entry
        End If
    End If
    MyName = Dir
    Loop
 
    ThisWorkbook.Sheets("Factuur").Range("C7") = Aantal + 1
    Sheets("Factuur").Select
    Range("B19:F19").Select
    Selection.ClearContents
    ActiveSheet.Protect Password:="0104khhh67"
    Range("F17").Select
    
End Sub

 

[JeanPaul28]

hoe ziet er dat faktuur programma uit

 

[schilderehbo]

hoe ziet er dat faktuur programma uit

Simpel excel sheets meer niet maar werkt perfect. Telt alles netjes door dus geen dubbele facturen en ook offerte's heb ik er in verwerkt met unieke offerte nummers.

 

[JeanPaul28]

Mogen we het excel bestand ook zien zonder gevoelige info

 

[schilderehbo]

Mogen we het excel bestand ook zien zonder gevoelige info

nee helaas maar deze macro is het belangrijkst dus deze moet ik zo aanpassen dat het werkt. Aan alle andere tabbladen en macro's hebben jullie niets aan.

 

[edmoor]

Onbegrijpelijke reactie van iemand die om hulp vraagt.

 

[schilderehbo]

Onbegrijpelijke reactie van iemand die om hulp vraagt.

Gaat om deze macro meer niet.

 

[gast0660]

Gaat om deze macro meer niet.

Dit is mijn antwoord, meer niet.

Begin maar met alle overbodige selects uit je macro's te halen.
Select en activate is zelden nodig,het vertaagt alleen je code.
Dit

Range("C6").value = Date

doet net hetzelfde als

Range("C6").Select
    ActiveCell.FormulaR1C1 = Date