Ir ao conteúdo

Diclas

Membro Pleno
  • Posts

    57
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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?
  2. Obrigada Basole. Era isso mesmo!!!
  3. 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
  4. O arquivo é isso! -/ Uma planilha com quatro botões de comando!9 Pasta1.xlsx
  5. 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!
  6. 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...
  7. 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?
  8. 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

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...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!