VBA i excel. Hjælp med at finde fejl.
Jeg harindtastsninsark, hvor jeg indtaster data, som lagrer sig i forskellige ark og kolonner.
Jeg har tidligere fået hjælp her i eksperten til at makro i VBA og det fungerer fint.
Nu har jeg udbygget mit indtastningsark, hvor jeg i
celle g4 indtaster data relateret til værdien i celle c1.
Indtastningen i celle g4 skal lagres i "Antal solgt pladser" kolonne 16.
Men dette sker ikke.
Ud over ovennævnte indeholder makroen også andre indtastninger, som skal overføres og disse virker ok.
Er der nogen som kan hjælpe mig, og finde fejlen i makroen, så bliver jeg glad. Jeg er helt nybegynder med makroer.
vh.
Allan
Her er min makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c7:c19")) Is Nothing Then
Fstnr = ActiveSheet.Range("c1").Value
For Each c In Sheets("Prisgrupper").Range("a3:a47").Cells
If c.Value = Fstnr Then
Select Case Target.Address
Case Is = "$C$7"
c.Offset(0, 2).Value = Target.Value
Case Is = "$C$8"
c.Offset(0, 3).Value = Target.Value
Case Is = "$C$9"
c.Offset(0, 4).Value = Target.Value
Case Is = "$C$10"
c.Offset(0, 5).Value = Target.Value
Case Is = "$C$11"
c.Offset(0, 6).Value = Target.Value
Case Is = "$C$12"
c.Offset(0, 7).Value = Target.Value
Case Is = "$C$13"
c.Offset(0, 8).Value = Target.Value
Case Is = "$C$14"
c.Offset(0, 9).Value = Target.Value
Case Is = "$C$15"
c.Offset(0, 10).Value = Target.Value
Case Is = "$C$16"
c.Offset(0, 11).Value = Target.Value
Case Is = "$C$17"
c.Offset(0, 12).Value = Target.Value
Case Is = "$C$18"
c.Offset(0, 13).Value = Target.Value
Case Is = "$C$19"
c.Offset(0, 14).Value = Target.Value
End Select
End If
Next
End If
If Not Intersect(Target, Range("d7:d19")) Is Nothing Then
Fstnr = ActiveSheet.Range("c1").Value
For Each c In Sheets("Antal solgte pladser").Range("a3:a47").Cells
If c.Value = Fstnr Then
Select Case Target.Address
Case Is = "$D$7"
c.Offset(0, 2).Value = Target.Value
Case Is = "$D$8"
c.Offset(0, 3).Value = Target.Value
Case Is = "$D$9"
c.Offset(0, 4).Value = Target.Value
Case Is = "$D$10"
c.Offset(0, 5).Value = Target.Value
Case Is = "$D$11"
c.Offset(0, 6).Value = Target.Value
Case Is = "$D$12"
c.Offset(0, 7).Value = Target.Value
Case Is = "$D$13"
c.Offset(0, 8).Value = Target.Value
Case Is = "$D$14"
c.Offset(0, 9).Value = Target.Value
Case Is = "$D$15"
c.Offset(0, 10).Value = Target.Value
Case Is = "$D$16"
c.Offset(0, 11).Value = Target.Value
Case Is = "$D$17"
c.Offset(0, 12).Value = Target.Value
Case Is = "$D$18"
c.Offset(0, 13).Value = Target.Value
Case Is = "$D$19"
c.Offset(0, 14).Value = Target.Value
End Select
End If
Next
End If
If Not Intersect(Target, Range("g4")) Is Nothing Then
Fstnr = ActiveSheet.Range("c1").Value
For Each c In Sheets("Antal solgte pladser").Range("a3:a47").Cells
If c.Value = Fstnr Then
Select Case Target.Address
Case Is = "$g$4"
c.Offset(0, 16).Value = Target.Value
End Select
End If
Next
End If
If Not Intersect(Target, Range("c20:c22")) Is Nothing Then
Fstnr = ActiveSheet.Range("c1").Value
For Each c In Sheets("Regnskab").Range("a2:a46").Cells
If c.Value = Fstnr Then
Select Case Target.Address
Case Is = "$C$20"
c.Offset(0, 3).Value = Target.Value
Case Is = "$C$21"
c.Offset(0, 4).Value = Target.Value
Case Is = "$C$22"
c.Offset(0, 5).Value = Target.Value
End Select
End If
Next
End If
End Sub
