flytte data fra et ark til et andet.

LOPSLAG kan gøre det.

Funktionen henter data fra et andet ark ud fra et kriterie. Jeg har i eksemplet et ark døbt "varer".

=LOPSLAG(A24;Varer;2;FALSK)

Her vare har et unikt varenummer. Jeg vil nu overføre data fra Varer til et andet ark ved at indtaste et varenummer.

A2 = Det celle hvori jeg indtaster varenummer
Varer = Det navngivne område det indeholder de data jeg vil hente
2 = Nummeret på den kolonne i Varer der indeholder de data jeg vil hente
FALSK = Der findes kun det ene nummer i Varer (altså ingen dubletter).

Hvis du ændrer FALSK til SAND, vil funktionen hente den første forekomst af flere datasæt med det samme varenummer.

Hvis det indtastede Varenummer ikke findes får du fejl med tegnene #I/T. Det kan du komme ud over med denne:

=HVIS(ER.FEJL(LOPSLAG(A26;Varer;2;FALSK));"";LOPSLAG(A26;Varer;2;FALSK))


Hvis du lægger din e-mail, kan jeg sende dig et eksempel.

Ja, lopslag er absolut en mulighed, den havde jeg ikke lige tænkt på.
Jeg er helt med brugen af Lopslag og også hvis.fejl, men jeg er rimelig forhippet på at få det lavet i kode. :-)
Dette skyldes at jeg retter de værdier der står i kolonnerne A til D igennem en userform. Hvis jeg bruger lopslag, ryger dette når jeg retter igennem userformen.

Jeg fik ikke lige nævnt i mit første indlæg at der ikke er lige mange linjer i startark og slutark, så man kan ikke bare kopiere hele kolonner over.

Det er ikke for at jeg vil være utaknemmelig Mugs, men jeg afventer lige og ser om der er nogen der kan klare den i vba. Håber at det er ok?

Ved LOPSLAG kopierer du kun selvvalgte celler, det behøver ikke at være hele kolonner.
Det er OK at vente - Selvfølgelig kan det laves i kode.

Peøv at søge i eksperten's vuidensbase. Der kommer flere hits med søgeordet kopier, bl.a. denne:

http://www.eksperten.dk/spm/600496

Sub Opdater()
Set sh1 = Sheets("startark")
Set sh2 = Sheets("slutark")
rk = sh1.Cells(200, 1).End(xlUp).Row
For t = 1 To rk ' ret 1 til den række hvor data står i
sh2.Cells(t, 1) = sh1.Cells(t, 1)
sh2.Cells(t, 2) = sh1.Cells(t, 2)
sh2.Cells(t, 3) = sh1.Cells(t, 4)
sh2.Cells(t, 4) = sh1.Cells(t, 6)
sh2.Cells(t, 5) = sh1.Cells(t, 8)
sh2.Cells(t, 6) = sh1.Cells(t, 10)
Next
End Sub

hvordan går det ?

Beklager at jeg ikke er vendt tilbage på denne noget før. Havde svedt den ud.

Den virker ikke helt efter hensigten endnu, men vi er inde på noget af det rigtige.
Den skal kigge i startark i kolonne A, hvor den eks. finder nr. "1".
Det der står i kolonnerne b,d,f,h,j
skal den så kopiere til slutark i den linje der indeholder "1" i kolonne A

Derefter skal den gøre det samme udfor linje med nr "3" (se nedenfor)
osv.

Det der er udfordringen er at antallet af linjer i startark og slutark ikke er identiske.

I det viste eksempel nedenfor er 2,5,6,8 osv ikke i startarket. Derfor skal disse linjer ikke røres i slutarket.

Det er ikke alle numre der er oprettet i slutark og heller ikke i startark, hvilket nok komplicerer koden lidt.

Jeg havde tænkt mig at man indlæser det der står i kolonne A i startark i en variabel. For derefter at finde den i slutark og herefter "opdatere" de enkelt kolonner i den pågældende linje.


I startark kan der f.eks. stå følgenr. i kolonne A
1
3
4
7
9


I slutark kan der f.eks. stå følgende nr. i kolonne A
1
2
3
4
5
6
7

Prøv lige denne - ikke testet

Sub Opdater()
Set sh1 = Sheets("startark")
Set sh2 = Sheets("slutark")
rk1 = sh1.Cells(900, 1).End(xlUp).Row
rk2 = sh2.Cells(900, 1).End(xlUp).Row

For t = 1 To rk1
On Error Resume Next
rk = sh2.Range("A1:A" & rk2).Find(sh1.Cells(t, 1).Value, LookIn:=xlValues).Row
sh2.Cells(rk, 2) = sh1.Cells(t, 2).Value
sh2.Cells(rk, 3) = sh1.Cells(t, 4).Value
sh2.Cells(rk, 4) = sh1.Cells(t, 6).Value
sh2.Cells(rk, 5) = sh1.Cells(t, 8).Value
sh2.Cells(rk, 6) = sh1.Cells(t, 10).Value
Next

End Sub

Yes, så var den der.

Mange tak for hjælpen. Og så beklager jeg den længe sagsbehandlingstid :-)

velbekom