Ik hoop dat het te begijpen is.quote:Sub smartrounding()
Range("C5").Select
Do Until ActiveCell.Value = ""
If Range("C2") <> Range("C1") Then
If Range("C2") > Range("C1") Then
If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) > 0 Then
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Else
If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) < 0 Then
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
End If
Else
GoTo Norounding
End If
Loop
Norounding:
End Sub
Oplosser heb je alleen beschikbaar als je de analysis toolpack als add-in hebt geinstalleerd. Misschien kan het ook wel al met goalseek.quote:
Alvast bedankt voor de snelle reactie..maar helaas, hij pakt geen van beiden, bij goalseek maakt hij er het getal van dat je invoert, bij oplosser maakt hij er een getal van in de miljoenen. Is er niet iets dat ik in tabblad 2, 100 getallen kan neerzetten, hij ze om de beurt invoert in tabblad 1 in een cel en deze vervolgens in tabblad 2 weer neerzet naast de testgetallen?quote:Op maandag 7 september 2009 18:34 schreef Deetch het volgende:
[..]
Oplosser heb je alleen beschikbaar als je de analysis toolpack als add-in hebt geinstalleerd. Misschien kan het ook wel al met goalseek.
Echter als de berekening via een macro gaat werkt de oplosser/goalseek niet.
1 2 3 4 5 6 7 8 9 10 11 | Do Until ActiveCell.Value = "" If Range("C2") <= Range("C1") Then Exit Sub If Range("C2") > Range("C1") Then If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) <> 0 Then ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)" End If End If ActiveCell.Offset(1, 0).Select Loop |
1 2 3 4 5 6 7 | If Not Intersect(Target, Range("A1")) Is Nothing Then '[JOUW CODE HIER] End If Application.EnableEvents = True |
Oja tuurlijk. Thx man!quote:Op woensdag 9 september 2009 14:48 schreef sanger het volgende:
Doe eers ttwee rijen. Die selecteer je en vervolgens selecteer je alle rijen waarin je dit wilt herhalen. Daarna Ctrl+V.
Als het goed is kopieert ie de opmaak nu.
1 2 3 4 5 6 7 8 9 | For i = 1 To 150 If i Mod 2 = 0 Then Rows.Interior.ColorIndex = 6 End If Next i End Sub |
Dat wist ik nietquote:Op woensdag 9 september 2009 14:51 schreef EddyAlbena het volgende:
[..]
Oja tuurlijk. Thx man!
Overigens niet CTRL+V, maar Paste Special. Stonden namelijk al waarden in.
Thx
edit: of die kwast natuurlijk. En het is nog niet eens laat
Ejo, bedankt manquote:Op woensdag 9 september 2009 14:55 schreef DaFan het volgende:
Hier een macro:
[ code verwijderd ]
Waarbij 150 het aantal rijen is, en 6 de kleur.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |