• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel kenner - hulp gevraagd

  • Onderwerp starter Onderwerp starter DaanM
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
D

DaanM

Terugkerende gebruiker
Lid geworden
11 okt 2000
Berichten
2.009
Zou iemand me kunnen helpen..
Ik wil mensen graag een maand lang een overzicht bij laten houden van hun
10 belangrijkste werkzaamheden. Ik probeer hier een zo simpel mogelijk registratielijstje van te maken.
Ik heb in de bijlage een opzetje gemaakt. Is er iemand die een formule kan bedenken die kolom N automatisch invult?

Dus..
- de cijfers 1 t.m 10 staan voor verschillende werkzaamheden
- hij zou het aantal kwartieren moeten optellen en dit omzetten in uren (voor kolom N)
- en op het tabblad TOTAAL zou het totaal moeten komen te staan van de twee weken.

Ik hoop dat iemand een briljante oplossing heeft...
 
Echt helemaal top...
Durf ik nog wel een vervolgvraag te stellen..
Is het ook mogelijk om elk nummer een eigen kleur te laten krijgen?
Dus zodra ze bijv een 1 intypen in een vakje, dat dit vakje na het verlaten ervan blauw wordt?
Ik heb bij voorwaardelijke opmaak gekeken, maar daar kan ik maar 3 voorwaarden maken..
En ik heb er natuurlijk en stuk of 10 nodig..
 
Beste DaanM ;)

DaanM zei:
Ik heb bij voorwaardelijke opmaak gekeken, maar daar kan ik maar 3 voorwaarden maken..
En ik heb er natuurlijk en stuk of 10 nodig..
Klik om te vergroten...

In Excel 2003 heb je 4 voorwaarden, 3 in voorwaardelijke opmaak en 1 standaard.
In Excel 2007 oneindig veel mogelijkheden.

Dus zal je het hier met VBA moeten oplossen.

Zie anders dit bestandje hoe het werkt.

Groetjes danny. :thumb:
 

Bijlagen

ik kan wel iets met het laatste tabblad denk...
2 vraagjes..

hoe krijg ik die in het bestand weekoverzicht? ik heb al iets geprobeerd met exprteren/importeren, maar dat doe ik waarschijnlijk niet goed...

hoe kan ik de kleuren bepalen.. Ik heb nu iets zitten verzinnen, maar ik neem aan dat er wel ergens een overzicht is van welk nummer er met welke kleur correspondeert.
 
Beste DaanM ;)

Kan je eens zeggen welk kleur je graag aan de cijfers wil hebben.
1 wordt blauw
2 wordt ? enz...

Plaats anders de volgende formule in VBA editor in Blad1.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngBigRange As Range, rngInters As Range, c As Range
    
    Set rngBigRange = Range("E3:I44")
    
    Set rngInters = Intersect(rngBigRange, Target)
    
    If Not rngInters Is Nothing Then
        For Each c In rngInters
            Select Case c
                Case "1"
                    c.Interior.ColorIndex = 1
                Case "2"
                    c.Interior.ColorIndex = 2
                Case "3"
                    c.Interior.ColorIndex = 3
                Case "4"
                    c.Interior.ColorIndex = 4
                Case Else
                    c.Interior.ColorIndex = 5
            End Select
        Next
    End If
End Sub

Voor de kleurnummers kijk op deze site.

Groetjes Danny. :thumb:
 
Hahaha..
Ik was al enthousiast gemaakt en was al verder gaan proberen. (zie bijlage).
Maar.. Volgende probleem
Werkblad 1 is geheel beveiligd omdat het een voorbeeld is.
Als ik Week 1 wil beveiligen (met extra - beveiliging - blad beveiligen). Dan komen de kleurtjes niet. Wat kan ik daar nog tegen doen?
 
DaanM zei:
Hahaha..
Ik was al enthousiast gemaakt en was al verder gaan proberen. (zie bijlage).
Maar.. Volgende probleem
Werkblad 1 is geheel beveiligd omdat het een voorbeeld is.
Als ik Week 1 wil beveiligen (met extra - beveiliging - blad beveiligen). Dan komen de kleurtjes niet. Wat kan ik daar nog tegen doen?
Klik om te vergroten...

Zet dit in je worksheet met het juiste wactwoord

Code: 
Private Sub Workbook_Open()

Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        wSheet.Protect Password:="Wachtwoord", userinterfaceonly:=True
Next wSheet

End Sub
 
Plaats ik dit onder de reeds bestaande tekst?
En moet ik dan daarna nog extra - beveiliging etc doen?
 
DaanM zei:
Plaats ik dit onder de reeds bestaande tekst?
En moet ik dan daarna nog extra - beveiliging etc doen?
Klik om te vergroten...

Daan, de code beveiligd niets, het zorgt er voor dat VBA code blijft werken op bladen die beveilgd zijn.

Dus ja beveiligen moet je nog steeds, kan ook automatisch met een Before Close event als je dat wilt, maar dat is niet altijd een garantie
 
Beste DaanM ;)

Heb deze code geschreven en plaats deze in Blad "Voorbeeld"

Code: 
 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.ScreenUpdating = False
    Dim cell_in_loop As Range
    For Each cell_in_loop In Range("E5:I47")
        With cell_in_loop
        
            Select Case .Value
                Case 1: .Interior.ColorIndex = 40
                Case 2: .Interior.ColorIndex = 45
                Case 3: .Interior.ColorIndex = 3
                Case 4: .Interior.ColorIndex = 4
                Case 5: .Interior.ColorIndex = 5
                Case 6: .Interior.ColorIndex = 6
                Case 7: .Interior.ColorIndex = 7
                Case 8: .Interior.ColorIndex = 8
                Case 9: .Interior.ColorIndex = 44
                Case 10: .Interior.ColorIndex = 46
                                        
            End Select
        End With
    Next
    Application.ScreenUpdating = True
End Sub

Waarom is het blad beveiligd ?

Of code opheffen van zodra workbook open is
Groetjes Danny. :thumb:
 
@Revdutchie
Code: 
Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        wSheet.Protect Password:="Wachtwoord", userinterfaceonly:=True
Next wSheet
End Sub
Deze code beveiligd wel degelijk de werkbladen, dus extra beveiligen is niet nodig
 
Warme bakkertje zei:
@Revdutchie
Code: 
Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        wSheet.Protect Password:="Wachtwoord", userinterfaceonly:=True
Next wSheet
End Sub
Deze code beveiligd wel degelijk de werkbladen, dus extra beveiligen is niet nodig
Klik om te vergroten...

Ohh ok Rudi, dat wist ik niet, weer wat geleerd, ik gebruik zelf de code zonder het Wachtwoordstukje:D
 
Beste experts...
Ik ben jullie even kwijt!
Sorry, maar ik doe echt nooit iets met die codes.. En echt.. ik ben mega blij met jullie hulp. Er moeten veel juffen met die blad gaan werken en geloof me.. Die zijn gevorderd - vooral in het veranderen van opmaak en indeling.. Vandaar de diepe wens alles goed te beveiligen; behalve de hokjes waar zij 1, 2, 3 etc in mogen typen.

Ik heb nu in de bijlage de code geplakt van Danny.
Ik heb geprobeerd de code van Revdutchie te plakken, maar dat doet niet wat ik hoop. Ik heb m boven de code van Danny geplakt - wellicht volledig op de verkeerde plek. Maar als ik daarna het blad beveilig, dan krijg ik geen kleur en wel een foutmelding. Dus dat ie niet goed staat is een feit... Maar ik heb geen idee waar ik m dan moet plakken. Als week 1 compleet is, moet er nog week 2, week 3 en week 4 komen. Dan is ie definitief. Maar als week 1 compleet is, kopieer ik de andere 3 weken.

Dus ik hoop dat jullie ff willen checken of ie nu goed is.. En mij een tip geven waar ik precies die code van Revdutchie moet plakken om alle kleuren en formules gewoon door te laten werken als ik het blad beveilig met het wachtwoord: banaan.
 
Ehhh...
als ik te ver ga, zeggen hoor...
Ik vind het echt TOP !!!

Maar... (sorry - ben perfectionistisch)..
Als ik een foutje maak.. Bij dat beveiligde blad week 1. Dan haal ik de code (het cijfer) weg. Maar blijft de kleur staan. Kan dit ook nog automatisch weg? Dat lukt me nl alleen maar als ik de beveiliging van het blad ophef.. Maar dat mogen ze natuurlijk niet.
 
Hihi..
Ik heb dit eronder gezet:
Case Else: .Interior.ColorIndex = xlNone

En nu werkt ie wel...

Mensen.. Mag ik jullie enorm bedanken.. Ik ga m afmaken.. Vier weken..
Top..... VERY THANKS......
 
DaanM zei:
Ehhh...
als ik te ver ga, zeggen hoor...
Ik vind het echt TOP !!!

Maar... (sorry - ben perfectionistisch)..
Als ik een foutje maak.. Bij dat beveiligde blad week 1. Dan haal ik de code (het cijfer) weg. Maar blijft de kleur staan. Kan dit ook nog automatisch weg? Dat lukt me nl alleen maar als ik de beveiliging van het blad ophef.. Maar dat mogen ze natuurlijk niet.
Klik om te vergroten...
Zo dan ?
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan