1. Active x button positions change by deleting row. Advice me to fixed the buttons
2. I need a vba please help
, i dont want to remove duplicate all i want is to separate 2 same color cell(entire row) by any other row from above or below use as a seperator. Example between two coke rows i need any white row.
Here is one way :
Option Explicit
Sub InsertBlankRows()
Dim curR As Range
Dim i As Long
Set curR = Application.Selection
Set curR = Range("A2:A100") '<--- edit range here
For i = curR.Rows.Count To 2 Step -1
If curR.Cells(i, 1).Interior.ColorIndex = 6 And curR.Cells(i - 1, 1).Interior.ColorIndex = 6 Then
curR.Cells(i, 1).EntireRow.Resize(1).Insert
curR.Cells(i, 1).Interior.ColorIndex = 0
End If
Next
End SubInstead of an image attach an example workbook showing a before and after example.
Don’t have an account yet? Register yourself now and be a part of our community!