Este fórum está sendo desativado

[Petitet]

Boa tarde galera,
Criei uma planilha de Orçamento Familiar em excel utilizando várias fórmulas e linguagem VBA para inserir os dados via formulários. O que acontece: Quando é inserido os dados na planilha via formulário, os valores registrados em "moeda" ficam visíveis e normais, porém eu busco esses dados em outra aba da mesma planilha utilizando a função SOMASES e esta não identifica estes valores. (Se eu colocar na planilha valores sem a utilização do formulários ela opera normalmente. Alguém teria a solução para este caso? Já quebrei a cabeça tentando mais não consegui, embora os registros destes valores na linguagem VBA esteja em "Currency".

[gfranco]

Boa tarde.
Pela sua descrição acredito que os valores esteja sendo lançados na planilha apenas como "texto" e, assim sendo, nenhuma operação matemática (soma, somase,média etc) vai conseguir reconhecer esses números .
É fácil verificar esse situação:
Lance alguns valores através de seu formulário e depois selecione esses valores com o mouse arrastando sobre as células e observe no canto inferior direito do excel...Quando se faz isso com células que contém números, em baixo pode-se ver o excel mostrando a soma, a média e a contagem dos números. Se as células contiverem texto ou números que estão no formato texto, essa área mostrará somente a contagem.
Sugiro postar sua planilha (anexando-a aqui no fórum) caso a dúvida persista.

[Petitet]

Obrigado pela dica, mas não consegui resolver!!!!! O código VBA que utilizei, incluí o format "currency" na text box para salvar como moeda os valores.

[Petitet]

Abaixo está o meu código VBA, porém quando gravado na planilha os números, embora apareçam com R$, eles não são lidos pela fórmula Somases. Não consigo identificar o erro.

Private Sub Cmd_GravarDebito_Click()

'Procedimento para gravar despesas

linha = 3 'Achando a linha disponível

Do Until Sheets("Lançamentos").Cells(linha, 2) = ""
linha = linha + 1
Loop

If Txt_Datad <> "" And Cbx_Opctd <> "" And Cbx_CContd <> "" And Txt_Descd <> "" And _
Txt_Valrd <> "" And Cbx_Rzsnd <> "" Then

'Cadastrar dados da receita na planilha

Dim N As Double

On Error Resume Next
N = Txt_Valrd

Plan8.Cells(linha, 2).Value = Me.Txt_Datad.Value
Plan8.Cells(linha, 3).Value = Me.Txt_Descd.Value
Plan8.Cells(linha, 4).Value = Me.Txt_Valrd.Value
Plan8.Cells(linha, 5).Value = Me.Cbx_Opctd.Value
Plan8.Cells(linha, 6).Value = Me.Cbx_Rzsnd.Value
Plan8.Cells(linha, 10).Value = Me.Cbx_CContd.Value

MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Lançado"

'Limpar celulas do formulario despesa
Me.Txt_Datad.Value = Null
Me.Cbx_Opctd.Value = Null
Me.Cbx_CContd.Value = Null
Me.Txt_Descd.Value = Null
Me.Txt_Valrd.Value = Null
Me.Cbx_Rzsnd.Value = Null

Else
MsgBox "Há Campos em branco", vbCritical, "Preencha todos os campos para cadastrar dados"

End If

End Sub