voorwaardelijke opmaak (meer dan 3) en de rest

[zjaffar]

yo,

ik probeer een agenda te maken in excel.
ik gebruik vba en voorwaarelijke opmaak.

maar voorwaardelijke opmaak shiet tekort.
ik wil voor 1 bepaalde naam in een cel de ganse rij een kleur geven.

INDIRECT(ADRES(RIJ();7))="naam1"

dit werkt, maar er kunnen er niet meer dan 3, algemeen geweten waarschijnlijk.

nuja, ik heb nodig:

naam1: oranje
naam2: rood
naam3: geel
naam4: roze
naam5: donkerrood
naam6: licht paars

Ik heb ergens gelezen dat dit in een VBA kan, maar na heel veel foefelen lukt het mij nog steeds niet.


Mijn 2e probleem is dat ik wil een kalender maken die je met de minste moeite kan aanpassen. via inputboxen worden de nodige gegevns gevraagd en verwerkt.
mijn bedoeling is nu om die op chronologische volgorde te plaatsen.

Ik loop via een loop langs alle data en wnr de ingegeven data kleiner is dan een gegeven datum, dan zou ik die rij willen selecteren en een rij invoegen.
het probleem is hier dat ik geen juiste code vind die in het plaatje past.

worksheets("agenda").cell(n,1).select is geen goede code
an via Range().select weet ik niet hoe ik de "n" moet verwerken.

kan iemand mij helpen?

de vba code van wat ik al heb staat hieronder.

alvast bedankt

Sub probeersel()

Dim i As Integer, organisator As String, n As Integer
Dim jaar As Integer, maand As Integer, dag As Integer, uur As String, activiteit As String
Dim soort As String, contactpersoon As String, inkom As Integer

jaar = InputBox("welk is het jaar waarin de activiteit plaatsvind onder de vorm JJJJ")
maand = InputBox("geef de maand in welke de activiteit plaatsvind onder de vorm MM")
dag = InputBox("welke is de dag van die maand onder de vorm DD")
uur = InputBox("op welk uur is deze afspraak")
activiteit = InputBox("welke activiteit wilje plannen op deze datum?")
soort = InputBox("welk soort activiteit is dit?")
organisator = InputBox(" Wie is de organisator van deze activiteit?")
contactpersoon = InputBox("wie is de contactpersoon voor deze activiteit?")
inkom = InputBox("hoeveel zal deze activiteit kosten? (in euro) ")


'zoekt de datum die groter is dan degene die we willen invoegen'

n = 2

Do While jaar < Worksheets("agenda").Cells(n, 1) And _
maand < Worksheets("agenda").Cells(n, 2) And _
dag < Worksheets("agenda").Cells(n, 3)

n = n + 1

Loop


'nu voegen we en rij in boven de grotere datum'

Worksheets("agenda").cell(n, 1).Select
Selection.EntireRow.Insert



'zoek eerstvolgende lege rij'
i = 2
Do While Worksheets("agenda").Cells(i, 1) <> "" Or _
Worksheets("agenda").Cells(i, 1) <> "" Or _
Worksheets("agenda").Cells(i, 1) <> ""

i = i + 1
Loop

Worksheets("agenda").Cells(i, 1) = jaar
Worksheets("agenda").Cells(i, 2) = maand
Worksheets("agenda").Cells(i, 3) = dag
Worksheets("agenda").Cells(i, 4) = uur
Worksheets("agenda").Cells(i, 5) = activiteit
Worksheets("agenda").Cells(i, 6) = soort
Worksheets("agenda").Cells(i, 7) = organisator
Worksheets("agenda").Cells(i, 8) = contactpersoon
Worksheets("agenda").Cells(i, 9) = inkom




End Sub

 

[Warme bakkertje]

Wil je met de minste moeite willen aanpassen zoals je zelf zegt zou ik al beginnen met 1 userform te maken ipv 9 inputboxen. Met een userform ben je flexibeler en kan je werken met keuzelijsten om je velden in te vullen.

Mvg

Rudi

 

[zjaffar]

yo merci

maar het woord "foefelen" werd in gebruik genomen, wat wijst op een duidelijk tekort aan kennis over de materie door de auteur.

bijze deze bedoel ik dus

wat is een userform en hoe pas ik deze toe?

Ik wil ook niet arrogant doen, maar, eeuh, kan je mij helpen met mijn andere vragen?

 

[Wigi]

kan je mij helpen met mijn andere vragen?

Wellicht wel, maar houd die voor in een andere topic. 1 topic = 1 vraag, anders wordt het niet meer overzichtelijk.

Voor userforms: kijk bij Debra Dalgleish op http://www.contextures.com/xlUserForm01.html

Userforms komen trouwens in veel vragen voor hier op het forum, dus loop gerust ook andere vragen af.

Wigi