Factuur opslaan

[beeksplace]

Heb een factuur in excel gemaakt met pdf opslaan en mail funktie erin.
Wat ik nu nog graag wil is een funktie op de factuur sheet opslaan als een extra blad in het zelfde workbook en dan graag met autodoornummering.

zeg maar van factuur 1, factuur 2, factuur 3 enz enz, of dat hij kijkt naar het factuur nummer in de factuur of cell waarde

erik

 

[ExcelAmateur]

Heb je de zoekmachine van helpmij al gebruikt?
Als ik het zo bekijkt zijn er zat voorbeelden over facturen.

 

[Niels28]

voorbeeldje

Sub test()
Sheets("Factuur").Copy after:=Sheets(ThisWorkbook.Sheets.Count)
Sheets("Factuur (2)").Name = "Factuur " & ThisWorkbook.Sheets.Count
End Sub

Niels

 

[beeksplace]

Had dit gevonden, maar krijg een error.
Het mooie is dat deze kijkt of het nummer al bestaat.
Excel 2010 word gebruikt.

Sub createNewSheet()

    Dim wsNew As Worksheet
    Dim wsData As Worksheet
    'Rename this sheet to the name of the sheet where your data is located
    Set wsData = ActiveWorkbook.Sheets("Factuur")

    Sheet_name_to_create = Sheet1.Range("J3").Value

For rep = 1 To (Worksheets.Count)
        If LCase(Sheets(rep)).Name = LCase(Sheet_name_to_create)  (deze regel geeft een error)
        Then
            MsgBox "This Sheet already exists"
            Exit Sub
        End If
    Next
    
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(ActiveSheet.Name).Name = Sheet_name_to_create
    Set wsNew = ActiveWorkbook.ActiveSheet

    'Now grab the data from your data worksheet
    Dim myData As String
    myData = wsData.Range("B2:K40").Value

    'Then put it in your newly added sheet
    wsNew.Range("B2:K40").Value = myData

    
End Sub

 

[Haije]

Wat voor foutmelding verschijnt er?

 

[Niels28]

en wat is er mis met mijn code?

Niels

 

[beeksplace]

Error code is:

Run-time error 438
Object doesn't support this property or method

Niks mis met je code Niels.
Maar wil graag dat er geen dubbele nummer voorkomen

 

[beeksplace]

Niels,

Heb je code getest en werkt goed.

Kan het ook zo worden dat hij het factuurnummer er in zet, die in cell j3 staat.

 

[beeksplace]

Hallo Niels,

Heb het al gevonden, keek er elke keer overheen.

Sheets("Factuur (2)").Name = Sheet1.Range("J3").Value