I think sir problem is between these code & need some modification.
If WorksheetFunction.CountIf(Union(BRange, CRange), "YES") = 0 Then
'Do nothing
Exit Sub
ElseIf WorksheetFunction.CountIf(BRange, "YES") = 1 Then
'only 1 YES found
Set CutRow = BRange.Find("YES").EntireRow
ElseIf...
sir only that cell will move up the order, if we descendent the cells then it will replace the originality.
in my workbook A11 row has both YES in col D & E so it move up the order to below the cell A5 row then i have to mark it X so that next cell with condition fulfill will move up the order.
thank you sir for your response.
i will elaborate it.
sir can you check it through team viewer.
sir in code there is a timestamp which store I value of selected row. range is those rows whose timestamp value of col G. If i select any cell of A11 row then range will be those G cells whose...
sir,
when color cells move up the order then they do not push down the cells below.
As in above when color cell 4 & 6 move up the order below 2 then cell 3 go to position 6.
i want when cells move up then the cells below them just push down.
No 3 cell just push down two cells below as 4 &...
@SirJB7,
Hello sir,
I briefly describe it, my problem is the code only find out first YES in col D & move it up,it does go further as written in code,So sir could you find out where is bug there.
hello sir,
Thank you for response.
I briefly describe what is need.
In my uploaded worksheet,
I want to move the cell up to order basis on some condition, in D col if one YES is found & then it move up order.If there is multiple YES found then which correspondent E col is YES will move up...
hello SirJB7,
my problem is code below does not work.
ElseIf WorksheetFunction.CountIf(BRange, "YES") > 1 Then
'multiple YES found in col B
With BRange
Set c = .Find("YES")
firstAddress = c.Address
'Check for corresponding C value
If c.Offset(0, 1) <> "YES" Then
Do
Set c...
@SirJB7
hello sir,
could you find out the problem in my uploaded file.
I think this section does not work
ElseIf WorksheetFunction.CountIf(BRange, "YES") > 1 Then
'multiple YES found in col B
With BRange
Set c = .Find("YES")
firstAddress = c.Address
'Check for corresponding...
@NARAYANK991,
hello sir,
i have some problem when i used this macro in following sheet.
http://www.2shared.com/file/Cd9w25vD/color.html
color cells move up but it does not push down the cells.
As here when i select col B6 & run macro color cells move to below B6 but the cell B7 does not...