Diclas

Boa noite, uma dúvida cruel...

Não é possível inserir um campo calculado em um tabela dinâmica com tabelas relacionadas?

Obrigada!

Boa tarde pessoal,

Estou com esse problema tb.

Quando abro a planilha, ela funciona perfeitamente, chamando um userform de login e senha...

Ocorre que quando outra planilha está aberta, ao abrir essa planilha ela pula o evento open e abre direto...

Porque ocorre isso?

Boa noite pessoal!!!

Estou quebrando a cabeça com esse "problema" que está acontecendo.

Tenho uma planilha com programação vba que funciona perfeitamente quando só ela está aberta.

O problema é quando outra planilha que não tem programação já está aberta, o código funciona legal porém quando vai para a linha Application.DisplayFullScreen = True, ele executa na planilha que já está aberta e na que tem o código não faz... além disso ele mostra a planilha que já está aberta, mesmo eu ativando a planilha que deveria aparecer em primeiro plano. 

Acredito que seja algo simples, mas não estou conseguindo resolver...

Obrigada pela ajuda...

Boa noite,

Estava fazendo algumas planilhas e comecei a utilizar o recurso de ralacionamento de tabelas, e gostaria de sanar duas dúvidas que surgiram:

1 - Não é possível inserir um campo calculado na tabela dinâmica quando você relaciona duas tabelas?

2 - Não é possível fazer a conexão de uma tabela dinâmica com a linha do tempo ou segmentação de dados quando existe um relacionamento entre tabelas?

Não consegui achar essas respostas em nenhum site, se puderem me ajudar... 

Obrigada...

Diclas Soares

Obrigada Basole.

Era isso mesmo!!!

Segue código da minha dúvida (Está em vermelho mais abaixo)

Private Sub Atualizar()
Dim Data As String
Dim Item As ListItem
Dim LinhaFinal As Integer
Dim i As Integer

ListView1.ListItems.Clear

LinhaFinal = Sheets("BANCO").Cells(Rows.Count, 1).End(xlUp).Row
Data = Date

For i = 2 To LinhaFinal   

Gostaria que antes de adicionar o item da tabela no listview, fosse identificado o primeiro Item de cada linha da primeira coluna.

E depois verificado se esse item é igual a data se for seguir o código abaixo, senão ir para o próximo.

Tentei um ListView1.ListItems.Item.Vaue mas não existe

    Set Item = ListView1.ListItems.Add(Text:=Sheets("BANCO").Cells(i, 1))
    Item.SubItems(1) = Format(Sheets("BANCO").Cells(i, 2), "hh:mm")
    Item.SubItems(2) = Sheets("BANCO").Cells(i, 3)
    Item.SubItems(3) = Sheets("BANCO").Cells(i, 4)
    Item.SubItems(4) = Sheets("BANCO").Cells(i, 6)
    Item.SubItems(5) = Sheets("BANCO").Cells(i, 7)
        
Next

End Sub

Desde já, obrigada!

Diclas

O arquivo é isso!

-/

Uma planilha com quatro botões de comando!9

Pasta1.xlsx

Boa tarde,

Estou usando esse código e fala de um erro 424 que o objeto é obrigatório... só que como sou iniciante não consegui entender qual é o erro...

O código é pra ser executado quando abro a pasta de trabalho... e nessa planilha que será aberta tem 4 botões que eu gostaria que estivessem desativados...

Private Sub Workbook_Open()

Sheets("Plan1").Activate

CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
CommandButton4.Enabled = False

End Sub

Poderiam me ajudar!!!

Diclas!

Sim, agora entendi Osvaldo....

Só mais uma dúvida pra gente fechar o tópico.

No exemplo que te passei, eu primeiro seleciono na coluna A pra gerar a macro...

e se na coluna A eu já tenho as palavras escritas... muda o código né?

Bom dia Osvaldo, tentei colocar o seu código na planilha que eu estava usando e tive muitas dúvidas. Estou enviando a planilha pra você entender.

Muito obrigada pela ajuda!

Trabalhando com lista suspensa.xlsx

Rsrsrsrsrs

Sim pode ser!

É isso mesmo Osvaldomp o que eu queria...

Agora deixa eu te fazer uma pergunta... Eu gostaria de colocar essa validação em 10 linhas, por exemplo, como ficaria o código?

Obrigada Basole... ficou perfeito!!!

Basole, ficou perfeito!

Só mais uma dúvida...

Como eu faço para colocar os emails de CC (Cópia)?

Desde já, obrigada!!!

Boa Noite Patropi...

Sim, é necessário a lista. O INSS é sempre Médico (no caso seria o motivo de uma falta no trabalho). Se eu escolher outro motivo que não seja INSS, eu teria que escolher entre Médico, Legal e Social.

Boa noite pessoal.

Gostaria de saber se é possível na mesma célula eu ter uma lista suspensa e poder colocar um valor especifico como no exemplo abaixo?

Na célula A1 escrevo INSS, gostaria que B1 onde tem uma lista suspensa (Médico, Legal e Social), já escrevesse Médico, sem eu precisar ter que ir até a célula e selecionar Médico.

Obrigada Pessoal!

Boa noite pessoal

Gostaria de uma macro para enviar esse relatorio da planilha para um email especifico.

Não gostaria de enviar a planilha toda , apenas o relatorio com a formatação igual.

O relatorio varia de acordo com a quantidade de linhas que são preenchidas. Portanto hoje pode 10 linhas com bordas, amanhã pode 7.

Obrigada!

RELATORIO_EMAIL.xlsx

Obrigada Osvaldo,

É isso mesmo!

Boa tarde Osvaldo,

Só mais uma questão! Neste exemplo que te passei nós temos um número de linhas fixo na tabela que é 10. Gostaria de colar uma variável aí... ora vai ser 7 linhas, ora vai ser 9 linhas, ora vai ser linha 15 linhas... com um limite de 20 linhas, supondo. Então quando for 7 linhas, apareceria a palavra maior/menor que está indicado na célula D1, e as demais linhas ficassem apagadas. Como fazer para essas linhas apagarem?

Boa noite, Osvaldo

Obrigada pela solução...

A ideia é que esse número 7 (valor da célula D1) seja rotativo, ou seja, uma hora ele pode ser 6 Maior e 4 Menor, 8 Maior e  2 Menor... o que eu teria que mudar neste código para atender a essa rotatividade...

Obrigada!

Na planilha eu tenho duas palavras pré selecionadas MAIOR e MENOR.

Tenho uma lista com 10 linhas. Acima tem um número, no caso 7.

Nessa lista de 10 linhas deve aparecer 7 vezes a palavra Maior de forma aleatória, as outras 3 linhas devem aparecer Menor.

Segue o exemplo

Obrigada!

Planilha 1.xlsx

Pois é Patropi acredito que você esta certo, alterei o código da planilha que estava funcionando e as outras também funcionarão, acho que o código da primeira planilha é o mesmo que o das outras, mas eu fiz a cópia fiel do código, será que não existe algum detalhe que tenha que ser mudado? Fiz o processo que você falou porém tb não deu certo.

Usando o ctrl c + ctrl v tá fazendo com que o código da primeira planilha execute o das outras... eu acho que é isso que tá acontecendo...

Bom Patropi, fiz as alterações só que não funcionou...

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E17").Value = "" Then

ActiveSheet.Shapes("Button 12").Visible = False

ActiveSheet.Shapes("Button 13").Visible = False

ElseIf Range("E17").Value = 1 Then

ActiveSheet.Shapes("Button 12").Visible = True

ActiveSheet.Shapes("Button 13").Visible = False

Else

ActiveSheet.Shapes("Button 12").Visible = False

ActiveSheet.Shapes("Button 13").Visible = True

End If

End Sub

Preciso desse efeito em 5 planilhas, na primeira que eu coloquei funcionou porém nas outras deu erro.

O que eu faço?

Estou usando dois botões da caixa formulario na mesma planilha, e tenho um código que quando a célula A1 for igual a 1 um dos botões aparece, e quando A1 for igual a 0, o botão que estava oculto aparece e o outro some.

Gostaria de complementar o código da seguinte forma: quando a célula A1 estiver vazia não apareça nenhum dos botões.

Acredito que seja simples, porém tenho dificuldades com vba. Se puderem me ajudar agradeço.

O código que tenho no momento é esse

If Range ("A1") = 0 Then

ActiveShapes.Visible ("Button 12") = True

ActiveShapes.Visible ("Button 13") = False

Else

ActiveShapes.Visible ("Button 12") = False

ActiveShapes.Visible ("Button 12") = True

End If