Datum verwijderen

[marcel31281]

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

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

 Unload Me
End Sub

 

[edmoor]

Document.Add Example.xlsm

 

[marcel31281]

Bij deze ....

 

[HSV]

In je Label13 en label14_Click() toevoegen.

ActiveCell.Offset(, 1).ClearContents

 

[marcel31281]

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

 

[HSV]

Bv.

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

 

[marcel31281]

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

 

[HSV]

Zoals het nu geschreven is, in een standaard module en eventueel aan een knop hangen.

 

[AD1957]

Het is ook maar een voorbeeldje van hoe je het kunt oplossen.
Voor het voorbeeldbestand.

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

 

[marcel31281]

Bedankt voor je reactie, alleen zou ik willen dat dit automatisch op de achtergrond gebeurt zonder een macro te hoeven draaien

 

[HSV]

Waar moet het resultaat komen?

 

[marcel31281]

Zie kolom H en I

 

[AD1957]

Je kunt de macro toch gewoon oproepen in het label_click event

Private Sub Label1_Click()
 ActiveCell.Value = "v"
 ActiveCell.Font.Color = RGB(209, 163, 79)
 Unload Me
 [COLOR="#FF0000"]hsv_1[/COLOR]
End Sub

 

[marcel31281]

Fantastisch zo simpel kan het dus zijn :thumb:

 

[HSV]

Zie kolom H en I

Oh, in het bestand dat ik niet heb bekeken/gezien.

 

[marcel31281]

Ik ben bezig het in te bouwen in het uiteindelijke bestand, maar loop toch nog ergens tegen aan

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.

 

[HSV]

Dat gebeurt al doordat je Listcolumns(1) gebruikt in de code.

 

[AD1957]

Marcel,

Je hebt het duidelijk nog niet getest.
Begrijp je de code wel ?

 

[marcel31281]

Ik snap voor 50% hoe de code werkt, maar alles lijkt ondertussen te werken

 

[AD1957]

Met 100% wordt het allemaal een stuk eenvoudiger.:d
Succes.