Optellen+ delen (volgorde)

[Mati6n2]

Waw, moest ik dit vinden. Mooi werk Wigi bedankt.

Nu moet ik dit enkel nog zien te vinden voor mijn vollebreedte dus de 2 gele cellen aanduiden en op de knop klikken "zucht"

 

[Wigi]

Sub Dubbel_systeem()

    Dim c As Range, i As Long, form As String, naam As String, brho As String
    For Each c In Selection.Range("A1")
        form = c.Offset(-3).Formula
        
        i = 1
        
        Do While IsNumeric(Mid(form, Len(form) - 1 - i, 1))
            i = i + 1
        Loop
        
        If InStr(form, "Hoogte") > 0 Then
            brho = "Vollehoogte"
        ElseIf InStr(form, "Breedte") > 0 Then
            brho = "Vollebreedte"
        End If
        
        naam = Mid(form, Len(form) - i - Len(brho), Len(brho) + i)
        
        c.Formula = Replace(form, naam, "(" & naam & "-83)/2+15")
    Next c
End Sub

Wigi

 

[Mati6n2]

Kan het dat er een haakje teveel staat ofzo Wigi, ik krijg NAAM? ter verschijning

Als ik de vorige met elkaar vergelijk zie ik niet direct de fout

 

[Wigi]

Bestaat de naam

Vollebreedte

wel degelijk in je blad?

 

[Mati6n2]

Ja, dat is de andere waarde. In mij voorbeeldbestand heeft die cel de waarde 2000

ik heb daar altijd een hoogte en een breedte

Die ligt wel niet in het A gebied, wigi, misschien is dat het?

 

[Wigi]

Vervang oorspronkelijke deel door

If InStr(form, "hoogte") > 0 Then
            brho = "Vollehoogte"
        ElseIf InStr(form, "breedte") > 0 Then
            brho = "Vollebreedte"
        End If

InStr is hoofdlettergevoelig, blijkbaar.

Wigi

 

[Mati6n2]

Klopt Wigi !

Het enigste wat ik nu nog van je 'durf' vragen ( Ik schaam me diep)

Wanneer ik de 2gele cellen selecteer dat hij ze alle 2 gaat berekenen ... Kan dat?

Dat spaart toch weer 2 kliks uit ...

Dan kan ik mijn programma in werking zetten en mag ik dit beschouwen als opgelost/opgelucht

 

[Wigi]

Sub Dubbel_systeem()

    Dim c As Range, i As Long, form As String, naam As String, brho As String
    For Each c In Selection
        form = c.Offset(-3).Formula
        If form <> "" Then
            i = 1
        
            Do While IsNumeric(Mid(form, Len(form) - 1 - i, 1))
                i = i + 1
            Loop
            
            If InStr(form, "hoogte") > 0 Then
                brho = "Vollehoogte"
            ElseIf InStr(form, "breedte") > 0 Then
                brho = "Vollebreedte"
            End If
            
            naam = Mid(form, Len(form) - i - Len(brho), Len(brho) + i)
            
            c.Formula = Replace(form, naam, "(" & naam & "-83)/2+15")
        End If
    Next c
End Sub

Wigi

 

[Mati6n2]

Wigi, moest ik een vrouw zijn kreeg je 3 zoenen.

Bedankt,Bedankt,Bedankt voor de moeite ! :thumb: :thumb: