-
[VBA]With Sheets("Formler")
If Me.ListBox1.Selected(i) Then
Range("B17") = Range("B17") + .Cells(i + 21, 38)
Range("C17") = Range("C17") + .Cells(i + 21, 40)
Range("D17") = Range("D17") + .Cells(i + 21, 42)
Range("E17") = Range("E17") + .Cells(i + 21, 44)
Range("F17") = Range("F17") + .Cells(i + 21, 46)
Range("G17") = Range("G17") + .Cells(i + 21, 48)
End If
End With[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
Reply With Quote