Copy row if 14-17 digis is exact..

[emukiss10]

hello,

I need to copy row to new sheet based on column M with long number and I like to copy it only if 14-17 digit are 2005, 2025, 2026 and couple more.
my code is:

Dim cell2 As Range
Dim lastRow2 As Long, j As Long


lastRow2 = Range("N" & Rows.Count).End(xlUp).Row
j = 2


For Each cell2 In Sheets(1).Range("N1:N" & lastRow2)
    If cell2.Value = "TRANSFER" And [B].............................[/B] Then
        cell2.EntireRow.Copy Sheets("Next").Cells(j, 1)
        j = j + 1
    End If

I need Your help!

Best Regards
W.

 

[pgc01]

Hi

There are many ways, try this one:

Sub Test()
Dim cell2 As Range
Dim lastRow2 As Long, j As Long


lastRow2 = Range("N" & Rows.Count).End(xlUp).Row
j = 2


For Each cell2 In Sheets(1).Range("N1:N" & lastRow2)
    If cell2.Value = "TRANSFER" Then
        Select Case Mid(cell2.Offset(0, -1).Value, 14, 4)
            Case "2005", "2025", "2026"
                cell2.EntireRow.Copy Sheets("Next").Cells(j, 1)
                j = j + 1
        End Select
    End If
Next cell2
End Sub