none
Formatar número automaticamente. RRS feed

  • Pergunta

  • Eu tenho o seguinte código:

    Sub BuscarCopiar()
    Dim a, b, c, e, f, g As String

        Range("a4").Select
        a = ActiveCell.Value
       

        Sheets("P1").Select
        Range("a1").Select

        Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Activate
        Cells.FindNext(After:=ActiveCell).Activate

        c = ActiveCell.Row
        f = ActiveCell.Column + 13

        Cells(c, f).Select

        g = ActiveCell.Value

        c = ""
        f = ""

        Sheets("P2").Select

        c = ActiveCell.Row
        f = ActiveCell.Column + 3

        Cells(c, f).Select
        ActiveCell.Value = g

        Selection.NumberFormat = "#,##0.00"
        ActiveWorkbook.Save


    End Sub

    O código acima copia parar a variável a o valor da célula A4.

    Busca esse valor na planilha P1.

    Copia para a variável g o conteúdo da célula localizada.

    Retorna para a planilha P2.

    E copia o valor na célula correta corresponde.

    Até aqui, tudo bem, o código funciona.

    O problema que não consigo resolver é a formatação da célula para Número.

    O Excel não formata a célula conforme o código abaixo:

        Selection.NumberFormat = "#,##0.00"

    O Excel, ao invés de formatar, mostra a mensagem para Converter em Número.

    Como eu posso resolver isso?

    Agradeço desde já a quem puder ajudar.

    Obrigado!

    quarta-feira, 7 de março de 2018 12:32

Respostas

  • Dim g as Double

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Leandro Sarno quarta-feira, 7 de março de 2018 13:25
    quarta-feira, 7 de março de 2018 12:41

Todas as Respostas