aktivering af macro

prøv at indsætte denne kode i arkets eget kodemodul (højreklik på arkfanen og vælg "Vis programkode")
Hver gang arket rekalkuleres vil den chekke om D4 er ændret og hvis det er tilfældet så kopieres indholdet over i B10

Public vD4 As Variant
Private Sub Worksheet_Calculate()
  If Range("D4") = vD4 Then Exit Sub
  Range("B10").Value = Range("D4").Value
  vD4 = Range("D4")
End Sub

bingo svar pls

ok :-*)

Public vD4 As Variant
Public vD5 As Variant


Private Sub Worksheet_Calculate()
  If Range("D4") = vD4 Then Exit Sub
  Range("B10").Value = Range("D4").Value
  vD4 = Range("D4")
 
 
  If Range("D5") = vD5 Then Exit Sub
  Range("b11").Value = Range("D5").Value
  vD5 = Range("D5")
End Sub

Hej Bak, kan du sige mig hvorfor det så ikke virker med d5

Det virker ikke med D5, da den allerede springer ud af sub'en idet der konstanteres at D4 = vD4
Denne lille ændring burde gøre det:

Public vD4 As Variant
Public vD5 As Variant


Private Sub Worksheet_Calculate()
  If Range("D4") = vD4 Then GoTo Test_D5
  Range("B10").Value = Range("D4").Value
  vD4 = Range("D4")

Test_D5:
  If Range("D5") = vD5 Then Exit Sub
  Range("b11").Value = Range("D5").Value
  vD5 = Range("D5")
End Sub

Undskyld jeg bliver ved (jeg vil gerne give flere p, men det kan vi lige tage bagefter)

Det virkede fint som du skrev, nu udvider jeg så med endnu en, men den vil den så ikke køre før jeg ændre noget ved d5

Public vD4 As Variant
Public vD5 As Variant
Public vD6 As Variant


Private Sub Worksheet_Calculate()
  If Range("D4") = vD4 Then GoTo Test_D5
  Range("B10").Value = Range("D4").Value
  vD4 = Range("D4")

Test_D5:
  If Range("D5") = vD5 Then Exit Sub
  Range("b11").Value = Range("D5").Value
  vD5 = Range("D5")
 
Test_D6:
  If Range("D6") = vD6 Then Exit Sub
  Range("b12").Value = Range("D6").Value
  vD6 = Range("D6")
End Sub

Public vD4 As Variant
Public vD5 As Variant
Public vD6 As Variant


Private Sub Worksheet_Calculate()
  If Range("D4") = vD4 Then GoTo Test_D5
  Range("B10").Value = Range("D4").Value
  vD4 = Range("D4")

Test_D5:
  If Range("D5") = vD5 Then GoTo Test_D6
  Range("b11").Value = Range("D5").Value
  vD5 = Range("D5")
 
Test_D6:
  If Range("D6") = vD6 Then Exit Sub
  Range("b12").Value = Range("D6").Value
  vD6 = Range("D6")
End Sub

bak du er gud

spm, det virker som om at jeg skal skifte værdi to gange i et felt når arket lige er åbnet, kan det forklares/fixes?
Vil du have flere p?

nix, ikke engang guru :-)

Problemet er at de tre varible ikke har nogen værsi til at starte med.
Indsæt det her samme sted, således at de bliver initialisede når arket vælges.

Private Sub Worksheet_Activate()
vD4 = Range("D4")
vD5 = Range("D5")
vD6 = Range("D6")
End Sub

slåfejl: værsi = værdi
og jeg ønsker ikke flere points :-)

nemlig ja, nemlig :-)