Hente data fra andet excelark

Hmm det er åbenbart svært det siden ingen kan svare.

Det er ok hvis det koster nogle flere point. Lad os sige at der er 100 ude.

Hehe - det er da en sjov lille en. Jeg har leget en del med kodning mod Word og Outlook, men ikke Excel. Hvilken Excel-version taler vi om her? Kan du eventuelt sende mig filerne, så prøver jeg engang. Ville det være en mulighed at lave odbc-kilder mod filerne? Det ville nok være en nem måde.
jesperthomsen@yahoo.com

Har sendt to filer en kilde.xls og en destination.xls

Der skal helst ikke benyttes odbc, men vel noget med open file....

Det er Excel 97.

Så har jeg sendt en løsning til dig...er faktisk lidt i tvivl om jeg fik den vedhæftede fil med. I øvrigt, lidt mere info her: http://groups.google.com/groups?hl=da&threadm=bpyxr6FSBHA.264%40cppssbbsa01.microsoft.com&rnum=1&prev=/groups%3Fq%3Dvb%2Bexcel%2Bado%26hl%3Dda

Du skulle heller spørge under Excel, da vi også der svarer på VBA spørgsmål *S*

Det var et tilfælde jeg lige var her inde, menher er så en kode, der kunne aktiveres via en knap på værktøjslinien eller knap indsat i arket:

Sub Kopier()
       
'Henter værdien i celle H3
Find = Range("H3").Value

'Åbner Kildefilen
Workbooks.Open "Kilde.XLS"
     
'returnerer rækkeantal i arket
ActiveCell.SpecialCells(xlLastCell).Select
Række = ActiveCell.Row

'En variabel
x = 10

'Gennemløber alle rækker
For n = 1 To Række
    'Hvis celleværdien i rækken = Find
    If Cells(n, 1).Value = Find Then
          'Kopierer rækken fra kilde.xls - i dette tilfælde 15 celler
          Range(Cells(n, 1), Cells(n, 15)).Copy
          'Aktiverer destinationsarket
          Workbooks("Destination.xls").Sheets("Ark1").Activate
          'Vælger H10
          Cells(x, 8).Select
          'Sætter ind
          ActiveSheet.Paste
          Workbooks("Kilde.XLS").Sheets("Ark1").Activate
          'Lægger 1 til variablen så rækken bliver rigtig i destination.xls
          x = x + 1
    End If
Next n

Workbooks("Kilde.XLS").Close SaveChanges:=False

End Sub

Mvh

Richardt

Lytter

Mange tak for hjælpen.

Jeg har desværre ikke VB så svaret fra jesperthomsen var lidt svært at bruge, men jeg har delt de 100 point.

Ja, så kan jeg godt se at det er lidt vanskeligt at bruge ;). Men brug hellere Excel-gruppen næste gang så.
Fomse -> hvis du gerne vil have sovsen så lad mig få din email og jeg sender den.

jesperthomsen>>Du må meget gerne sende den på: fomse@fomsgaard.com

Takker

Fomse:-)