cel kleuren wanneer deze verplaatst is

[jen001]

Beste Allemaal,

Ik sta voor de volgende uitdaging. Ten eerste mijn VBA / macro kennis is niet super. Dit is nu de tweede keer dat ik een post plaats op dit forum.

Ik heb een excel bestand waarin ik de volgende formule wil plaatsen:

Deel 1
In de range I2:Z2
bij het verplaatsen van een cel binnen deze range moet de cel een kleur krijgen

Deel 2
bij het wijzigen van tekst binnen dezelfde range moet de tekst een kleur krijgen

Ik heb een formule gevonden die bij verplaatsen en wijzigen tekst de celkleur veranderd dit is niet wat ik zoek.

Wie kan mij helpen.

Jeroen

 

[Warme bakkertje]

Deze wijzigt de tekstkleur bij het wijzigen van tekst in de opgegeven Range

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [I2:Z2]) Is Nothing Then Target.Font.ColorIndex = 3
End Sub

PS laats de code achter het werkblad, NIET in een standaardmodule

 

[jen001]

Top dat je me even wilt helpen;

Ik heb achter het werkblad nu de volgende code staan:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Timestamp wijzigingen

Cells(Target.Row, 36) = Now() (deze formule om de laatste wijziging in een regel te kunnen zien)


'Opmerkingen in kleur weergeven

For Each c In Range("AF2:AF" & Range("AF65536").End(xlUp).Row)
If c = "" Then
Range("AF2" & c.Row, "AF" & c.Row).Font.ColorIndex = 41

'Wijzigingen in velden I t/m X


If Not Intersect(Target, [I2:X2]) Is Nothing Then Target.Font.ColorIndex = 3

(deze heb ik van jouw gekregen, wijzigingen in regel I2:X2 worden vastgelegd maar ook verplaatsingen want dat zijn natuurlijk wijzigingen)


Const Column = "I:X" 'kolom I t/m X

' Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

If Intersect(Target, Range(Column)) Is Nothing Then Exit Sub
For Each Cell In Intersect(Target, Range(Column))
Select Case Cell
Case Is > ""
Cell.Interior.ColorIndex = 41
Case Else
Cell.Interior.ColorIndex = 2
End Select

Next Cell

End If

Next


End Sub

Private Sub Worksheet_verandering()

End Sub

de laatste formule wil ik gebruiken om verplaatste cellen te markeren

Hoe pas ik de range aan in jouw formule dat deze werkt vanaf regel twee tot regel 65000

Nu is het mischien wat duidelijker van wat ik wil bereiken.

Bij wijzigen tekst dan tekst kleuren
Bij verplaatsen / kopieren cel dan nieuwe cel kleuren
Bij verplaatsen en wijzigen tekst cel en tekst kleuren

Mvg,

Jeroen

 

[Warme bakkertje]

If Not Intersect(Target, [I2:X65000]) Is Nothing Then Target.Font.ColorIndex = 3

 

[jen001]

If Not Intersect(Target, [I2:X65000]) Is Nothing Then Target.Font.ColorIndex = 3

Volgens mij is het niet mogelijk van wat ik wil. het is of de celkleuren of de tekstkleuren. Excel kijkt volgens mij niet naar de inhoud maar louter of de nhoud wijzigt.

In ieder geval bedankt voor het meedenken.

 

[Roncancio]

Volgens mij is het niet mogelijk van wat ik wil. het is of de celkleuren of de tekstkleuren. Excel kijkt volgens mij niet naar de inhoud maar louter of de nhoud wijzigt.

In ieder geval bedankt voor het meedenken.

Het kan allebei maar je moet ervoor zorgen dat code bij de juiste event staat.
Oftewel:
- Worksheet_Change voor het wijzigen van de cel en de bijbehorende code voor het wijzigen van de tekstkleur.
- Worksheet_SelectionChange voor het verplaatsen van een cel en de bijbehorende code voor het wijzigen van de achtergrondkleur.

Met vriendelijke groet,


Roncancio

 

[jen001]

Het kan allebei maar je moet ervoor zorgen dat code bij de juiste event staat.
Oftewel:
- Worksheet_Change voor het wijzigen van de cel en de bijbehorende code voor het wijzigen van de tekstkleur.
- Worksheet_SelectionChange voor het verplaatsen van een cel en de bijbehorende code voor het wijzigen van de achtergrondkleur.

Met vriendelijke groet,


Roncancio

Top ik ga hier vanmiddag /avond mee aan de slag te be continued

Mvg,

Jeroen

 

[jen001]

Top ik ga hier vanmiddag /avond mee aan de slag te be continued

Mvg,

Jeroen

Ik ben hier even mee aan het spelen geweest ik krijg niet het gewenste effect. Ik kan een cel binnen een rij dan niet meer knippen en plakken. Zodra ik een cel selecteer kleurt deze dan ook.
Ik zou het volgende resultaat willen behalen:

bij tekstuele wijzigingen binnen dezelfde cel dan alleen de tekst kleuren
bij het knippen en plakken van een cel (incl inhoud) dan alleen achtergrond kleur van de verplaatste cel kleuren.

Hopelijk kun je me nog iets verder op weg helpen.

Alvast bedankt,

Jeroen

 

[Roncancio]

Kom je hiermee uit de voeten?

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Color = vbRed
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Value > "" Then Target.Interior.Color = vbBlue
End If
End Sub

Bij het wijzigen van een cel wordt de tekst van de betreffende cel rood weergegeven.
Bij het knippen en plakken van een cel wordt de cel blauw als er iets is ingevuld in de cel.

Met vriendelijke groet,


Roncancio

 

[jen001]

Kom je hiermee uit de voeten?

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Color = vbRed
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Value > "" Then Target.Interior.Color = vbBlue
End If
End Sub

Bij het wijzigen van een cel wordt de tekst van de betreffende cel rood weergegeven.
Bij het knippen en plakken van een cel wordt de cel blauw als er iets is ingevuld in de cel.

Met vriendelijke groet,


Roncancio

Top bedankt voor het meedenken

De eerste formule werkt bij wijzigen van de inhhoud wordt de tekst kleur rood

Bij de tweede formule wordt de achtergrond direct blauw zodra ik een willekeurige cel aanklik.
voor de beeldvorming ik knip en plak binnen hetzelfde werkblad.en ik wil alleen dat de verplaatste cel kleurt.

IK was ook met de onderstaande formule aan het stoeien

Const Column = "I:X" 'kolom I t/m X

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

If Intersect(Target, Range(Column)) Is Nothing Then Exit Sub
For Each Cell In Intersect(Target, Range(Column))
Select Case Cell
Case Is > ""
Cell.Interior.ColorIndex = 41
Case Else
Cell.Interior.ColorIndex = 2
End Select



Mvg,

Jeroen

 

[jen001]

Top bedankt voor het meedenken

De eerste formule werkt bij wijzigen van de inhhoud wordt de tekst kleur rood

Bij de tweede formule wordt de achtergrond direct blauw zodra ik een willekeurige cel aanklik.
voor de beeldvorming ik knip en plak binnen hetzelfde werkblad.en ik wil alleen dat de verplaatste cel kleurt.

IK was ook met de onderstaande formule aan het stoeien

Const Column = "I:X" 'kolom I t/m X

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

If Intersect(Target, Range(Column)) Is Nothing Then Exit Sub
For Each Cell In Intersect(Target, Range(Column))
Select Case Cell
Case Is > ""
Cell.Interior.ColorIndex = 41
Case Else
Cell.Interior.ColorIndex = 2
End Select



Mvg,

Jeroen

Goedemorgen zijn er nog mensen die ideeen hebben hoe mijn vraagstuk aan te pakken. De geboden opties bieden nog niet het gewenste resultaat. Hoewel ik de hulp tot nu toe ontzettend waardeer.

Mvg,

Jeroen