Formule in cel plaatsen

[postbus52]

Sub week()
a = 0
b = 0
Application.ScreenUpdating = False
For a = 0 To 7
Sheets("Totaal").Select
If ActiveCell.Offset(b, 0) = "" Then
a = a - 1
Else
g = ActiveCell.Offset(b, -4).Address
Sheets("Weekomzet").Select
ActiveCell.Offset(0, a) = "=totaal!" & g
ActiveCell.Offset(0, a).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
ActiveCell.Offset(0, a).Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End If
b = b + 1
Next a
Application.ScreenUpdating = True
End Sub

Dit geeft als resultaat: =Totaal!E3
maar ik wil graag: =ALS(Totaal!E3>0;Totaal!E3;"")

 

[VenA]

Waarom wil je dmv van VBA formules in een cel zetten? Probeer het eens op deze manier.

Sub VenA()
j = 2
For Each cl In Sheets("Totaal").Columns(9).SpecialCells(-4123)
    If Not cl.Value = "" Then
        With Sheets("Weekomzet").Cells(2, j)
            .Formula = "=if(" & cl.Offset(, -4).Address(False, False, , True) & ">0," & cl.Offset(, -4).Address(False, False, , True) & ","""")"
            .NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
        End With
    j = j + 1
    End If
Next cl
End Sub

 

[postbus52]

Haha inderdaad, het werkt geweldig. Alleen heb ik er niet aan gedacht dat week14 2x voor komt en er zijn nog een paar weken die 2x voorkomen. En die 2 moeten dan bij elkaar opgeteld worden. Ook heb ik meerdere jaargangen in mijn blad. Dus er moet ook een startpositie zijn. Bijvoorbeeld vanaf Totaal!e601

 

[VenA]

Waarom niet met een formule?

=ALS(SOM.ALS(Totaal!$I:$I;KOLOM()-1;Totaal!$E:$E)>0;SOM.ALS(Totaal!$I:$I;KOLOM()-1;Totaal!$E:$E);"")

 

[postbus52]

Heel heel veel dank VenA.
Ik heb in de formule het bereik aangepast, en het werkt geweldig.
Ook is het al toegepast in mijn werkelijke blad.

Nogmaals mijn dank.

Met vriendelijke groet,
Hans

 

[VenA]

Weliswaar graag gedaan. Maar waarom antwoord je niet op de vragen die ik gesteld heb?

 

[postbus52]

Waarom wil je dmv van VBA formules in een cel zetten? Probeer het eens op deze manier.
Het antwoord op vraag 1 is, Omdat het over 52 weken gaat en dat ieder jaar opnieuw.
Dan leek mij een macro heel handig en zou veel tijd besparen in de voorbereidingen ieder jaar.

vraag 2: Waarom niet met een formule?
Dat gaf ik al aan in mijn antwoord, dat ik daar ook voor gekozen had.
Ik wist alleen niet dat dit met een formule ook opgelost kon worden.
Voor mij is de formule de juiste oplossing.

Nogmaals mijn dank

Toch ben ik nog benieuwd hoe ik nog een filter zou kunnen toepassen in de macro van #2 zodat ik alleen gegevens van 2016 kan ophalen.
Ben daar nog uren mee bezig geweest maar ik kom er niet uit.

mvg,
Hans

 

[postbus52]

Weliswaar graag gedaan. Maar waarom antwoord je niet op de vragen die ik gesteld heb?

Waarom wil je dmv van VBA formules in een cel zetten? Probeer het eens op deze manier.
Het antwoord op vraag 1 is, Omdat het over 52 weken gaat en dat ieder jaar opnieuw.
Dan leek mij een macro heel handig en zou veel tijd besparen in de voorbereidingen ieder jaar.

vraag 2: Waarom niet met een formule?
Dat gaf ik al aan in mijn antwoord, dat ik daar ook voor gekozen had.
Ik wist alleen niet dat dit met een formule ook opgelost kon worden.
Voor mij is de formule de juiste oplossing.

Nogmaals mijn dank

Toch ben ik nog benieuwd hoe ik nog een filter zou kunnen toepassen in de macro van #2 zodat ik alleen gegevens van 2016 kan ophalen.
Ben daar nog uren mee bezig geweest maar ik kom er niet uit.

mvg,
Hans