Bedrag op datum verplaatsen

[alberto10]

Justes,
Ge schrijft dat ge hem in werking hebt maar in uw bijgevoegd bestand staan wel getallen maar geen formule. Zodoende kan ik hem ook niet aanpassen om de bedragen in kolom H te laten verschijnen. de formule werkt als volgt : =SOM.ALS(C:C;"<="&A2;D)
'C:C = kolom waar de datums staan.
'D = kolom waar de bedragen staan.
'A1 t/m A13 = waar de laatste dag van de maand staat om te zoeken.
Heb uw bestandje aangepast.

 

[Justes]

Vooruit dan maar, hier is heel je macro:

Private Sub Workbook_Open()
    Dim rngCellen As Range, iAantGevuld As Integer, dt As Date
    Set rngCellen = Range("G4, G6, G8, G10, G12, G14, G16, G18, G20, G22, G24, G26")
    iAantGevuld = WorksheetFunction.Count(rngCellen)
    If iAantGevuld < 12 Then
        dt = DateSerial(Range("C3"), iAantGevuld + 2, 1)
        If Date >= dt Then Range("C2").Copy rngCellen.Cells(1).Offset(2 * iAantGevuld)
    Else
        MsgBox "Heel " & Range("C3") & " werd ingevuld."
    End If
End Sub

In het vervolg doe je dit manueel hé...

Wigi

Heel Goed Wigi,

Klein probleem nog, in het grote programma staat in C2 een formule =SOM(C5:C250) hij kopieerd dus de formule, ik weet dat er dan iets van .PasteSpecial bijgevoegd moet worden, maar ik kom er niet uit.

Gr Justes

 

[Wigi]

Ondertussen zijn we (ik toch ) al veeeel langer bezig dan 12 getallen per jaar ingeven, maar ja...

Private Sub Workbook_Open()
    Dim rngCellen As Range, iAantGevuld As Integer, dt As Date
    Set rngCellen = Range("G4, G6, G8, G10, G12, G14, G16, G18, G20, G22, G24, G26")
    iAantGevuld = WorksheetFunction.Count(rngCellen)
    If iAantGevuld < 12 Then
        dt = DateSerial(Range("C3"), iAantGevuld + 2, 1)
        If Date >= dt Then
        Range("C2").Copy
        rngCellen.Cells(1).Offset(2 * iAantGevuld).PasteSpecial xlValues
        Application.CutCopyMode = False
    Else
        MsgBox "Heel " & Range("C3") & " werd ingevuld."
    End If
End Sub

Wigi

 

[Justes]

Hallo Wigi,

Nu is het prima, moest nog een End if tussen, hartelijk dank, is voor vijf programma`s

Gr Justes

 

[Wigi]

Nu is het prima, moest nog een End if tussen

Jep. Klopt.