effektivisering af HVIS, HVIS formel

Placering på ark ved indsættelse - samme række som indtastet på forside - eller?

VBA kunne være en løsning..

En formelløsning kunne måske være:

http://gratisupload.dk/f/8qwam640l0/

alle muligheder er velkommen :) så gerne VBA

Valg af række den skal hente data fra er på Forsiden D8

Hvis vi så siger man har skrevet 4, så den skal hente data fra dataarket række 4. Så skal data placeres på følgende måde:

Dataark. A4 - Forside N10
Dataark. B4 - Forside N14
Dataark. C4 - Indtægt N4
Dataark. D4 - Indtægt N6
Dataark. E4 - Indtægt N8
Dataark. F4 - Indtægt N10
Dataark. G4 - Indtægt N12
Dataark. H4 - Indtægt N20
Dataark. I4 - Indtægt N23
Dataark. J4 - Indtægt N23
Dataark. K4 - Indtægt N27
Dataark. L4 - Indtægt N30
Dataark. M4 - Udgifter N5
Dataark. N4 - Udgifter N9
Dataark. O4 - Udgifter N12
Dataark. P4 - Udgifter N16
Dataark. Q4 - Udgifter N20
Dataark. R4 - Udgifter N25
Dataark. S4 - Udgifter N30
Dataark. T4 - Udgifter N31
Dataark. U4 - Udgifter N34
Dataark. V4 - Udgifter N38

Håber dette giver mening? :)

Ok - 2 x N23 på Indtægt - sidste skal måske N25 eller?

Måske:

Dataark. A4 - Forside N10 : =INDEKS(Dataark!$A$1:$V$110;Forsiden!$D$9;1)
Dataark. B4 - Forside N14 : =INDEKS(Dataark!$A$1:$V$110;Forsiden!$D$9;2)
Dataark. C4 - Indtægt N4  : =INDEKS(Dataark!$A$1:$V$110;Forsiden!$D$9;3).....

Forsiden D9 = Række nr. 4
Det sidste tal i formlen er Kolonne nr.
1 = A
2 = B
3 = C

Ja den skulle være N25

Jeg kan desværre ikke få INDEKS formlen til at virke :(

Er det noget i den her retning?

http://gratisupload.dk/f/8qwbqw7i4i/

Rem Version 1 / Anbringes "under Forside" (Højreklik / Vis programkode / sæt ind)
Const dataRæk = 110
Const tilKolonne = "N"
Const indtægtRæk = "4,6,8,10,12,20,23,25,27,30"
Const udgiftRæk = "5,9,12,16,20,25,30,31,34,38"
Dim dataark As Object
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rækNr As Integer
    If Target.Address = "$D$8" Then
        rækNr = 0
       
        If IsNumeric(Target) = True And Target > 0 And Target <= dataRæk Then
            Set dataark = ActiveWorkbook.Sheets("Dataark")
           
            rækNr = Target
            hentFraData rækNr
        End If
    End If
End Sub
Sub hentFraData(rækNr)
    tilForside rækNr
    tilIndtægt rækNr
    tilUdgift rækNr
End Sub
Private Sub tilForside(rækNr)
    With ActiveWorkbook.Sheets("Forside")
        .Range(tilKolonne & 10) = dataark.Range("A" & rækNr)
        .Range(tilKolonne & 14) = dataark.Range("B" & rækNr)
    End With
End Sub
Private Sub tilIndtægt(rækNr)
Dim kolNr As Variant, tabel As Variant
    tabel = Split(indtægtRæk, ",")
   
    For kolNr = 3 To 12
        With ActiveWorkbook.Sheets("Indtægt")
            .Range(tilKolonne & tabel(kolNr - 3)) = dataark.Range("C" & rækNr).Offset(0, kolNr - 3)
        End With
    Next kolNr
End Sub
Private Sub tilUdgift(rækNr)
Dim kolNr As Variant, tabel As Variant
    tabel = Split(udgiftRæk, ",")
   
    For kolNr = 13 To 22
        With ActiveWorkbook.Sheets("Udgift")
            .Range(tilKolonne & tabel(kolNr - 13)) = dataark.Range("M" & rækNr).Offset(0, kolNr - 13)
        End With
    Next kolNr
End Sub

NB.: Testfil kan evt. fremsendes. Send en mail - @-adresse under min profil.

supertekst, tak for hjælpen :) har sendt mail så du kan sende filen :)

supertekst, din kode virker perfekt

Jeg har bare en nys spørgsmål.

Kan man få den til at lave formlen på denne måde.

Hvis man taster fx 5, så vælger den, den række i dataarket, hvor tallet i kolonne A starter med 5?

der vil kun være unikke tal i kolonne A og de vil gå fra 1-110.

Har nemlig nogle huller i rækkerne. mangler nr 9, 42 og 101. som produkt, derfor kommer mine produkter forkert ind i forhold til det.

Tak - jeg prøver at se på det..