DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais

DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais

​

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Sabe aqueles projetos onde precisamos limpar os dados contidos em diversas planilhas?

O código abaixo

'Remove All Alpha and Special characters from cell

Function Remove_AlphaSpecialChar (DataCell As Range) As String

     

    ' Declaração de Variável.

    Dim iCnt As Integer

    Dim IpData As Range

    Dim sData As String, sTmp As String

              

    If DataCell.Count <> 1 Then

        MsgBox ("Por favor, selecione uma célula"), vbInformation

        Exit Function

    End If

     

    ' Loop que checa todos os caracteres disponíveis na célula.

    For iCnt = 1 To Len(DataCell.Text)

        If Mid(DataCell.Text, iCnt, 1) Like "[0-9]" Then

            Let sData = sData & Mid(DataCell.Text, iCnt, 1)

        End If

    Next iCnt

     

    Let Remove_AlphaSpecialChar = sData

End Function

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart |