Tæller betinget af placering eller område

Hej Klyde,

jeg skal lige forstå problemstillingen korrekt.
Du skal havde summen af A4:ao40 til at stå i celle G49. Og hertil er et givent regelsæt:

Værdien i celle AP1 må ikke fremgå i området A4:ao40 og omvendt må værdierne i området ikke fremgå i celle ap1?

Er dette korrekt?

Den ska tælle således, at når jeg flytter en værdi fra celle til anden, så tæller den 1 hver gang jeg flytter værdien?

Sidder med en Excel mappe, hvor jeg både opretter værdier men også flytter værdier fra en celle til en anden.
Eksempel: ark 1 opretter jeg en værdi f.eks 123456 i en tilfældig celle og så vil jeg gerne have en celle som tæller hver gang jeg gør det.
Jeg kan også trække(klip-sæt ind) en værdi fra et arks celle til et andet arks celle og det skal den også tælle.
Men der er så lige de givne betingelser som nævnt i tråden.

Har denne vba kode indtil videre som tæller alle ændringer i en celle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:F")) Is Nothing Then
If Target <> "" Then Range("G1") = Range("G1") + 1
End If
End Sub

Men mangler så en som fungere udfra de andre kriterier.

Ser helt præcis sådan ud:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:AO40")) Is Nothing Then
If Target <> "" Then Range("G50") = Range("G50") + 1
End If
End Sub

Den tæller alle ændringer i området A4:AO40 og angiver hver gang en celle bliver ændret i celle G50.
Denne del kører fint nok, men mangle så en ekstra som fungerer på samme måde, men udfra de givne kriterier øverst i tråden.
Har prøvet med forskellige koder som så trækker nogle værdier fra hinanden i de forskellige resultat celler, men kunne ikke komme helt i mål.

Hej Klyde,

Jeg må ærligt indrømme at det er noget uoverskueligt.

Først er summen i g1 så i g49 og nu i g50.

Hvis jeg skal se nærmere på det, bliver du nød til at smide et link, hvor jeg kan downloade et eksempel på hvad du vil havde lavet.

Med venlig hilsen
Andreeas

Ok, sender er upload i morgen.
Sagen er, at denne vba:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:AO40")) Is Nothing Then
If Target <> "" Then Range("G50") = Range("G50") + 1
End If
End Sub

Den tæller for hver gang jeg ændrer en celle, altså hvis jeg flytter et tal som står i celle A5 til celle A4, så er det 1 ændring i celle A4.
Derfor kommer tallet 1 frem i celle G50
Flytter jeg bagefter tallet i celle B8 til celle D3 så skriver den tallet 2 i celle G50 osv.

Denne vba kode er som den skal være.

Næste ønske er en vba kode som gør følgende:
Hvis jeg flytter en værdi fra en celle i området A4:AD40 til en celle i samme område, så skal den skrive tallet 1 i celle G49.
Men hvis jeg flytter værdien i en celle i område AE4:AO40 til en celle i området A4:AD40, så må den ikke tælle i celle G49.
Og hvis jeg flytter værdien i en celle i området A4:AD40 til en celle i området AE4:AO40, så må den ligeledes ikke tælle i celle G49.

Lukker den bare her