Opgelost VBA - Range vullen met Cell, uitzondering als er een subtotaal staat.

[gjanus]

Hallo,

Ik heb hier een stukje code die de geselecteerde cellen vult met een formule. Dit doet wat hij moet doen.

Ik zou echter graag zien dat als hij een cel met subtotaal tegenkomt deze skipt.

Sub Range_vul_formule()
    Dim cell As Range
    

    For Each cell In Selection
             cell.FormulaR1C1 = "=Formule"
      
    Next cell


End Sub

Kan iemand mij helpen?

 

[Mde]

if cell.value = "subtotaal" then next cell
else "jou code"

 

[gjanus]

Dankje Marco, Alleen de ene keer is de range van het subtotaal anders dan de andere keer, nooit exact dezelfde formule. Kan de if cell.value ook iets zijn als if cell contains of zoiets?

 

[emields]

Misschien lukt het met een voorbeeldbestandje wel???

 

[gjanus]

Maar natuurlijk. Zie voorbeeldbestand. Heb voor de formule nu even 1+1 gepakt.
Als ik nu de range selecteer waar ik de formule wil hebben (B4:C19) en de macro uitvoer dan staat overal de formule 1+1.

Ik zou echter graag zien dat de subtotalen (dikgedrukte cellen) intact blijven. Als het negeren op dik gedrukte cellen makkelijker is dan op subtotalen mag dat ook.

Mooie extra zou nog zijn dat na het uitvoeren van de formule hij ze als waarde plakt/wegschrijft

Groet Jan

 

[emields]

bedoel je zoiets?

 

[edmoor]

Of dit?

Sub Range_vul_formule()
    Dim cl As Range

    For Each cl In Selection
        If Left(cl.FormulaR1C1, 9) <> "=SUBTOTAL" Then
           cl.FormulaR1C1 = "=1+1"
        End If
    Next cl
End Sub

Tip:
Gebruik geen correct Engelse woorden als naam voor een variabele.
In je voorbeeld document is dat: cell

 

[Warme bakkertje]

Of deze.

Sub Range_vul_formule()

    Dim cl As Range
    
    For Each cl In Range("A4", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 2)
        If cl.HasFormula = True Then
        Else
            cl.FormulaR1C1 = "=1+1"
        End If
    Next

End Sub

Waarbij je zelf geen range moet selecteren maar deze bepaald wordt door het aantal ingevulde cellen in
kolom A.

 

[emields]

Als er geen bijkomende vragen zijn vergeet dan niet uw vraag, in uw eerste post, als opgelost te markeren.

 

[gjanus]

Bedankt Emields, edmoor, en warm bakkertje voor jullie oplossingen! Hiermee gaat het lukken.