Hej Tina
Her er så én måde, du kan klare den på.
Løsningen benytter hændelsen (event) change,
der finder sted, når indholdet i en celle forandres
ved indtastning.
1. Højreklik arkfanen og vælg "Vis programkode"
2. Kopier nedenstående kode og indsæt den i det
højre vindue.
For at få det hele startet:
1. Indtast overskrifter i række 1 af "Database"
2. Indtast række 2 med formler osv.
3. Indtast række 3 med formler osv. Der dukker nu
formler op i række 4.
Når du har indtastet hele række 3, sletter du
indholdet af række 4. Dernæst indtaster du i en
tilfældig celle i række 3 for at få *alle* formlerne
fra række 3 ned i række 4.
Du er nu klar til at bruge systemet fra og med række 4.
Hvis du ikke er helt tilfreds med funktionaliteten, må
du vende tilbage.
Private Sub Worksheet_Change(ByVal Target As Range)
'Leo Heuser, 22-9-2003
Dim ActiveRow As Range
Dim CheckRange As Range
Dim FirstRow As Long
On Error GoTo Finito
Set CheckRange = Range("Database")
FirstRow = 3
With CheckRange
Set CheckRange = .Rows(FirstRow). _
Resize(.Rows.Count - FirstRow + 1, .Columns.Count)
End With
If Union(CheckRange, Target).Address = _
Union(CheckRange, CheckRange).Address Then
Set ActiveRow = CheckRange. _
Rows(Target.Row - CheckRange.Row + 1)
With Application.WorksheetFunction
If .CountA(ActiveRow) > 0 Then
If .CountA(ActiveRow.Offset(1, 0)) = 0 Then
Application.EnableEvents = False
With ActiveRow
.Copy Destination:=.Offset(1, 0)
.Offset(1, 0). _
SpecialCells(xlCellTypeConstants). _
ClearContents
End With
End If
End If
End With
End If
Finito:
Application.EnableEvents = True
On Error GoTo 0
End Sub
--
Med venlig hilsen
Leo Heuser
MVP Excel
Followup to newsgroup only please.
"Tina Nilsen" <tina.nilsen@.> skrev i en meddelelse
news:Xns93FDE12751E4Btinanilsen@130.225.247.90...
> "Leo Heuser" <leo.heuser@adslhome.dk> wrote in
> news:bkkghj$2q4eu$1@ID-168125.news.uni-berlin.de:
>
> > Hej Tina
> >
> > Det skulle nok kunne lade sig gøre, men jeg er i tvivl om,
> > hvordan dit ark er indrettet. Du skriver, at der er formler
> > i række 1, men skriver også "at når række 1 er udfyldt
> > med data". Betyder det, at der er både formler og indtastninger
> > i række 1? Vil *alle* 4 celler i en række altid indeholde data?
> > Kan du ikke give et eksempel på hvordan række 1 kan se ud?
> >
>
> Hej Leo
>
> Regnearket er til kørselsregnskab, og lidt mere omfangsrigt end jeg
> skrev tidligere, men jeg måtte jo skære spørgsmålet ned.
>
> Jeg har en startrække hvor bilens km status pr den angivne dato er
> angivet.
>
> Arket er opbygget som en database, altså således at alt vedr den
> pågældende tur står på samme række (record). Dette for at kunne generere
> rapporter i datointervaller, kunne sorte og at kunne bruge
> pivottabeller. Alle formler er navngivet.
>
> Kolonneoverskrifterne er bl.a.:
>
> | B | C | D | E | F | G |
> -------------------------------------------------------------
> 2 | Dato | Start km | Kørt til | Slut km | Formål | Kørte km |
> 3 | 1/1 | 100000 | Hovedgade| 100020 | Job1 | 20 |
> 4 | 1/1 | =E3 | Sidegade | 100025 | Job2 | =E4-C4 |
> 5 |
>
> Der skal så fyldes formler og formattering efterhånden som man indtaster
> dataene.
>
> Jeg er ikke dygtig nok til at vide hvordan
>
> Kan nogen hjælpe ?
>
> Hilsen Tina