• 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.

Macro in excel maken

Status
Niet open voor verdere reacties.
J

Juuske

Gebruiker
Lid geworden
31 mrt 2003
Berichten
87
Hoi.

ik heb een vraag, wij moeten een document bijhouden met de activiteiten die wij per dag doen, einde van de week moeten we een top 3 samenstellen met de meeste activiteiten.

Ik heb het document op de volgende manier opgesteld

Omschrijving week/aantal totaal
ik zoek een macro, die kijkt bij het kolom "totaal " welk getal het hoogste is, (top 3) en dat deze gemarkeerd wordt met een kleur of dat hij met omschrijving in een aparte kolom de top 3 weergeeft.
Het liefst door middel met een knop

kunnen jullie mij hierbij helpen?
 
Heb je een voorbeeldbestand?
Moet het trouwens met een macro? Je zou ook kunnen werken met Rang.

Met vriendelijke groet,


Roncancio
 
Wordt wel erg nadrukkelijk gevraagd om het met een knop te doen.
Persoonlijk deed ik het liever met een formule zoals Roncancio voorstelt.
Klant is koning.

Code: 
With Sheets("Blad1")
   Set myrng = .Range("C2:C" & .Cells(.Rows.Count, 3).End(xlUp).Row)
     myrng.Interior.ColorIndex = xlNone
      For Each cl In myrng
     If WorksheetFunction.Rank(cl, myrng) = 1 Then cl.Interior.ColorIndex = 4 'groen
    If WorksheetFunction.Rank(cl, myrng) = 2 Then cl.Interior.ColorIndex = 6 'geel
   If WorksheetFunction.Rank(cl, myrng) = 3 Then cl.Interior.ColorIndex = 3 'rood
  Next
 End With
 
Ik zal deze macro even testen, ik heb wel voor de zekerheid een document toegevoegd.

Wel of geen knop maakt niet uit, is intern gebruik ;)
Ze hebben niet heel veel verstand van excel en dergelijke dus vandaar dat ik aan knop zat te denken.


Toch bedankt voor jullie reactie.
 

Bijlagen

deze macro werkt perfect bedankt daar voor,is dit ook mogelijk in een knop te plaatsen. Als je op een knop drukt dan krijgt je de top 3 te zien krijgt en als je weer op de knop drukt dat deze niet meer wordt weergegeven?
 
Maak een ToggleButton aan en probeer deze code eens.
Code: 
Private Sub ToggleButton1_Click()
   With Sheets("Blad1")
     If ToggleButton1 = True Then
       Set myrng = .Range("J5:J" & .Cells(.Rows.Count, 10).End(xlUp).Row)
          For Each cl In myrng
            For i = 1 To 3
          If WorksheetFunction.Rank(cl, myrng) = i Then
            .Cells(i, 13) = cl
            .Cells(i, 12) = .Cells(cl.Row, 1)
          End If
         Next i
        Next cl
      Else: .Range("L1:M3").ClearContents
    End If
  End With
End Sub
 
Helaas krijg ik deze macro niet werkend.

Hierbij stuur ik het document die ik gebruik, wellicht heb je er iets aan.

Hopelijk kan je me helpen.

bedankt.. :thumb:
 

Bijlagen

Ik schreef een ToggleButton (Wisselknop), geen Commandbutton.
Zoiets?
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan