JosEindhoven
Gebruiker
- Lid geworden
- 4 dec 2014
- Berichten
- 431
Hallo
Ik gebruik onderstaande code om gegevens van de sheet gegevens automatisch te kopiëren naar de sheet test. Echter in de sheet gegevens hebben de cellen een kleur. Is het mogelijk om die kleur niet mee te nemen maar dat in de sheet test gewoon alles een witte achtergrond heeft.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
x = Array("gegevens", "test")
Sheets(x).FillAcrossSheets Sheets("gegevens").Range("A2:j100")
End Sub
Ik gebruik onderstaande code om gegevens van de sheet gegevens automatisch te kopiëren naar de sheet test. Echter in de sheet gegevens hebben de cellen een kleur. Is het mogelijk om die kleur niet mee te nemen maar dat in de sheet test gewoon alles een witte achtergrond heeft.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
x = Array("gegevens", "test")
Sheets(x).FillAcrossSheets Sheets("gegevens").Range("A2:j100")
End Sub