identify with 1 when a line string value change ignoring empty cells

[JoaoGabriel]

I'm trying to create a macro that identifies with 1 when there is a change in row values and 0 when there isn't. Ignoring blank cells in both cases.
The data looks like this:

I got the following macro, but I couldn't ignore blank values and apply to multiple lines at once

Sub ValueChange()
Dim curR As Range
Set curR = Application.Selection
Set curR = Application.InputBox("Select the Range of Cells", xTitleId, curR.Address, Type:=8)
curR.Cells(1, 13).Value = 0

For i = curR.Columns.Count To 2 Step -1
    If curR.Cells(1, i).Value <> curR.Cells(1, i - 1).Value Then
        curR.Cells(1, 13).Value = 1
    End If
Next

End Sub

Can anyone help?

 

[Rick Rothstein]

Give this macro a try (it will process all your data without you needing to select anything)...

Sub IsAllTheSame()
  Dim R As Long, LastRow As Long, Arr As Variant
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    Arr = Split(Application.Trim(Join(Application.Index(Cells(R, "B").Resize(, 12).Value, 1, 0))), , 2)
    Cells(R, "N").Value = -(Len(Trim(Replace(Arr(1), Arr(0), ""))) > 0)
  Next
End Sub

 

[JoaoGabriel]

Give this macro a try (it will process all your data without you needing to select anything)...

Sub IsAllTheSame()
  Dim R As Long, LastRow As Long, Arr As Variant
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    Arr = Split(Application.Trim(Join(Application.Index(Cells(R, "B").Resize(, 12).Value, 1, 0))), , 2)
    Cells(R, "N").Value = -(Len(Trim(Replace(Arr(1), Arr(0), ""))) > 0)
  Next
End Sub

Thanks for taking the time to look at this for me - works brilliantly well thank you!

 

[JoaoGabriel]

Give this macro a try (it will process all your data without you needing to select anything)...

Sub IsAllTheSame()
  Dim R As Long, LastRow As Long, Arr As Variant
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    Arr = Split(Application.Trim(Join(Application.Index(Cells(R, "B").Resize(, 12).Value, 1, 0))), , 2)
    Cells(R, "N").Value = -(Len(Trim(Replace(Arr(1), Arr(0), ""))) > 0)
  Next
End Sub

Sorry to ask again, but when the data have just one value in the row the macro stops. How can i avoid this and put a 0 because there was no change in the same row?

 

[Rick Rothstein]

Give this version a try...

Sub IsAllTheSame()
  Dim R As Long, LastRow As Long, Arr As Variant
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    Arr = Split(Application.Trim(Join(Application.Index(Cells(R, "B").Resize(, 12).Value, 1, 0))) & " ", , 2)
    Cells(R, "N").Value = -(Len(Trim(Replace(Arr(1), Arr(0), ""))) > 0)
  Next
End Sub

 

[JoaoGabriel]

Give this version a try...

Sub IsAllTheSame()
  Dim R As Long, LastRow As Long, Arr As Variant
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    Arr = Split(Application.Trim(Join(Application.Index(Cells(R, "B").Resize(, 12).Value, 1, 0))) & " ", , 2)
    Cells(R, "N").Value = -(Len(Trim(Replace(Arr(1), Arr(0), ""))) > 0)
  Next
End Sub

Thank you so much, it worked perfectly