automatisch rij invoeren

[zjaffar]

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

 

[Cobbe]

Worksheets("agenda").Rows(n).Insert

Zou deze beter werken.?

Cobbe

 

[zjaffar]

jup

ht werkt, bedankt, maar hij maakt geen rij op de juiste plaats. hij insert hem op de 1e plaats, net ofdat hij de loop overslaat en gewoon "n=2" behoud.
is mijn loop verkeerd?

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").Rows(n).Insert

 

[Wigi]

Om rijen in te voegen of te verwijderen moet je van onder naar boven werken, of je loopt in de problemen met de teller in de lus.

Wigi