kopieren tablad

[don42]

Beste allemaal,

ik heb een vraag
heb een factuur gemaakt met in cel N13 het rekening nummer
nu had ik graag via button vba
dat er een nieuw tablad wordt aangemaakt, kopie dus
activesheet
en cel N13 met 1 ophoogt
het tabblad zou dan (voorlopig) de naam nieuw kunnen krijgen

is dat mogelijk?

Don

 

[HSV]

Tabbladnaam is factuurnummer.

Maak je duizend facturen heb je wel 1000 werkbladen.
Niet echt handig dus.

Sub hsv()
With Sheets("blad1")
 If IsError(Evaluate("'" & CStr(.[n13]) & "'!A1")) Then
  Sheets.Add(, Sheets(Sheets.Count)).Name = CStr(.[n13])
     Sheets(Array("blad1", CStr(.[n13]))).FillAcrossSheets Sheets("blad1").Cells
  .[n13] = .[n13].Value + 1
End If
End With
End Sub

 

[don42]

Lukt even niet
welk nummer moet ik zetten bij tabblad 1
ik werk nu met blad1087
maar het is maar 30 bladen groot (elke maand begin ik opnieuw maar telt wel door zie ik nu)
ik zou graag het ingevoerde tabblad gelijk er naast plaatsen en niet helemaal achteraan (er staat 1 tabblad herrineringen als laatste dat wil ik graag zo houden)

 

[don42]

Ik heb dit

Private Sub CommandButton3_Click()
    ActiveWorkbook.Sheets("1309565").Copy _
       before:=ActiveWorkbook.Sheets("Herinnering")
    End Sub

deze optie maakt een neiuw blad 1309565(2)
daar had ik graag nieuw staan

 

[HSV]

Sheets("1309565").Copy Sheets("Herinnering")
ActiveSheet.Name = "nieuw"

 

[don42]

Oke bedankt
hier kom ik een stuk verder mee
:d