Dingen meten in excel

[derktrip]

Hallo,

Ik wil graag meten hoeveel mails ik per week binnen krijg, hoeveel handelingen ik vervolgens moet verichten en hoeveel tijd ik daarmee bezig ben.

Dit wil ik dan allemaal los invoeren in een sheet, vervolgens moet deze sheet dit doorvoeren.

Zodat ik uiteindelijk kan zien hoeveel mails, tijd en verichtingen ik per maandag, dinsdag, week, totaal etc

Ik denk dat dit het best is met VPA of Macro's maar ben hier nog niet helemaal in thuis. Kan iemand mij op weg helpen.

Groeten

 

[Ad Becude]

derktrip,

Dit wil ik dan allemaal los invoeren in een sheet, vervolgens moet deze sheet dit doorvoeren.

Laat om te beginnen maar eens zien wat je al hebt, of hoe je layout eruit moet zien.

 

[derktrip]

Ik heb heel eenvoudig gezegd, wil ik van iedere maandag al mijn binnengekomen mails invoeren, de tijd dat ik er mee bezig ben, en het aantal disclousures.. Ik wil dat hij dit opstapeld ergens anders.. dus op maandag op de stapel maandag etc etc etc... ik heb de excel sheet bijgevoegd

ps. Dit is de macro die ik tot nu toe heb

Sub Stap1()
'
' Stap1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Sheets("Sheet1").Select
Range("C6").Select
Selection.Copy
Range("P6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maandag").Select
Range("E6:F7").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Sheet1").Select
ActiveWindow.SmallScroll Down:=6
Range("C25").Select
Selection.Copy
Range("P25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Sheets("Maandag").Select
Range("E8:F9").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Sheet1").Select
Range("C44").Select
Selection.Copy
Range("P44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maandag").Select
Range("E10:F11").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

 

[Tardis]

Als je nu eens alle gegevens in standaard kolommen op 1 werkblad zet, dan kom je met draaitabellen een heel eind.
En daar komt dan geen macro aan te pas.
Idee?

Tardis

 

[derktrip]

Klopt helemaal tardis maar ik kies graag de moeilijke weg. Ik heb nu een werkende code maar daar wil ik graag een Case function aan toevoegen. Ik heb er nu eentje bij staan maar zodra ik dat doe werkt hij niet meer. Ik krijg ook geen error dus ik weet niet precies waar de fout zit. Iemand een idee? Code staat hieronder

Alvast bedankt!

Sub Stap1()
'
' Stap1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Sheets("Sheet1").Select
Select Case Range("O1").Value
Case donderdag
Range("C6").Select
Selection.Copy
Range("P6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maandag").Select
Range("E6:F7").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Sheet1").Select
ActiveWindow.SmallScroll Down:=6
Range("C25").Select
Selection.Copy
Range("P25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Sheets("Maandag").Select
Range("E8:F9").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Sheet1").Select
Range("C44").Select
Selection.Copy
Range("P44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maandag").Select
Range("E10:F11").Select
Application.CutCopyMode = False
Selection.ClearContents
Case Else
Range("B1").Value = 0
End Select
End Sub

 

[derktrip]

Meer info: Ik heb een test gedaan door de dag gewoon zelf in te vullen en dan doet hij het wel. "O1" is eigenlijk een =weekday functie. Dit omdat ik een andere actie verlang op een andere dag van de week. Is het mogelijk om deze weekday functie samen te laten werken met de Case funtie?