Pessoal Boa Tarde

Crie um fomulário para acompanhar o processo produtivo da empresa onde trabalho, onde conectei minha planilha ao banco de dados do sistemas que usamos e gerei duas pivot para apurar o resultado atualizando-as automaticamente por do comando

Private Sub Worksheet_Activate()

Range("C6").Select ActiveSheet.PivotTables("TB_Dia").PivotCache.Refresh

End Sub

Porém no formulário as textboxes que recebem esta informação não atualizam automáticamente, o que preciso fazer para que isto aconteça e tenhamos este refresh sempre que o BD atualizar a base de dados?

conto com a ajuda de vcs

Abs

perguntou Sep 11 '14 às 15:20

Fabinho_Meneses's gravatar image

Fabinho_Meneses
2221

galera essa foi a codificação que fiz para este painel...por favor estou começando a ter contato com vba agora e sou meio topeira nesse assunto e preciso de ajuda

Private Sub UserForm_Activate()

'Data

Label34 = Date Label35 = Time

'Inclusão dos totais mensais no campo Total/Dia

TextBox18.Text = Worksheets("TB_Dias").Range("TB_DIA_A").Value TextBox18.Value = Replace(FormatCurrency(TextBox18.Value, 0), "R$ ", "")

'Formatação If TextBox18.Text < "8000" Then TextBox18.ForeColor = RGB(255, 0, 0) ElseIf TextBox18.Text = "8000" Then TextBox18.ForeColor = RGB(0, 255, 0) ElseIf TextBox18.Text > "8000" Then TextBox18.ForeColor = RGB(0, 0, 255) End If

TextBox19.Text = Worksheets("TB_Dias").Range("TB_DIA_B").Value TextBox19.Value = Replace(FormatCurrency(TextBox19.Value, 0), "R$ ", "")

'Formatação

If TextBox19Text < "8000" Then TextBox19.ForeColor = RGB(255, 0, 0) ElseIf TextBox19.Text = "8000" Then TextBox19.ForeColor = RGB(0, 255, 0) ElseIf TextBox19.Text > "8000" Then TextBox19.ForeColor = RGB(0, 0, 255) End If

TextBox20.Text = Worksheets("TB_Dias").Range("TB_DIA_C").Value TextBox20.Value = Replace(FormatCurrency(TextBox20.Value, 0), "R$ ", "")

'Formatação If TextBox20Text < "8000" Then TextBox20.ForeColor = RGB(255, 0, 0) ElseIf TextBox20.Text = "8000" Then TextBox20.ForeColor = RGB(0, 255, 0) ElseIf TextBox19.Text > "8000" Then TextBox20.ForeColor = RGB(0, 0, 255) End If

'Inclusão dos totais mensais no campo Total/Mês

TextBox21.Text = Worksheets("TB_Mês").Range("TB_TOTAL_C").Value TextBox21.Value = Replace(FormatCurrency(TextBox21.Value, 0), "R$ ", "")

'Formatação If TextBox21.Text < "=180000" Then TextBox21.ForeColor = RGB(255, 0, 0) ElseIf TextBox21.Text = "=180000" Then TextBox22.ForeColor = RGB(0, 255, 0) ElseIf TextBox21.Text > "=180000" Then TextBox21.ForeColor = RGB(0, 0, 255) End If

TextBox22.Text = Worksheets("TB_Mês").Range("TB_TOTAL_B").Value TextBox22.Value = Replace(FormatCurrency(TextBox22.Value, 0), "R$ ", "")

'Formatação

If TextBox22.Text < "=180000" Then TextBox22.ForeColor = RGB(255, 0, 0) ElseIf TextBox22.Text = "=180000" Then TextBox22.ForeColor = RGB(0, 255, 0) ElseIf TextBox22.Text > "=180000" Then TextBox22.ForeColor = RGB(0, 0, 255) End If

TextBox23.Text = Worksheets("TB_Mês").Range("TB_TOTAL_A").Value TextBox23.Value = Replace(FormatCurrency(TextBox23.Value, 0), "R$ ", "")

'Formatação

If TextBox23.Text < "=180000" Then TextBox23.ForeColor = RGB(255, 0, 0) ElseIf TextBox23.Text = "=180000" Then TextBox23.ForeColor = RGB(0, 255, 0) ElseIf TextBox23.Text > "=180000" Then TextBox23.ForeColor = RGB(0, 0, 255) End If 'Inclusão dos total acumulado

TextBox24.Text = CDbl(TextBox21.Value) + CDbl(TextBox22.Value) + CDbl(TextBox23.Value) TextBox24.Value = Replace(FormatCurrency(TextBox24.Value, 0), "R$ ", "")

'Formatação If TextBox24Text < "=540000" Then TextBox24.ForeColor = RGB(255, 0, 0) ElseIf TextBox24.Text = "=540000" Then TextBox24.ForeColor = RGB(0, 255, 0) ElseIf TextBox24.Text > "=540000" Then TextBox24.ForeColor = RGB(0, 0, 255) End If

End Sub

link permanente

respondeu Sep 11 '14 às 16:00

Fabinho_Meneses's gravatar image

Fabinho_Meneses
2221

Confira as matérias a respeito de userforms e seus objetos em:

[http://www.excelmax.blogspot.com.br/search/label/UserForm?max-results=5][1]

Atenciosamente: Ivair Claudio Ferrari http://www.excelmax.blogspot.com.br

link permanente

respondeu Sep 21 '14 às 02:03

ivairferrari's gravatar image

ivairferrari
10

Sua resposta
mudar para preview

Siga esta pergunta

Por Email:

Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui

Por RSS:

Respostas

Respostas e Comentários

Markdown Básico

  • *italico* ou __italico__
  • **negrito** or __negrito__
  • link:[texto](http://url.com/ "Qual é a sua dúvida?")
  • imagem?![alt texto](/path/img.jpg "Qual é a sua dúvida?")
  • lista numerada: 1. Foo 2. Bar
  • para adicionar uma quebra de linha basta adicionar dois espaços onde você gostaria que a nova linha estivesse.
  • tags HTML básicas também são suportadas

Tags

×147
×32
×23

pergunta feita: Sep 11 '14 às 15:20

pergunta lida: 5,514 vezes

última alteração: Sep 21 '14 às 02:03