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

Datum verwijderen

Status
Niet open voor verdere reacties.

marcel31281

Gebruiker
Lid geworden
30 okt 2015
Berichten
391
Onderstaande code geeft aan of een product is gekeurd, reparatie etc.
Bij status reparatie en annuleren moet in kolom C op de actieve rij ( C15 tot .... ) de datum gewist worden die daar bij de andere statussen automatisch wordt ingevuld.
Mister google kan mij niet verder helpen dus hoop dat jullie de oplossing hebben



Code:
Private Sub Label4_Click()
ActiveCell.Value = "v"
 ActiveCell.Font.Color = RGB(7, 56, 87)

 Unload Me
End Sub
 
Document.Add Example.xlsm
 
In je Label13 en label14_Click() toevoegen.
Code:
ActiveCell.Offset(, 1).ClearContents
 
Bedankt,

Nu ben ik alleen nog aan het stoeien met het tellen van de kleuren in de cel, zodat ik weet hoeveel er goed zijn, niet goed etc.

Alleen bij een wijziging verandert het getal niet en bij annuleren loopt de code vast

Alvast bedankt voor jullie hulp
 

Bijlagen

Laatst bewerkt:
Bv.
Code:
Sub hsv()
Dim cl As Range, x As Long
 For Each cl In Sheets("sheet1").ListObjects(1).ListColumns(1).DataBodyRange
   If cl.Font.Color = RGB(7, 56, 87) Then x = x + 1
 Next cl
MsgBox x & " geannuleerd"
End Sub
 
Bedankt,

Maar ik snap niet helemaal waar ik dit moet plaatsen in mijn bestand en ik weet niet of dit mijn probleem oplost?

1e probleem is dat de waardes in kolom I niet mee veranderen bij wijzigen van status in kolom B

2e probleem is dat als ik in kolom B annuleren kies de formule in kolom I vastloopt een een foutmelding geeft
 
Laatst bewerkt:
Zoals het nu geschreven is, in een standaard module en eventueel aan een knop hangen.
 
Het is ook maar een voorbeeldje van hoe je het kunt oplossen.
Voor het voorbeeldbestand.
Code:
Sub hsv_1()
Dim cl As Range, x As Long
For j = 16 To 19
    For Each cl In Sheets("sheet1").ListObjects(1).ListColumns(1).DataBodyRange
        If cl.Font.Color = Cells(j, 8).Font.Color Then x = x + 1
    Next
    Cells(j, 9) = x
    x = 0
Next

End Sub
 
Bedankt voor je reactie, alleen zou ik willen dat dit automatisch op de achtergrond gebeurt zonder een macro te hoeven draaien
 
Waar moet het resultaat komen?
 
Je kunt de macro toch gewoon oproepen in het label_click event
Code:
Private Sub Label1_Click()
 ActiveCell.Value = "v"
 ActiveCell.Font.Color = RGB(209, 163, 79)
 Unload Me
 [COLOR="#FF0000"]hsv_1[/COLOR]
End Sub
 
Ik ben bezig het in te bouwen in het uiteindelijke bestand, maar loop toch nog ergens tegen aan

Code:
For Each cl In Sheets("_OVERZICHT_").ListObjects(1).ListColumns(1).DataBodyRange

Is het ook mogelijk alleen de gekleurde tekst in kolom B op te tellen en niet in het gehele werkblad, dit gaat namelijk problemen geven met kolommen verderop in het werkblad.
Hier staan namelijk nog 2 kolommen die een kleur hebben.
 
Dat gebeurt al doordat je Listcolumns(1) gebruikt in de code.
 
Marcel,

Je hebt het duidelijk nog niet getest.
Begrijp je de code wel ?
 
Laatst bewerkt:
Met 100% wordt het allemaal een stuk eenvoudiger.:d
Succes.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan