chelsea1997
Gebruiker
- Lid geworden
- 22 okt 2018
- Berichten
- 7
Hallo allemaal,
ik ben bezig met het opzetten van een excel file die gemiddelde scores en nps bijhoudt. Ik heb al een macro toegevoegd die automatisch een "hidden" worksheet kopieert. De code hiervan is:
Sub Button7_Click()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Sheets("new sheet")
Dim NewName As String: NewName = ""
Dim sh As Worksheet
Retry:
NewName = Application.InputBox("Enter new unique worksheet name.", info, NewName, , , , , 2)
If NewName = "False" Then Exit Sub 'user shoose 'Cancel'
For Each sh In wb.Sheets
If NewName = sh.Name Or NewName = "" Then
MsgBox "Sheet name is invalid. Please retry."
GoTo Retry
End If
Next sh
ws.Copy After:=Sheets(Worksheets.Count)
With wb.Sheets("new sheet (2)")
.Visible = True
.Activate
.Name = NewName
End With
End Sub
De worksheet die gekopieerd wordt is een template die voor ieder project gebruikt wordt. Nu heb ik een front page gemaakt waarop de gemiddelde scores en de nps te zien zijn. De gemiddelde scores heb ik nu handmatig uitgerekend met de formule averigeif. Is er een manier waarop dit automatisch gebeurt? Dus dat ook informatie uit nieuwe sheets wordt gebruikt?
Sorry als het misschien niet duidelijk omschreven is! In ieder geval alvast bedankt!
ik ben bezig met het opzetten van een excel file die gemiddelde scores en nps bijhoudt. Ik heb al een macro toegevoegd die automatisch een "hidden" worksheet kopieert. De code hiervan is:
Sub Button7_Click()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Sheets("new sheet")
Dim NewName As String: NewName = ""
Dim sh As Worksheet
Retry:
NewName = Application.InputBox("Enter new unique worksheet name.", info, NewName, , , , , 2)
If NewName = "False" Then Exit Sub 'user shoose 'Cancel'
For Each sh In wb.Sheets
If NewName = sh.Name Or NewName = "" Then
MsgBox "Sheet name is invalid. Please retry."
GoTo Retry
End If
Next sh
ws.Copy After:=Sheets(Worksheets.Count)
With wb.Sheets("new sheet (2)")
.Visible = True
.Activate
.Name = NewName
End With
End Sub
De worksheet die gekopieerd wordt is een template die voor ieder project gebruikt wordt. Nu heb ik een front page gemaakt waarop de gemiddelde scores en de nps te zien zijn. De gemiddelde scores heb ik nu handmatig uitgerekend met de formule averigeif. Is er een manier waarop dit automatisch gebeurt? Dus dat ook informatie uit nieuwe sheets wordt gebruikt?
Sorry als het misschien niet duidelijk omschreven is! In ieder geval alvast bedankt!
