Este fórum está sendo desativado

[NiltoAraujo]

Olà amigos

Gostaria de uma ajudinha, tenho textbox1 e colo dados extraídos de um site e gostaria de extrair apenas os números de telefone e envia-los para um textbox2 em vba

Agradeço.

[alexandrevba]

Bom dia!!

Uma forma seria:

Código: Selecionar todos

Private Sub CommandButton1_Click()
    Dim lMyNewNum As Long
    Dim strTest As String
    strTest = Me.TextBox1.Text
     
    lMyNewNum = ExtractNumber(strTest)
    Me.TextBox2.Value = lMyNewNum
     
End Sub

Código: Selecionar todos

Function ExtractNumber(sText As String)
    Dim iCount As Integer, i As Integer
    Dim lNum As String
     
    For iCount = Len(sText) To 1 Step -1
        If IsNumeric(Mid(sText, iCount, 1)) Then
            i = i + 1
            lNum = Mid(sText, iCount, 1) & lNum
        End If
        If i = 1 Then lNum = CInt(Mid(lNum, 1, 1))
    Next iCount
     
    ExtractNumber = CLng(lNum)
End Function

Att