AfonsoMira

@crownics Sim dá, fica algo como: Public Function CorCelula(rng As Range) CorCelula = rng.Interior.Color 'Vai buscar a cor da célula 'Se a cor for branca então If CorCelula = 16777215 Then CorCelula = 0 'Se diferente de branco Else CorCelula = 1 End If End Function

@crownics Boas, poderia deixar um ficheiro com as cores que vai utilizar para eu saber quais os números ? Obrigado! Em principio a macro VBA fica algo deste género: Public Function CorCelula(rng As Range) CorCelula = rng.Interior.Color 'Vai buscar a cor da célula 'Se a cor for branca então If CorCelula = 16777215 Then CorCelula = 0 'Se a cor for azul então ElseIf CorCelula = 55 Then 'Substituir 55 pelo número da cor azul CorCelula = 1 End If End Function Depois para chamar basta colocar na célula que pretende os valores: =CorCelula(célula onde está a cor) Ps. Caso não consiga identificar o numero da cor azul por favor envie ficheiro com a mesma para poder ajudar.

@M.artins Boas, Pode ser que isto lhe ajude: Como vincular a conta do Steam ao YouTube

Sim, o Rs.Fields(0) se refere a coluna, a primeira coluna de um recorset é sempre 0. Já p Rs.Fields(1) iria buscar a segunda coluna. Por exemplo: Se o SQL fosse da seguinte maneira: Select Animal, Cor From TabTeste Neste caso o Rs.Fields(0) dava retorno dos registo na coluna Animal e o Rs.Fields(1) daria retorno dos registos na coluna Cor Então resumidamente: Aqui defino a instrução SQL para buscar na Base de Dados strSQL = "SELECT COUNT(Cor) FROM TabTeste WHERE Cor='Azul';" Depois, defino um RecordSet que vai buscar as informações passadas anteriormente na Instrução SQL Set Rs = DB.Execute(strSQL) De seguida defino que a Label1 vai ter a informação trazida pelo RecordSet (Rs) e que vai ser a primeira coluna Fields(0) Label1 = Rs.Fields(0) No final fecho o RecordSet e digo que o seu valor é "nada" Rs.Close Set rst = Nothing E assim repito para as restantes cores. Espero que esteja bem explicado. Se ficar com dúvidas é só dizer.

@josequaliDe nada! Sempre disposto a ajudar e aprender enquanto ajudo. Também desconhecia essa forma de contar vou passar a usar também kkkk @Basole Sem problemas

@josequali Boas, Experimente o seguinte código na inicialização do form.

@josequali Em qual linha ?

@josequali Boas, Veja se isto lhe ajuda. Painel teste.zip

Uma variável para saber se o usuário terá acesso ou não. Caso a variável seja False não tem e caso seja True ele tem. A variável aceder fica True caso o usuário e a senha estejam corretas e existam na base de dados.

@josequali Boas, Apenas consegui resolver o primeiro problema, espero que lhe seja útil. Caso não perceba o código é só dizer que eu lhe explico. Painel teste.zip

@Fábio Mateus Boas, Então como você está tentando fazer não resulta, pois a origem de ambas as tabelas dinâmicas não é a mesma. Para conectar 1 Segmentação de dados em tabelas dinâmicas diferentes precisam ter a mesma origem.

@s.luciano Boas, Poderia deixar o arquivo inteiro ? Obrigado!

@feross Eu cheguei nesse código, mas ele tambem demora algum tempo. Sub teste() Dim Arg1 As Range 'Range a somar entrada Dim Arg2 As Range 'Primeiro range criterio entrada Dim Arg3 As Variant 'Primeiro Criterio entrada Dim Arg4 As Range 'Segundo range criterio entrada Dim Arg5 As Variant 'Segundo Criterio entrada Dim Arg6 As Range 'Range a somar saida Dim Arg7 As Range 'Primeiro range criterio saida Dim Arg8 As Variant 'Primeiro Criterio saida Dim Arg9 As Range 'Segundo range criterio saida Dim Arg10 As Variant 'Segundo Criterio saida Set Arg1 = ThisWorkbook.Sheets("BD").Range("F:F") Set Arg2 = ThisWorkbook.Sheets("BD").Range("A:A") Set Arg4 = ThisWorkbook.Sheets("BD").Range("E:E") Set Arg6 = ThisWorkbook.Sheets("BD").Range("F:F") Set Arg7 = ThisWorkbook.Sheets("BD").Range("A:A") Set Arg9 = ThisWorkbook.Sheets("BD").Range("E:E") 'Criterio Entrada Arg3 = "ENTRADA" 'Criterio Saida Arg8 = "SAÍDA" Dim ws As Worksheet Set ws = ActiveSheet Dim i As Long Dim ultimo As Long ultimo = ws.Cells(rows.count, 1).End(xlUp).Row Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False For i = 2 To ultimo Arg5 = ws.Cells(i, 1).Value Arg10 = ws.Cells(i, 1).Value ws.Cells(i, 3).Value = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3, Arg4, Arg5) - Application.WorksheetFunction.SumIfs(Arg6, Arg7, Arg8, Arg9, Arg10) Next Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True MsgBox "Atualizado com sucesso!" End Sub

@LúizÁguiar Utilizei as fórmulas =ÚNICO e =FILTRO Penso que apenas funcionam no Office 365. Vou tentar com outras para versões mais antigas.

@LúizÁguiar Boas, Veja se assim lhe ajuda: Pasta1.xlsx

@StrawFox64Muito Obrigado! Vou ver as vantagens e desvantagens e escolher um bom para instalar.

@Kira_13 Eu penso que caso a extensão seja USB 3.0 ela vai dar sem problema para o que você pretende.

Pelo que vi no site da intel é 64-bits

@EduardoSnake Boas, pode tirar um print do mesmo no gerenciador de tarefas? Obrigado!

@josequali Consegue desativar a abertura do formulário ao abrir o arquivo, pois ele abre e eu não consigo aceder ao ficheiro. Obrigado! Já consegui desabilitar vou ver o que posso fazer!

@Fabricio01 Boas, Veja se lhe ajuda alguma dessas dicas.

@josequali Certo, desde que contenha a ListBox, as TextBoxes e as Labels penso que consiga implementar o código.

@josequali Consegue disponibilizar o arquivo para implementar e testar um código nele? Obrigado!

E como queria acionar essa condições? Quando escreve-se na textbox ou clicando em alguma botão, ou depois de escrever e sair da textbox?

@Eduardo Francox Boas, Vá na aba exibir: Em seguida clique em Painel de Navegação, que fica localizado no canto esquerdo do painel. Depois ative a opção: