Avatar billede steensommer Praktikant
30. januar 2004 - 01:22 Der er 1 løsning

Overføre data fra et ark til et andet

Hej
Jeg har en projektmappe med en del ark. I arket "Medicin" vil jeg (når området i Range("Epikr":AH8:AH33)er forskellig fra "")gerne overføre data i 2 kolonner til arket "Udskrivelse" i Området F50:F79 (uden mellemrum). Jeg havde anbragt følgende kode i Medicin-arkets Worksheet_Change og det lykkedes fint at få det ønskede over i det rigtige område MEN hvis jeg sletter fra "Epikr" kopierer den igen i stedet for at slette (og jeg har eksperimenteret en del uden held):

If Not Intersect(Target, Range("Epikr")) Is Nothing Then
    If Target.Range("Epikr").Value <> "" Then
        With Sheets("Udskrivelse").Range("F65536").End(xlUp)
        .Offset(1, 0) = Target.Offset(0, -31).Value & " " & Target.Offset(0, -1).Value
        End With
    End If
End If

Hjælp
vh Steen
Avatar billede steensommer Praktikant
30. januar 2004 - 09:21 #1
Nå jeg fandt selv en løsning - hvis en enkelt skulle være interesset mailer jeg gerne løsningen  :0)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester