VBAcode vanaf datum rekenen som

Status
Niet open voor verdere reacties.
F

FlyTo

Gebruiker
Lid geworden
19 dec 2009
Berichten
24
Ik zou graag een berekening krijgen =SOM() in de kolom van totaal, maar dan vanaf de huidige datum tot einde van de rij.
Zo gaat het verder op de volgende dag of in de volgende week
Zoals je zal zien in de bijlage, heb ik wel het totaal vanaf het begin van de rij.
Kan iemand me hier bij tippen ?

Hieronder al een stukje code

Sub FindDate()

Dim Row, Column, r, k As Integer

For Each cell In ActiveSheet.Range("D2:Q2")
If cell.Value = [Today()] Then
cell.Select
End If
Next
For Row = 3 To 15
If ActiveCell.Offset(1, 0).Select Then
Range("B3").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[7]:RC[15])"

End If
Next Row

End Sub

Grt,
 
Laatst bewerkt:
Bv.
Code: 
Sub hsv()
Dim sn, i As Long
sn = Range("A2:Q15")
 For i = 2 To UBound(sn)
   sn(i, 2) = Application.Sum(Application.Index(sn, i, Evaluate("row(" & Application.Match(CLng(Date), Range("A2:Q2"), 0) & ":17)")))
 Next i
Range("A2:Q15") = sn
End Sub
 
Hoy Harry,

Alvast al bedankt voor de VBA code.
Als ik deze uitvoer bij de bijlage die toediende werkt deze wel op dag per dag.
Maar ik heb geprobeerd deze uit te voeren bij een wekelijkse trekking enkel op de vrijdag,
met enkele wijzigingen in de code maar dan loopt het reeds fout af.
Ik snap wel enkele dingen uit de code maar niet alles.
Ik heb ook gezien dat de 3de kolom wordt gewijzigd maar deze moet degelijk =B2/1,25 en de andere rijen tot en met =B37/1,25 ook zo blijven om in weken uit te komen.

Hierbij stuur ik je het juiste werkblad door. AfdrukInleg

Nogmaals alvast bedankt

Grt, Ronny
 
Laatst bewerkt:
Bekijk het resultaat.
 

Bijlagen

  • AFdrukInleg.xlsb
    39,3 KB · Weergaven: 52
Harry,

Nogmaals van harte dank ziet er goed uit (SUPER):thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan