VBA - Multiplicere celler, hvis en Checkbox = True
HejJeg har en dynamisk område startende fra række 12 og nedefter
Hver 3 række er blank
I kolonne D har jeg en værdi, ud for hver række, som ikke er blank.
I kolonne F ønsker jeg en checkbox, ud for hver række, som ikke er blank
I området G:P ønsker jeg at multplicere værdierne med faktoren 2, hvis Checkboxen=True, hvis False skal værdierne kun multipliceres med 1. Kun hvis rækken ikke er blank
Hvordan laver jeg det smartest, så jeg ikke skal tildele hver checkbox en makro?
Jeg havde tænkt på noget i den stil
Sub Retur()
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rng As Range
Dim rng2 As Range
Dim c As Range
Dim i As Range
Set wb = ThisWorkbook
Set ws = Active.Worksheets
Set rng = ws.Range("D15:P15")
Set rng2 = ws.Range("F15")
For Each c In rng.Cells
For Each i In rng2.Cells
If i.Value = True Then
c.Value = c.Value * 2
Else
c.Value = c.Value * 1
End If
Next
Set rng = Nothing
Set ws = Nothing
Set wb = Nothing
Set rng2 = Nothing
End Sub
Hilsen Pejsen
