Excel Macro uitvoeren als Cel geel is en in kolom a zit

[caffie]

Ik wil een macro maken die wordt gestart als ik in kolom A een geel gekleurde cel selecteer

Dan moet hij de datum van de laatste cel in kolom C met 1 dag verhogen en 10 regels naar benden kopieren

Wie kan me hier bij helpen


Rob

 

[edmoor]

En je voorbeeld document?
Hoe wordt die cel gekleurd?
Met cel opmaak? Of voorwaardelijke opmaak? Of VBA?
Moet die datum op die 10e regel komen of op alle 10 regels?

Weer vragen genoeg.

 

[dorado]

Verplaatst naar Excel

 

[JEC.]

Gokje (werkt als de cel niet is opgemaakt dmv voorwaardelijke opmaak)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 1 Then
     If Target.Interior.ColorIndex = 6 Then Target.Offset(, 2).End(xlDown).Resize(10) = Target.Offset(, 2).End(xlDown).Value + 1
 End If
End Sub

 

[caffie]

klopt de opmaak is een voorwardelijke op maak
en word dus niet herkend

ik heb de code aangepast

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value <> "" Then
Target.Offset(, 2).End(xlDown).Resize(10) = Target.Offset(, 2).End(xlDown).Value + 1
End If
End If

End Sub

en dat werkt prima

heel erg bedankt


TIP kunt u uitleggen waarom de voorwaardelijk opmaak anders is.
Ook als ik via vb een cel kleur (6) en deze via het kwastje overzet werkt het niet,

 

[Senso]

TIP kunt u uitleggen waarom de voorwaardelijk opmaak anders is.

Wat is de bedoeling van die tekst. Een TIP geven terwijl je zelf niet eens een voorbeeldbestand geeft? Helpmij.nl heeft een archieffunctie en mensen willen graag soortgelijke zaken zoeken en daar van leren. Post 2 geeft dat aan en Jveer moet maar gokken. Wil jij dat eens uitleggen?

 

[caffie]

Vraag Opgelost

Jveer heeft mijn probleem prima begrepen en opgelost.
Een voorbeeld is makkelijk maar is dat echt altijd nodig
JVeer snapt het ook zonder voorbeeld

De tip die ik vraag aan JVeer of hij kan uitleggen waarom een voorwaardelijke opmaak (waarschijnlijk) niet werkt
Dat geeft hij zeg ook al een beetje aan waarschijnlijk heeft hij daar ervaring mee
Met die kennis van JVeer daar kunnen we alle wat van leren.

ik begrijp dat hoe beter de omschijving is (liefts met voorbeeld) hoe beter je geholpen kan worden.
Maar het is niet altijd nodig
Dat bewijs JVeer maar weer.

Bedankt voor alle hulp allemaal

 

[VenA]

Een voorbeeld is altijd beter. Code hoor je te plaatsen tussen codetags. (mag je onderhand wel weten)

Ook met cellen die zijn opgemaakt dmv voorwaardelijke opmaak kan het prima.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 1 Then
     If Target.DisplayFormat.Interior.ColorIndex = 6 Then Target.Offset(, 2).End(xlDown).Resize(10) = Target.Offset(, 2).End(xlDown).Value + 1
 End If
End Sub