Uitbreiding VBA code

[MegaSaxon]

Beste

Bekijk bijlage Megasaxon.xls

In bijgesloten voorbeeld staat een stukje code dat er voor zorgt dat wanneer een cel in bereik C4 t/m F14 wordt geselecteerd, deze dan geel wordt, en een aantal cellen op dezelfde rij worden gecopieerd naar blad2.

Nu is dit slechts een voorbeeld bestand, het echte bestand bestaat uit 12 bladen met gemiddeld 200 rijen.
Even op de "reset" knop drukken omdat ik één foutje heb gemaakt in het selecteren van een optie kan betekenen dat een uur werk overnieuw moet.

Wat ik graag zou willen is dat ik een reeds geselecteerde cel, die dus al geel gemaakt is, weer "uit" (wordt wit) kan zetten, en dat de gekopieerde cellen uit die rij, verwijderd worden van blad2.

BVD

 

[Roncancio]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Range("$C$4:$F$14")) Is Nothing Then
        Target.Interior.ColorIndex = Application.Max(0, Not (Target.Interior.ColorIndex) = 6) * 6
        If Target.Interior.ColorIndex = 6 Then
            rij2 = Blad2.Range("A" & Rows.Count).End(xlUp).Row + 1
            Application.Union(Range("A" & Target.Row), Range("J" & Target.Row), Range("K" & Target.Row)).Copy Destination:=Blad2.Range("A" & rij2)
        Else
            Blad2.Range("A:A").Find(Range("A" & Target.Row), , xlValues, xlWhole).EntireRow.Delete
        End If
    End If
End If
End Sub

Zodra een cel wordt geselecteerd, dan wordt deze geel gemaakt en gekopieerd naar het 2e werkblad.
Wordt een gele cel opnieuw geselecteerd, dan wordt deze weer wit en wordt tevens de gekopieerde rijen weer verwijderd uit het 2e werkblad.
Ik neem aan dat de code voor meerdere werkbladen moet gelden.
Daarom dien je de code in ThisWorkbook te plaatsen.

Met vriendelijke groet,


Roncancio

 

[MegaSaxon]

Klasse!!

Werkt fantastisch.

Dankjewel!!!