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

Boa noite pessoal, Utilizei esse código abaixo para que quando não fosse digitada uma data no InputBox, automaticamente o InputBox aparecesse de novo... mas só consegui uma vez... qual a maneira certa de fazer isso. Segue o código abaixo... Private Sub Worksheet_Activate() Dim data As Date data = InputBox("Digite a data para gerar relatório:", "Data do Relatório", Date) If IsDate(data) Then MsgBox "Clique OK para gerar relatório da data digitada.", vbOKOnly Range("J1").Value = data Else MsgBox "Data inválida. Digite novamente!", vbOKOnly data = InputBox("Digite a data para gerar relatório:", "Data do Relatório", Date) End If End Sub Obrigada pessoal!

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