Copiar somente char em uma planilha

[l.oaks]

Fala pessoal,

sou novo em VBA em estou desenvolvendo uma macro para buscar em uma planilha somente por Int e chars copiá-las e colá-las em uma outra planilha de output. em Java eu tenho uma idéia de como iria fazer isso mas em VBA estou meio perdido.

Para as Int eu estou usando a expressão IsNumeric mas para buscar um char que possui o seguinte estilo 00X00, eu não sei bem ao certo como fazer. Ah, qualquer outro tipo de informação deve ser ignorada, somente Ints e Chars devem ser copiados e colados.

Parte do cód onde uso a expressão IsNumeric

...

Sheets(strWhereFromCopy).Select

Range(strCopyRange).Select

If IsNumeric(True) Then

Selection.Copy

End

...

Desde já agradeço sugestões!

[Benhur Palini]

Oi,

sugestão:

if WorksheetFunction.IsText(Valor) then .....'retorna verdadeiro se o conteúdo da variável Valor for do tipo texto (string).

WorksheetFunction pode usar todas as fórmulas de planilha dentro do VBA.

Observe que if IsNumeric(Valor) Then 'Retorna verdadeiro se o conteúdo da variável Valor for qualquer tipo de número, não apenas para inteiros (Intenger). ex. 1 ou 1,1 ou 11,11

[KaduOliveira]

Para validar o format 00X00 segue uma idéia que você pode até colocar em uma function:

Estou utilizando como base que o caracter "X" é somente "X" e não uma letra qualquer...

Sub Analisa()

    valor = Range("A1")
    
    On Error Resume Next
    a = Left(valor, 2) * 1
    b = Mid(valor, 3, 1)
    c = Right(valor, 2) * 1
    
    If WorksheetFunction.IsNumber(a) = True And WorksheetFunction.IsNumber(c) = True And b = "X" Then
        MsgBox "ok"
    End If

End Sub

Editado Setembro 3, 2014 por KaduOliveira