Len Cells not working

[mirb3000]

Hi Guys,
I made this macro but is not working properly
I want if in cell (x,x) the number of characters is lower than 7 and cell (y,y) have the leather T
Then copy cell (z,z)...
This is the code I wrote:

Dim x As Integer

Dim nRows As Integer

nRows = Cells(Rows.Count, 1).End(xlUp).Row

For x = 6 To nRows

If Cells(x, 11) <> 0 And Cells(x, 10) <> 0 Then

If (Len(Cells(x, 11)) <= 7 And Cells(x, 10) = "T") Then


Else

Cells(x, 11).Copy

Cells(x, 24).Select

ActiveSheet.Paste




End If

End If


Next x

End Sub

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here