Snasui Excel Forum

Code: Select all

rivate Sub CommandButton1_Click()

With Application
    .EnableEvents = False
    .DisplayAlerts = False
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
    
    
   With Sheets("MAIN")
           
 [N2] = "X"
 For i = 4 To 100
        If IsNumeric(Left(Trim(Cells(i, 5).Value), 1)) = True Then
                If Cells(i, 13).Value = "" And Cells(i, 5).Value <> "" Then
                    Cells(i, 13).Value = [B7]
                End If
 
            If Trim(Cells(i, 5).Value) Like "123*" Then
                    If Right(Left(Trim(Cells(i, 5).Value), 3), 2) >= 10 And Right(Left(Trim(Cells(i, 5).Value), 3), 2) <= 13 Then
                            Cells(i, 13).Value = "A"
                    End If
                    
                    If Trim(Cells(i, 5).Value) Like "150****" Then
                            Cells(i, 13).Value = "B"
                    End If
                    
                    
              End If
                   
                    
                       
            End If
        Next
    
    [N2] = ""
    
    End With


With Application
    .EnableEvents = True
    .DisplayAlerts = True
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With

End Sub