kopier tekst fra projektmappe til projektmappe

ret sti og ark navn i linie 3 til aktuel

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
Range("B10").Formula = "='C:\Users\pm\Desktop\[" & Range("A10").Value & "]Ark1'!$A$152"
End Sub

obs kode indsættes i arkets kodemodul

Hej Excelent

Jeg har prøvet at kopier alle fire liner ind i VBA - dog uden held.
Jeg forstå egentlig godt koden i det du skriver. Men kan ikke få det til at fungere. Det er mange år siden jeg sidst har rodet med koder og aldrig med VBA.

Skal jeg oprette det som en makro eller hvordan. har prøvet som nedenstående:

Sub hent()

If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
Range("B10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\ [" & Range("A10").Value & "]Ark1'!$A$152"
End Sub

Hvis jeg laver en makro som ovenstående viser den ordet bannan når jeg stiller musepilen over "Range" men den kommer også med en fejlmeddelese:

Runtime error 424, object requied.

Har prøvet at læse i hjælp med forstår det ikke helt.

Håber du kan hjælpe.

ps. Kender du nogle steder hvor man kan tage i kursus i VBA til excel?

djasper

Ups - har nu skrevet det ind i ark1's code. Men det hjælper stadig ikke. nu får jeg dog ingen fejlmelding.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
Range("B10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\ [" & Range("A10").Value & "]Ark1'!$A$152"
End Sub

djasper

Har du husket at rette stien og evt. arknavn til aktuel

Jeg har ikke givet arket noget nyt navn. Og stien er som jeg har skrevet oppe over. Så det er ikke det:-(

Nu virker det. Jeg havde glemt at mine sikkerhedsinstillinger ikke var indstillet ordentlig.

Så nu kan jeg nørde lidt videre med at få det til at virke i hele arket.

Djaper

Husk kun lægge en kommentar, - svar anvendes når der er fundet en løsning

Hvordan mener du -virke i hele arket ?

Det må du undskylde jeg er ny i dette forum:-) Og hvordan giver jeg point til dig for dit svar?

Jeg har lavet det sådan, at den henter adresse, firma, by, telefon, etc. fra den anden fil. Men jeg er ikke nået længere end at få den til at gøre det for række 10. Men jeg vil gerne have det til at virke for hele kolonne A. Således at jeg i den nederst tomme række i A kollonnen blot behøver at skrive filnavnet på den fil jeg vil impotere informationer fra.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
    Range("B10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\[" & Range("A10").Value & "]Ark1'!$B$2"
    Range("C10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\[" & Range("A10").Value & "]Ark1'!$B$3"
    Range("D10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\[" & Range("A10").Value & "]Ark1'!$B$4"
    Range("E10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\[" & Range("A10").Value & "]Ark1'!$B$5"
    Range("F10").Formula = "='C:\Documents and Settings\jpm\Skrivebord\[" & Range("A10").Value & "]Ark1'!$B$6"
End Sub

Endnu engang mange tak for hjælpen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
sti "='C:\Documents and Settings\jpm\Skrivebord\["
Target.Offset(0, 1).Formula = sti & Target.Value & "]Ark1'!$B$2"
Target.Offset(0, 2).Formula = sti & Target.Value & "]Ark1'!$B$3"
Target.Offset(0, 3).Formula = sti & Target.Value & "]Ark1'!$B$4"
Target.Offset(0, 4).Formula = sti & Target.Value & "]Ark1'!$B$5"
Target.Offset(0, 5).Formula = sti & Target.Value & "]Ark1'!$B$6"
End Sub