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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
