Notifications
Clear all
Topic starter
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
Posted : 17/06/2021 10:45 am
Please add an example work book so we can see the code on context
Posted : 17/06/2021 4:45 pm
