kode i Vb som skal kjøre kontinuerlig

[MrVilla]

Hei der

 

Jeg har et ark der jeg har laget en knapp som kopierer en kolonne og paster denne som values en annen plass.

Er det noen måte å få excel til å kjøre dette automatisk slik at jeg slipper å trykke på knappen?

[Harald Staff]

Dette låter som Excel? I så fall, hvis du har klart for deg hva som skal utløse handlingen så kaller du koden fra et egnet event. Se http://www.cpearson.com/Excel/Events.aspx om dette.

 

HTH. Beste hilsen Harald

[MrVilla]

Hei Harald.

 

Det var selfølgelig excel det gjaldt

Jeg har prøvd men finner ikke helt ut av det.

 

Dette er koden som ikke fungerer, kan du ta en kikk og si hva som er galt her?

Aller helst ville hatt denne koden kun til å sjekke endring på C2:C14, og ikek åp arket generelt.

 

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("C2:C14") >= Range("E2:E14") Then
   Range("C2:C14").Select
   Selection.Copy
   Range("E2:E14").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
End Sub

[Harald Staff]

Ja denne er det ikke ett entydig svar på:

If Range("C2:C14") >= Range("E2:E14") Then

 

Prøv denne:

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Omraade As Range

On Error Resume Next

Set Omraade = Intersect(Target, Me.Range("C2:C14"))

On Error GoTo 0

If Omraade Is Nothing Then Exit Sub

Me.Range("C2:C14").Copy Destination:=Me.Range("E2:E14")

End Sub

 

HTH. Beste hilsen Harald

[MrVilla]

Hei Harald

 

Takk for svar. Ble imidlertid litt usikker her på hva som egentlig skjer. intersect? hva gjør den funksjonen? Ser heller ikke noe sted i formelen at den skal kopierer kun verdien av C kolonnen.

 

Hva gjør denne koden egentlig?

[Harald Staff]

Du har prøvd den håper jeg? Siste linjen kopierer C2:C14 til E2:E14.