de kører i par dvs. konto 1 - værdi 1, konto 2 - værdi 2, konto 3 - værdi 3

Problemet er, at den er begyndt at blande værdien fra konto 2 ind i konto 1's værdi, og helt skippe værdien af konti 1. Jeg vedlægger lige lidt kode, og beklager det sandsynligvis ikke er den mest smarte måde at programerer på. Alle de 0 stillinger jeg har drysset rund, er bare et forsøg på at fjerne problemet.

 

'1. sektion

Worksheets("Base").Activate
 sSheet = Worksheets("Base").Range("c4").Value
  x = Sheets("Base").Rows("4").Value
  k1 = Worksheets("Base").Range("f4").Value
  p = Val(sSheet)
  Application.FindFormat.Clear
With Worksheets("Saldo").Range("a61:a113")
    Worksheets("Saldo").Activate
    Set c = .Find(p, LookIn:=xlValues, lookat:=xlWhole)
        firstaddress = c.Address
        b = c.Address
     Range(b).Offset(0, 3).Select
        a = ActiveCell.Row
        Cells(a, 3) = 0
        Cells(a, 3) = k1

End With
  Worksheets("Base").Activate
  Worksheets("Base").Rows("4").Select
     Selection.Copy
  Worksheets(sSheet).Activate
  Worksheets(sSheet).Rows("4").Insert xlShiftDown
  Worksheets(sSheet).Rows("4").Value = x
 Worksheets("Base").Activate
 x = 0
 k1 = 0
 p = 0
 
' 2. sektion
Worksheets("Base").Activate
sSheet = Worksheets("Base").Range("g4").Value
  x = Sheets("Base").Rows("4").Value
  k1 = Worksheets("Base").Range("h4").Value
  p = Val(sSheet)
  Application.FindFormat.Clear
With Worksheets("Saldo").Range("a61:a113")
    Worksheets("Saldo").Activate
    Set c = .Find(p, LookIn:=xlValues, lookat:=xlWhole)
        firstaddress = c.Address
        b = c.Address
    'Range(b).Offset(0, 3).Select
        a = ActiveCell.Row
        Cells(a, 3) = 0
          Cells(a, 3) = k1
End With
  Worksheets("Base").Activate
  Worksheets("Base").Rows("4").Select
    Selection.Copy
  Worksheets(sSheet).Activate
  Worksheets(sSheet).Rows("4").Insert xlShiftDown
  Worksheets(sSheet).Rows("4").Value = x
  Worksheets("Base").Activate
   x = 0
 k1 = 0
 p = 0
 
'3. sektion
Worksheets("Base").Activate
sSheet = Worksheets("Base").Range("i4").Value
  x = Sheets("Base").Rows("4").Value
  k1 = Worksheets("Base").Range("j4").Value
  p = Val(sSheet)
  Application.FindFormat.Clear
With Worksheets("Saldo").Range("a61:a113")
    Worksheets("Saldo").Activate
    Set c = .Find(p, LookIn:=xlValues, lookat:=xlWhole)
       firstaddress = c.Address
       b = c.Address
     Range(b).Offset(0, 3).Select
     a = ActiveCell.Row
     Cells(a, 3) = 0
     Cells(a, 3) = k1
End With
  Worksheets("Base").Activate
  Worksheets("Base").Rows("4").Select
  Selection.Copy
  Worksheets(sSheet).Activate
  Worksheets(sSheet).Rows("4").Insert xlShiftDown
  Worksheets(sSheet).Rows("4").Value = x
  Worksheets("Base").Activate
   x = 0
 k1 = 0
 p = 0 

 

Håber der er en af jer kloge hoveder der kan gennemsku'e problemet.

Mange hilsner

søren