Makro til målsøgning i brøk - Part 2

Prøv med noget i denne stil:

Sub MSN()
    Range("B3").GoalSeek Goal:=Range("b5"), ChangingCell:=Range("B2")
    If Range("b5") > Range("b5") Then
    na = Range("b5") - 0.01
    Else: Exit Sub
    End If
    Do While Range("b3") > na
        Range("B3").GoalSeek Goal:=na, ChangingCell:=Range("B2")
    na = na - 0.01
    Loop
End Sub

prøver det lige af. Mange tak!

Lige en lille detalje, jeg vil gerne at resultaten af testen vises i B6. Hvordan ser makroen så ud?

Så skal du lave en kopi af formlen fra B3 i B6 og dernæst bruge

Sub MSN()
    Range("B6").GoalSeek Goal:=Range("b5"), ChangingCell:=Range("B2")
    If Range("b5") > Range("b5") Then
    na = Range("b5") - 0.01
    Else: Exit Sub
    End If
    Do While Range("b6") > na
        Range("B6").GoalSeek Goal:=na, ChangingCell:=Range("B2")
    na = na - 0.01
    Loop
End Sub

har indsat formlen fra B3 eller i mit tilfælde fra C13 til C17(som er den celle jeg gerne vil have resultaten af testen i)

Kan ikke få line 1 til at køre. Derudover er det korrekt at C19 skal være større end C19, som du også beskriver i dit program? Skal den ikke hedde, at hvis resultatet af B3(C13) er større end B5(C19) så exit... eller??


Sub MSN()

    Range("C17").GoalSeek Goal:=Range("C19"), ChangingCell:=Range("C7")
    If Range("C19") > Range("C19") Then
    na = Range("C19") - 0.01
    Else: Exit Sub
    End If
    Do While Range("C13") > na
        Range("C13").GoalSeek Goal:=na, ChangingCell:=Range("C7")
    na = na - 0.01
    Loop
End Sub

For at makroen skal køre skal C17 indeholde en formel. C19 og C7 må ikke indeholde formler. B3 (C13) er sleti kke involveret i målsøgning. Der kan kun den celel være, hvor du vil have resultatetb til at stå.

Hej

Glem min kommentar, fik rodet nogle ting sammen. Jeg har fundet en formelløsning uden om en makro.

Ellers tak for hjælpen. Vil dog stadigt godt give point for indsatsen, hvis muligt?

Helt i orden.