Automatisk kopi af sheet/faneblad

Har lige rodet lidt med regnearket, kan man i et sheets højrekliksmenu automatisk kan lave en kopi og move to end. Hvilket løser det meste, dog ikke den automatiske optælling.

1. Hvilket omfang har stamoplysninger (range)?
1. Hvor skal de hentes fra - fra det sidste faktura?
2. Sidste faktura, hvor alle celler slettes (ex. fomler) - eller ?
Er det kun selve fakturanr, der navngiver fanen?

Ikke det store omfang, - kun de oplysninger som står i det pågældende worksheet, kun ved blank kopi skal stamdatacellerne renses, men det kan evt. klares med et blankt sheet.

Derved kan det meste vel løses som nedenstående:

Sub CopyWorkSheetMoveToEnd()
'
' CopyWorkSheetToEnd Macro
' Macro recorded 16-08-2006 by toni
'
    Dim intSheets As Integer     
 
    intSheets = Sheets.Count
    Excel.ActiveSheet.Copy After:=Sheets(intSheets)
   
End Sub

I det nye worksheet skal feltet fakturanummer - eks. C9 opdateres ved ...C9 = intSheets - 1 for at tage højde for den blanke faktura til brug ved nyoprettelse 2. en blank kopi.

samt clearing af fakturadata ved kopi med stamoplysninger.
Fanen navn giver kundenavn, eks Ole, og kopi bliver til Ole(2)...og det er vist fint nok, så kan man se hvor mange fakturaer der er sendt til hver enkelt kunde.

toni

Måske kan du anvende dette:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    CopyWorkSheetMoveToEnd
End Sub

Sub CopyWorkSheetMoveToEnd()
    Dim intSheets As Integer
 
    intSheets = Sheets.Count
    Excel.ActiveSheet.Copy After:=Sheets(intSheets)
    ActiveSheet.Cells(9, 3) = intSheets - 1
End Sub

Tjaee, det virker jo umiddelbart, men der er lige lidt mere som jeg kigger på, fakturalinierne skal også løbes igennem og teksten(dropdown boks med værdier)ændres.

En ting jeg er usikker på er om koden vil virke hver gang, da ActiveSheet jo først er det sheet man kopiere, for i linien efter at være kopien.