• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kleuren defineeren en cursor 1 down

Status
Niet open voor verdere reacties.

Julius

Gebruiker
Lid geworden
1 jul 2004
Berichten
85
Hallo

Ik heb een makro gekregen die overigens wel goed werkt

1 Ik wil alleen de kleuren veranderen Collorindex = 6 naar een andere kleur.
Is hier een code tabel voor zodat je kan zien welke kleur je selcteerd ????

2 Ik weet ook dat je met de RBG code kan opzoeken hoe een kleur gedefinieerd is. Hoe moet ik dit eventueel aangegen in de macro ???

3 De corsor gaat op het einde 1 cel naar rechts
Hoe kan ik aangeven dat hij een 1cel naar beneden moet??? Offset(0,??1)




Sub Geel() 'Geel code 1
With ActiveCell
.Offset(0, 0) = "1"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
.Offset(0, 1).Select
End With
End Sub


Alvast bedankt

Gr JP
 
Julius,

Neem een nieuw excel-bestand, en plaats daar volgende macro in:

Sub GeefKleurtabel()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = i
Next
End Sub

Laat die effe lopen, en je hebt meteen je kleurtabel.

Luc
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan