Ark1 er mit arbejdsark indeholdende stamdata der bliver trukket automatisk fra sql. Ark2 er mit opslagsark hvor jeg har yderligere data, som med LOPSLAG bliver overført til ARK1 Kolonne C.
Når jeg ændre noget i Ark1 kolonne C3 vil jeg gerne have det opdateret i Ark2 ud for rette index (kolonne A), hvordan gør jeg det?
Jeg kan fange ændringer i arket med nedenstående, men ved ikke hvordan jeg finder cellerne og får opdateret korrekt i rette celle i det andet ark.
Private Sub Worksheet_Change(ByVal Target As Range)
Mød en af Nordens fremmeste eksperter i adfærdsdesign – Morten Münster, der bl.a. har skrevet ” Jytte fra marketing er desværre gået for i dag” – på Computerworld Cloud & AI Festival.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C:C")) Is Nothing Then LastRow2 = Sheets("Ark2").Range("A65536").End(xlUp).Row r = Target.Row n = Cells(r, 1) r2 = WorksheetFunction.Match(n, Sheets("Ark2").Range("A2:A" & LastRow2), 0) Sheets("Ark2").Cells(r2, 2) = Sheets("ark1").Cells(r, 3) End If End Sub
Synes godt om
1 synes godt om dette
Ny brugerNybegynder
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.