Help with If Statement Using a Lr Variable

[RunTime91]

Greetings all...

With WsTempHold
   Lr1 = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
   .Range("G" & Lr1) = Me.CmbItemRqstdAdd.Value

Dim X As Strng, Cell as Range

For Each Cell In .Range("G2:G" & Lr1)
   If(Len(Cell.Value)>10 And .Cells(.Rows.Count, "G").End(xlUp).Row <> .Range("G" & Lr1) Then
   X = X & Cell.Value & Chr(10)

Else

   X = X & Cell.Value

End If

Next

What I'm trying do is simply add a carriage return to each cell string value except for the last one
The code doesn't error but it also doesn't work when the last string value is in Range("G" & Lr1) it doesn't move to the 'Else' statement

Help?

Thank You...

 

[mikerickson]

I'm confused by this part of the conditional.
.Cells(.Rows.Count, "G").End(xlUp).Row <> .Range("G" & Lr1)

That is testing if the Cell G(LR1) contains a value that isn't equal to the number of rows in column G.
Are you sure that you want to test the contents of G[lastrow] ?

 

[Fluff]

How about

For Each cll In .Range("G2:G" & LR1)
   If Len(Cell.Value) > 10 And cll.Row <> LR1 Then
      X = X & Cell.Value & Chr(10)
   Else
      X = X & Cell.Value
   End If
Next

 

[RunTime91]

Hey Mike...

Noooo... Ahhh there it is...

What I want test is if the row number of the last .Cell.Value is equal to Lr1

Where did I go wrong?

 

[mikerickson]

Fluff's code should do the trick.

 

[RunTime91]

Awesome!!

Mike - Fluff

Thank You Both - Very Much!!

 

[Fluff]

Glad we could help & thanks for the feedback