Lave Hvis Kommando'er i VB code

Eksempel:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
    If Target.Address = "$A$7" Then
        Select Case Target.Value
            Case Is < 65000
                s = Range("B29")
               
            Case Is < 70000
                s = Range("B28")
           
            Case Is < 75000
                s = Range("B27")
               
            Case Is < 80000
                s = Range("B26")
               
            Case Is < 85000
                s = Range("B25")
               
            Case Is < 90999
                s = Range("B24")
           
            Case Is < 108999
                s = Range("B23")
               
            Case Is < 118999
                s = Range("B22")
         
            Case Is < 128999
                s = Range("B21")
               
            Case Is < 138999
                s = Range("B20")
               
            Case Else
                s = Range("B19")
            End Select
           
            Range("A1") = s
    End If
End Sub

Hejsa umiddelbart virker det men..

den skal virke således..feks: der står 95000 i A1 , så skal den skrive summe af B20 i A2,og i B1 kan der står 78000, så skal den tage summe af B19 og skrive det i B2 osv.

håber det giver mening.

Så skal du vel erstatte S = range(.. med den korrekte celle.

Den du har lavt der kan jeg kun skrive i feltet A7, og ikke i B7,C7 osv

det virker fint i feltet A7, men det skal osse virke i B7,C7 i det uendelige ;)

Skriver jeg 97000 i A7 så finder den celle B23, og skriver summen i A1 som den skal,Skriver jeg 97000 i B7 så skal den osse Skrive summe af Celle B23 i B1..ovs.

mvh Brian

If Target.Address = "$A$7" Then

skal så ændres til If Target.row = 7 Then

Okay er gjort..
men hvad med den her Range("A1") = s , den angiver kunne summen i det felt ;)så når jeg skriver i B7 så kommer det i A1, men skal angive det i B2 osv..

D.v.s. samme kolonne, som indtastningen sker i?

Hvis C7 - så resultat i C1 eller ?

lige præcis.. hvis D7 - resultat i D1 osv....

Range("A1") = s

erstattes af

Cells(1, Target.Column) = s

Perfekt..det dur ;) hvordan giver jeg point for det

Du får etsvar fra mig, som du accepterer - men inden afviser du dit eget svar.

(SVAR sendes kun af andre - ikke af opgavestilleren)