Copy rows which have a value over 40

[DanzaNZ]

Hi all

I have this great code which copies a value based on text in a row; however I would like to alter it to only copy rows is a value within the text if over 40
Eg: there are rows that have text "ALTTT", then also have a number in the text like: "ALTTT .000 D."

How would I alter my code to only copy that rows if the "ALTTT" value is more the "40.00 D"

Sub test()
    Dim myAreas As Areas, myArea As Range, x, r As Range
    With Sheets("Source")
        With .Range("a1", .Range("a" & Rows.Count).End(xlUp)).Offset(, 1)
            .Formula = "=if(iserror(find(""++"",a1)),1,"""")"
            Set myAreas = .SpecialCells(-4123, 1).Areas
            .Clear
        End With
    End With
    For Each myArea In myAreas
        x = Application.Match("*ALTTP*", myArea.Offset(, -1), 0)
        If IsError(x) Then
            x = Application.Match("*ALTTT*", myArea.Offset(, -1), 0)
            If IsNumeric(x) Then
                x = Application.Match("*Teacher*", myArea.Offset(, -1), 0)
                If IsNumeric(x) Then
                    If r Is Nothing Then
                        Set r = myArea(x, 0).Resize(2)
                    Else
                        Set r = Union(r, myArea(x, 0).Resize(2))
                    End If
                End If
            End If
        End If
    Next
    If Not r Is Nothing Then r.Copy Sheets("8% Calculations required").Cells(1)
End Sub

[ragulduy]

Will there always be spaces between text and the number, if so you can do something like:

Sub Macro_1()
dim str, count
str = "ALTTT 123.124 !ofasd"
str = split(str)
for count = 0 to Ubound(str)
  if isnumeric(str(count)) then
    if str(count)>40 then
      msgbox "number over 40"
    end if
  end if
next

[DanzaNZ]

Thanks for that

I am having trouble including that to my current code.
Are you able to put your example in my code?

Thanks
Dan

[ragulduy]

I couldn't really follow your code. I can give you some code to do the same thing if you can give more details of your requirements. Upload an example workbook with a sample of your data and a sample of the desired output. Add a brief description of what the macro should do.