02. december 2013 - 22:07Der er
7 kommentarer og 1 løsning
Overføre værdi fra andet ark med VBA
Jeg skal lave en makro, der overfører værdien fra en celle i et andet ark i samme projektmappe. Værdien skal kopieres fra ark2 og sættes ind i ark1, når celle A1(ark1) har en bestemt værdi.
Jeg har lavet følgende kode, men den melder fejl i linjen: - Range("S4").Select
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1"), Target) Is Nothing Then If Target.Value = "feb" Then Sheets("Ark2").Select Range("S4").Select Selection.Copy Sheets("Ark1").Select Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False End If End If
Koden i et ark modul kan IKKE selecte et andet ark, prøv med
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1"), Target) Is Nothing Then If Target.Value = "feb" Then Sheets("Ark2").Range("S4").Copy Sheets("Ark1").Range("D10") End If End If
Det virker umiddelbart fint med din kode. Men det er formlen der bliver kopieret og indsat i destinationscellen. Jeg skal bruge værdien fra celle S4 i ark2.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1"), Target) Is Nothing Then If Target.Value = "feb" Then Sheets("Ark2").Range("S4").Copy Sheets("Ark1").Range("D10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If End If End Sub
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.
