Bom dia!!

Eu creio não ter entendido muito bem, mas porque você não format a coluna da guia para o formato que deseja?

Att

Bom dia!!

Eu creio não ter entendido muito bem, mas porque você não format a coluna da guia para o formato que deseja?

Att

Bom dia,

Vou tentar te exemplificar o que está ocorrendo.

Tenho valores que estão no Range AB4:AB43 (40 células), estes valores são dinheiro/ unidade e pode variar de números cheios "bonitinhos" e números decimais. Ao puxar estes valores para popular as textbox os valores que vem não tem separadores de milhar (algo que gostaria de ter na hora de sua exibição), para isso então coloquei o FormatNumber() na hora de popular as textboxes. Mesmo que eu não use o FormatNumber() na hora de voltar a informação para a planilha, ela está voltando como texto, portanto quando eu verifico a planilha fica com aquela notificação para converter o valor em número. As células estavam antes configuradas para números, meu problema está justamente na hora de colocar a informação de volta para a planilha, o não estou conseguindo fazer com que estes valores ao serem inseridos na planilha sejam compreendidos por ela como números e não textos.

Espero ter clarificado o que quis dizer.

Muito obrigado pela sua atenção.
Att,
Luis

Ninguém saberia me ajudar a certificar que o valor que será retornado para a planilha é um número ao invés de texto?

Obrigado pela atenção.
Att
Luis

Sem visualizar o arquivo vamos no achometro

For i = 1 To 40
ThisWorkbook.Sheets("LD").Range("AB4").Offset(i - 1, 0) = Format(UserForm2.Controls("Textbox" & i),"#,##0.00) 'aqui que fiz a alteração!!!!
UserForm2.Controls("Textbox" & i).Enabled = False
Next

Sem visualizar o arquivo vamos no achometro

For i = 1 To 40
ThisWorkbook.Sheets("LD").Range("AB4").Offset(i - 1, 0) = Format(UserForm2.Controls("Textbox" & i),"#,##0.00) 'aqui que fiz a alteração!!!!
UserForm2.Controls("Textbox" & i).Enabled = False
Next

Boa tarde Reinaldo

Tentei fazer essa alteração que você sugeriu e não tive sucesso. Portanto estou enviando um exemplo do que estou tentando fazer para que possa analisar melhor. Acho estranho pois a volta da informação para a planilha sempre está sendo interpretada como texto, por mais que esteja "forçando" a formatação.

Muito obrigado pela atenção.

Att,
Luis

Veja sje atende

Tente:

ThisWorkbook.Sheets("LD").Range("AB4").Offset(i - 1, 0) = Replace(UserForm2.Controls("Textbox" & i),".", Application.DecimalSeparator) * 1

Veja sje atende

Muito obrigado pela resposta, você poderia por gentileza me esclarecer algumas dúvidas do que foi feito pois gostaria de entender como e porque a sua solução não gerou problemas enquanto a minha está gerando esse tipo de problema. Assim evito que ocorra novamente.

Por exemplo no código abaixo que você usou, essa variável "x" que você declarou Double. Porque fez isto? (Não sou muito bom também na utilização das variáveis corretas por isso estou perguntando)

x = Worksheets("LD").Range("AB4").Offset(i - 1, 0)
Controls("Textbox" & i) = Format(x, "Standard")

Pelo o que eu entendi também neste caso de cima eu poderia sem usar a variável auxiliar usar somente assim correto: (pelo menos deu certo ou parece que deu certo por enquanto)

Controls("Textbox" & i) = Format(Worksheets("LD").Range("AB4").Offset(i - 1, 0), "Standard")

Outra parte que não ficou claro o que você tentou fazer foi nesta parte:

tp = CDec(Controls("Textbox" & i))
            Worksheets("LD").Range("AB4").Offset(i - 1, 0) = tp * 1

O que "CDec()" faz?
Porque você multiplicou por 1 a variável tp?

De novo muito obrigado pelo tempo perdido para me auxiliar.

Att,
Luis