ALS functie

[Jack Nouws]

Dit geeft een foutmelding?

Public Sub NoteerFactuurnummer()
'Noteer nu het opgehaalde factuurnummer in het werkblad
    Application.GoTo Reference:="Factuurnr."
    ActiveCell.Value = FactuurNummer1
    Application.GoTo Reference:="EersteArtikel"
    DoEvents
End Sub

Overigens moet je bij LeesFactuurnummer De "" weghalen bij

        FactuurNummer1 = "1000"

Dus

        FactuurNummer1 = 1000

Met vriendelijke groet,


Roncancio

Ok mijn nummering heb ik op een andere wijze aangepast ik heb voor een simpelere methode gekozen die verder nog uit te werken is. Nu nog een andere vraag, is deze code verder uit te breiden om dit bestand in een bestaand bestand te plaatsen?

Sub WerkbladNaam()
Dim WBl As Worksheet
    For Each WBl In ThisWorkbook.Worksheets
        If WBl.Range("N14").Value <> "" Then
            WBl.Name = WBl.Range("N14").Value
        End If
    Next
End Sub

Groetjes, Jack

 

[Roncancio]

Ok mijn nummering heb ik op een andere wijze aangepast ik heb voor een simpelere methode gekozen die verder nog uit te werken is. Nu nog een andere vraag, is deze code verder uit te breiden om dit bestand in een bestaand bestand te plaatsen?

Sub WerkbladNaam()
Dim WBl As Worksheet
    For Each WBl In ThisWorkbook.Worksheets
        If WBl.Range("N14").Value <> "" Then
            WBl.Name = WBl.Range("N14").Value
        End If
    Next
End Sub

Groetjes, Jack

Aan welke uitbreiding had je gedacht?
Wil je bovenstaande code aanpassen en toevoegen aan je bestand?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Aan welke uitbreiding had je gedacht?
Wil je bovenstaande code aanpassen en toevoegen aan je bestand?

Met vriendelijke groet,


Roncancio

Nee ik geprobeer nu deze om te bouwen maar het valt niet mee

Sub WerkbladNaam()
Application.Goto Reference:="Werkblad"
Selection.SaveAs Filename:="C:\Documents and Settings\Faktuur bewaren\Faktuur " & Range("N14").Value & ".xlsm"
End Sub

En er hoeft alleen maar een kopie van "Werkblad" opgeslagen te worden en de formules wil ik niet!

Groeten, Jack