Check cells content based on condition

kiler40 · Apr 1st 2015

Hello Everybody!
I need a little help here.
I have a table of wires. And some of them are called double crimps (DC).
I need to check if this DC is real or false.
Here comes my problem. I don`t know how to do this.
My knowledge of coding is really low but,
I`m thinking of a cycle that goes through column C and looks for value DC. (This is my main issue i don`t know how to start here)
when it founds (it in the file row 7) it must look at the next row to see if it is again DC. if not - err msg must come. If yes - this creates a working group (row 7 and 8). At this working group it need check if values on column F and column G are the same. if they are the same it must check if values of column A are the same. if some are different - err msg. If ok need go to the next row after this working group (in this case row 9) and continue the check.

forum.ozgrid.com/index.php?attachment/64592/[ATTACH=CONFIG]64591[/ATTACH]

Can someone help me with some code?

Thanks in advance !

cytop · Apr 1st 2015

Re: Check cells content based on condition

As simple as possible...

Code

Sub x()


   Dim lngrow As Long
   
   For lngrow = 2 To UsedRange.Rows.Count
   
      If Cells(lngrow, 3) = "DC" And Cells(lngrow + 1, 3) = "DC" Then
      
         If Cells(lngrow, 6) <> Cells(lngrow + 1, 6) Or _
            Cells(lngrow, 7) <> Cells(lngrow + 1, 7) Or _
            Cells(lngrow, 1) <> Cells(lngrow + 1, 1) Then
            
            MsgBox "Error - Row " & CStr(lngrow)
         End If
      End If
         
   Next
   
   
End Sub

Display More

No explicit references to worksheets so needs to go in the class module for the worksheet it checks.

pangolin · Apr 1st 2015

Re: Check cells content based on condition

see if this code helps

Code

Sub chkdc()
Set myrange = Sheet1.Range("C4", Range("C" & Rows.Count).End(xlUp))
For Each cell In myrange
If cell.Value = "DC" And cell.Offset(1, 0).Value <> "DC" And cell.Offset(-1, 0).Value <> "DC" Then cell.Offset(0, 7) = "ERROR"
If cell.Value = "DC" And cell.Offset(-1, 0).Value = "DC" Then
If cell.Offset(0, 2).Value <> cell.Offset(-1, 2) Or cell.Offset(0, 3).Value <> cell.Offset(-1, 3) Or cell.Offset(0, -2).Value <> cell.Offset(-1, -2) Then
cell.Offset(0, 7) = "ERROR"
cell.Offset(-1, 7) = "ERROR"
End If
End If
Next cell
End Sub

Display More

kiler40 · Apr 1st 2015

Re: Check cells content based on condition

Hello Both !
and thanks for the help !
Nice solutions

Check cells content based on condition

Participate now!

Share