Overføre data fra et ark til et andet
HejJeg 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
