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

Namen vergelijken aan status

Status
Niet open voor verdere reacties.
B

Blizter

Gebruiker
Lid geworden
4 nov 2011
Berichten
71
Hoi kenners.

WIe kan mij helpen met de volgende vraag.

Op het eerste werkblad kan ik mensen indelen.
Dit gebeurd door een userform.

ALs de mensen zijn ingedeeld. Zou ik graag willen dat er word gekeken welke fase de mensen zitten.
Als mensen in Fase A zitten wil ik deze graag vet gedruk hebben.

Ook wordt er een totaal opgemaakt.. Hoeveel mensen heb ik ingedeeld..

Bekijk bijlage testje.xlsx

Wie kan me weer opweg helpen.
 
Blizter zei:
Hoi kenners.
WIe kan mij helpen met de volgende vraag.
Klik om te vergroten...

Zijn al je andere vragen dan al opgelost?
Er zijn hier volgens mij al een aantal helpers die je hebben geholpen, maar geen respons krijgen; die zullen waarschijnlijk niet meer helpen; denk je van niet?
 
Laatst bewerkt:
Ok, bedankt.
Is er ook een beetje aardigheid aan om iemand te helpen.

Code: 
Sub hsv()
Dim cl As Range, c As Range
For Each cl In Sheets("Indeling").Range("A7:B14").SpecialCells(2)
Set c = Sheets("Gegevens").Columns(1).Find(cl, , xlValues, xlWhole)
 If Not c Is Nothing Then
  cl.Font.Bold = IIf(c.Offset(, 1) = "Fase A", True, False)
    End If
  Next cl
End Sub
 
Nog een kleine vraag..

I.p.v vet gedrukt is het ook mogelijk om de namen te laten optellen in een willekeurige cel ???
 
Zoals in het voorbeeldbestand zijn Jan en Klaas vetgedrukt; telling = 2 ??
Of Jan 1x en Klaas 1x.
 
Dan telling 2
Alle namen die overeenkomen elke keer + 1


Greetz
 
Code: 
Sub hsv()
Dim cl As Range, c As Range, y As Long
For Each cl In Sheets("Indeling").Range("A7:B14").SpecialCells(2)
Set c = Sheets("Gegevens").Columns(1).Find(cl, , xlValues, xlWhole)
 If Not c Is Nothing Then
  If c.Offset(, 1) = "Fase A" Then
    y = y + 1
   End If
  End If
  Next cl
 Range("A1") = y
End Sub
 
HSV heel erg bedankt.

Nu heb ik 2 opties waarmee ik een heel eind kom.

Greetz
 
Graag gedaan,

Hier nog een optie samen in één code met de andere twee opties.
Misschien ten overvloede.....
Code: 
Sub hsv()
Dim cl As Range, c As Range, sq As String, y As Long, sq2 As Variant
For Each cl In Sheets("Indeling").Range("A7:B14").SpecialCells(2)
Set c = Sheets("Gegevens").Columns(1).Find(cl, , xlValues, xlWhole)
 If Not c Is Nothing Then
  If c.Offset(, 1) = "Fase A" Then
    cl.Font.Bold = True
  sq = sq & c & vbLf
    y = y + 1
 Else
  cl.Font.Bold = False
     End If
    End If
  Next cl
    
    Range("A19").CurrentRegion.Clear
   
   With Range("A19").Resize(, 2)
   .Value = Split("Namen " & "Totaal")
   .Interior.ColorIndex = 6
   End With
   
   With Range("B20")
     .Value = y
     .Interior.ColorIndex = 6
   End With
   
   sq2 = Split(sq, vbLf)
 With Range("A20")
    .Resize(UBound(sq2)) = Application.Transpose(sq2)
    .Resize(UBound(sq2)).Interior.ColorIndex = 6
 End With
End Sub
 

Bijlagen

HSV heel erg bedankt voor je hulp.

Ik gebruike de eerste code momenteel deze werkt erg goed.
Ik ben nu de sheet aan het updaten (zodat het er wat netter uit ziet.
Alleen momenteel als er geen namen in de range worden ingegeven krijg ik een fout melding.

Welke code moet ik toevoegen zodat ik geen fout melding krijg.

Greetz
 
Ik moest 2 dagen naar het buitenland, vandaar de wat late reactie.
Specialcells is de boosdoener als er geen cellen zijn gevonden, maar werkt sneller dan alleen een range.
De 'Specialcells(2)' zoekt de cellen waar iets in staat, en slaat lege cellen over.
Het is zo wel op te vangen.

Code: 
Sub hsv()
Dim cl As Range, c As Range
[COLOR="#FF0000"]On Error GoTo einde[/COLOR]
For Each cl In Sheets("Indeling").Range("A7:B14").SpecialCells(2)
Set c = Sheets("Gegevens").Columns(1).Find(cl, , xlValues, xlWhole)
 If Not c Is Nothing Then
  cl.Font.Bold = IIf(c.Offset(, 1) = "Fase A", True, False)
    End If
  Next cl
[COLOR="#FF0000"]einde:[/COLOR]
End Sub
 
Laatst bewerkt:
@ HSv dank je wel.. Geen probleem voor de latere reactie had zelf mooi tijd om wat te puzzelen.

@ Huijb. Om eerlijk te zijn ben ik een aantal post vergeten, Ik heb er weer een aantal op opgelost gezet. Omdat mijn computer was gecrashed was ik mijn postvak in ook kwijt.
daardoor kon ik ook de remind e-mails niet meer vinden.

Allen bedankt.

Greetz.
 
Graag gedaan,

Als je op je profiel klikt, kun je alle onderwerpen vinden die door jou zijn gestart. ;)
 
Blizter zei:
daardoor kon ik ook de remind e-mails niet meer vinden.
Klik om te vergroten...
Als je op zoek bent gegaan naar de reminder mail van Helpmij was je je er dus van bewust dat er topics stonden te wachten op een reactie van jou.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan