met dit voorbeeld kan je het een en ander aanpassen van veldnamen, condities e.d
sub voorbeeld()
rij = 9
mrij = 6
Do While Sheets("whatever").Cells(rij, 1) <> ""
klantnr1 = Sheets("whatever").Cells(rij, 13)
klantnr2 = Sheets("whatever").Cells(rij + 1, 13)
If klantnr1 <> klantnr2 And klantnr2 <> 0 Then
soort = Sheets("whatever").Cells(rij, 3).Value
center = Sheets("whatever").Cells(rij, 4).Value
faktuurnr = Sheets("whatever").Cells(rij, 13).Value
bedrag = Sheets("whatever").Cells(rij, 14).Value
vervaldatum = Sheets("whatever").Cells(rij, 15).Value
valutadatum = Sheets("whatever").Cells(rij, 24).Value
procent = Sheets("whatever").Cells(rij, 27).Value
Sheets("berekeningen").Cells(mrij, 23).Value = soort
Sheets("berekeningen").Cells(mrij, 22).Value = center
Sheets("berekeningen").Cells(mrij, 24).Value = faktuurnr
Sheets("berekeningen").Cells(mrij, 1).Value = bedrag
Sheets("berekeningen").Cells(mrij, 3).Value = vervaldatum
Sheets("berekeningen").Cells(mrij, 2).Value = valutadatum
Sheets("berekeningen").Cells(mrij, 5).Value = procent / 100000
End If
If klantnr2 = "" And klantnr1 > 0 Then
soort = Sheets("whatever").Cells(rij, 3).Value
center = Sheets("whatever").Cells(rij, 4).Value
faktuurnr = Sheets("whatever").Cells(rij, 13).Value
bedrag = Sheets("whatever").Cells(rij, 14).Value
vervaldatum = Sheets("whatever").Cells(rij, 15).Value
valutadatum = Sheets("whatever").Cells(rij, 24).Value
procent = Sheets("whatever").Cells(rij, 27).Value
Sheets("berekeningen").Cells(mrij, 23).Value = soort
Sheets("berekeningen").Cells(mrij, 22).Value = center
Sheets("berekeningen").Cells(mrij, 24).Value = faktuurnr
Sheets("berekeningen").Cells(mrij, 1).Value = bedrag
Sheets("berekeningen").Cells(mrij, 3).Value = vervaldatum
Sheets("berekeningen").Cells(mrij, 2).Value = valutadatum
Sheets("berekeningen").Cells(mrij, 5).Value = procent / 100000
End If
If klantnr1 = klantnr2 Then
val1 = Sheets("whatever").Cells(rij, 24)
val2 = Sheets("whatever").Cells(rij + 1, 24)
Do Until klantnr1 <> klantnr2
If val2 > val1 Then
rij = rij + 1
krednr1 = Sheets("whatever").Cells(rij, 13)
krednr2 = Sheets("whatever").Cells(rij + 1, 13)
val1 = Sheets("whatever").Cells(rij, 24)
val2 = Sheets("whatever").Cells(rij + 1, 24)
End If
If klantnr1 = klantnr2 And val2 < val1 Then
rij = rij + 2
End If
soort = Sheets("whatever").Cells(rij, 3).Value
center = Sheets("whatever").Cells(rij, 4).Value
faktuurnr = Sheets("whatever").Cells(rij, 13).Value
bedrag = Sheets("whatever").Cells(rij, 14).Value
vervaldatum = Sheets("whatever").Cells(rij, 15).Value
valutadatum = Sheets("whatever").Cells(rij + 1, 24).Value
procent = Sheets("whatever").Cells(rij, 27).Value
Sheets("berekeningen").Cells(mrij, 23).Value = soort
Sheets("berekeningen").Cells(mrij, 22).Value = center
Sheets("berekeningen").Cells(mrij, 24).Value = faktuurnr
Sheets("berekeningen").Cells(mrij, 1).Value = bedrag
Sheets("berekeningen").Cells(mrij, 3).Value = vervaldatum
Sheets("berekeningen").Cells(mrij, 2).Value = valutadatum
Sheets("berekeningen").Cells(mrij, 5).Value = procent / 100000
Loop
End If
mrij = mrij + 1
rij = rij + 1
Loop
End Sub
deze vba macro kan het een en ander, mits aanpassen naar je oefening
geef anders maar seintje