Fra data fra en excel mappe til en anden

Ja - det skulle det nok være... - vender tilbage

Prøv at sende en mail til: pb@supertekst-it.dk - så kan jeg sende en model, der fungere ved hjælp af "Lopslag".

Er det ikke "godt nok" - kan det udføres via VBA

Peter Braagaard - supertekst: ikke noget med at udveksle svar eller løsninger pr. e-mail. De skal skrives her på siden så de er tilgængelige for alle.

Ellers se Reglerne endnu en gang - står oppe under Info.

halifax: Det er er forstået...

Følgende forslag blev fremsendt. Opslagsfunktion i "Modtagerfile":
=LOPSLAG(A2;'C:\Documents and Settings\pb\Skrivebord\2803HenteFRaMappe\[Kilde.xls]Ark1'!$A$1:$B$3;2;FALSK)

hvor en tilpasning af "stien" var nødvendig

Her er "en automatisk model" - koden anbringes i VBA (Alt+F11) i Ark1 (ModtagerFilen). Indtast ByNr i celle i kolonne A - bynavn hentes fra Kilde-filen.


Rem ==========TILPASSES==========
Const kildeFilSti = "C:\Documents and Settings\pb\Skrivebord\2803HenteFraMappe\kilde.xls"  'Tilpasses
Const modtagerKolonne = 1          'A
Rem =============================
Dim kXLS As Object
Private Sub worksheet_change(ByVal Target As Excel.Range)
Rem Hvis celle er UDFYLDT & KOLONNE = A og TAL-VÆRDI INDTASTET - så hent BY
    If Target <> "" And Target.Column = modtagerKolonne And IsNumeric(Target) = True Then
        Target = hentBy(Target)
    End If
End Sub
Private Function hentBy(byNr)
Rem Åbner kildefilen
    Set xls = CreateObject("Excel.application")
    With xls
        .Workbooks.Open kildeFilSti
   
        .Sheets(1).Activate
Rem Bynavn hentes fra RÆKKE=BY-NR I KOLONNE A
Rem =========================================
        hentBy = .Cells(byNr, 1)                '<----
        xls.Quit
        Set xls = Nothing
    End With
End Function

Det ser rigtig godt ud, og virker som det skal... Jeg vil prøve at se om jeg kan finde ud af det med VBA... Du ser ud til at være rimelig hardcore til at lege med excel... har du evt. nogle bøger eller hjemmesider som du kan anbefale hvis man ønsker at lære noget VBA og Excel??? Læg et svar så får du point...

Vedr. bøger - prøv at søg på nettet - evt. på VBA tutorial

Men ved at gå ind i VBA-koden - så kan du derfra via F1 få hjælp - såvel generelt som på bestemte udtryk - herved vil der også blive vist eksempler.

Du får et svar - men giv signal hvis mere hjælp ønskes.

supertekst  -  Kanongodt at dit løsningsforslag nu kan ses her.  :-)

vh  halifax
 

Her kommer de som regel altid...