Ir ao conteúdo
  • Cadastre-se

Diclas

Membro Pleno
  • Posts

    60
  • Cadastrado em

  • Última visita

Reputação

0
  1. Boa noite, uma dúvida cruel... Não é possível inserir um campo calculado em um tabela dinâmica com tabelas relacionadas? Obrigada!
  2. 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?
  3. 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...
  4. 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
  5. 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
  6. O arquivo é isso! -/ Uma planilha com quatro botões de comando!9 Pasta1.xlsx
  7. 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!
  8. 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é?
  9. 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
  10. 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!
  11. É 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?
  12. Basole, ficou perfeito! Só mais uma dúvida... Como eu faço para colocar os emails de CC (Cópia)? Desde já, obrigada!!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...