Option Button - summere ark efter valg

At er står nul i en celle burde ikke påvirke dine udregninger.

Jeg tror det er Me. der skaber dine problemer. -Fjern alle Me.

Desuden skal dit eksempel med Yes vel være:
Range("H18:AE19").Value = Range("H18:AE19").Value + SWEE.Range("H18:AE19").Value

Har forsøgt men virker ikke.. Samt kan ikke køre dit forslag når jeg gør det med range.. Hvis jeg gør det på en enkelt celle virker det fint.

Det må være Range der er problemet.

Så bliver du nok nødt til at gøre det for hver enkelt celle i de berørte ranges. Noget i stil med:

    Dim pCell As Range

    For Each pCell In SWEE.Range("H18:AE19").Cells
        Cells(pCell.Row, pCell.Column).Value = Cells(pCell.Row, pCell.Column).Value + pCell.Value
    Next

    For Each pCell In SWEE.Range("H21:AE30").Cells
        Cells(pCell.Row, pCell.Column).Value = Cells(pCell.Row, pCell.Column).Value + pCell.Value
    Next

osv

Kan man ikke lægge koden ned i en funktion da det ens for 5 ud af 9 ark jeg køre igennem.

Tænker på om man ikke kan lave SWEE om til X hvor X tilhører ark1 til ark9

I de sidste 4 ark skal tallene først dividere's før de lægges til i oversigten.

Til ark1 skal tallene dividere's med cells(3, "W") som står i oversigten

ark2 dividere's med Cell(4,"W")
Ark3 dividere's med cell(5,"W")
Ark4 dividere's med cell(6,"W")


For Each rng In SWEE.Range("H18:AE19").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
                       
            For Each rng In SWEE.Range("H21:AE30").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
                       
            For Each rng In SWEE.Range("H33:AE34").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H38:AE41").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
                       
            For Each rng In SWEE.Range("H44:AE45").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H48:AE49").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H52:AE53").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H57:AE60").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H63:AE66").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next
           
            For Each rng In SWEE.Range("H69:AE69").Cells
            Cells(rng.Row, rng.Column).Value = Cells(rng.Row, rng.Column).Value + rng.Value
            Next

Har fundet ud af hvordan jeg dividere celleværdien inden der adderes med celleværdien i oversigten.

dog synes jeg koden er lidt sløv.. Hvis den kan speed's op vil det være helt perfekt.

Jo, det er oplagt at lave en sub der styrer dem alle. Noget i denne retning (Er ikke testet, da jeg ikke har alle dine ark og kontroller. Mht at speede op: Prøv at indsætte Application.ScreenUpdate som her:



Nu skal du kalde sub'en med navnet på arket i alle Click-subs:

Private Sub ObSWEEYes_Click()

    Call OpdaterOversigt("SWEE", True)

End Sub

Private Sub ObSWEENo_Click()

    Call OpdaterOversigt("SWEE", False)

End Sub

OSV OSV

Ligger du et svar så får du pointene.. Fik løsningen til at virke..

OK, godt du fik det til at virke.

Ja det virkede helt fint.. Takker mange gange.. :-)