Ir ao conteúdo
  • Cadastre-se

Roronoa Zero

Membro Pleno
  • Posts

    40
  • Cadastrado em

  • Última visita

Reputação

5
  1. Boa Tarde Srs. Tudo bem ? Estou criando um painel de senhas para um restaurante que minha esposa trabalha. Estou me matando tem 1 mês e este é meu 5º arquivo novo de teste, os demais fracassei O objetivo dele é o seguinte: Quando a pessoa abre, o userform se inicia reproduzindo os videos A barra de texto ultima senha possui 2 botões e 1 textbox é um "ponto minusculo do lado esquerdo, este faz reproduzir os videos de forma aleatória A pergunta é: Tem como iniciar o Userform e ele automaticamente inicia os videos de forma aleatória sem eu precisar dar um play ou precisar de um botão de play? O Textbox serve para colocar o número a ser chamado, a numeração vai de 001 até 999 e do lado direito tem outro "ponto minusculo" , não codifiquei porque não consegui avançar para o próximo passo O Objetivo seria: Digitar a "senha no textbox; Clicar no botão Ele procurar na Plan1 a foto ( que já está nas células) Após localizar ele executa a coluna H Ex: Senha 001 = Célula H5 Copiar o que está na Celula D3 e colar na Celula E3 Copiar o que está na Celula E3 e colar na Celula F3 Copiar o que está no Textbox 1 e colar na Celula D3 A coluna H é um caminho de uma pasta minha no Drive, é um GIF, quando é colado no Excel ele fica estático por isto coloquei ali a mágica seria: Ele é executado por 05 seg em tela cheia (em cima do vídeo sem pausar ele, ou se pausar ninguém deve perceber né ?! rs ) Após este passo ele preenche as células Celula D3: Última Senha Celula E3: Penultima Senha Celula F3: Antipenultima Senha Exemplo: estamos chamando a senha 150. ( A senha lá a numeração é aleatória, seria o 4º atendimento do dia) As 3 primeiras senhas chamadas foram Célula D3: 099 Célula E3: 007 Célula F3: 022 Quando Chamar a senha 150, após a execução do GIF, as Células ficariam: Célula D3: 150 Célula E3: 099 Célula F3: 007 Ai que vem o "Milagre que eu estou esperando. Quero(Queria) que os Image 1 Image2 e Image 3 trouxessem as imagens da coluna E Na minha cabeça ficaria assim Célula D3: 150 Célula E3: 099 Célula F3: 007 Se a Célula D3 está com a numeração 150, é igual a Coluna D154 que tem a imagem (E154) Preenche Image1 Se a Célula E3 está com a numeração 099, é igual a Coluna D103 que tem a imagem (E103) Preenche Image2 Se a Célula F3 está com a numeração 007, é igual a Coluna D11 que tem a imagem (F11) Preenche Image3 Resumindo seria: Célula D3: 150 = Image1 Célula E3: 099 = Image2 Célula F3: 007 = Image3 Os números neste caso podem ser congelados pois o objetivo é o vídeo chamar a atenção. Obs: https://www.hardware.com.br/comunidade/celula-imagem/1461153/#post7836907 Já li este tópico e não consegui reproduzir isto nem com reza! Obrigado desde já para quem leu Ultimas Senhas.zip
  2. Prezados. Já consegui acertar o VBA. Em vez de usar os 5. Coloquei os 3 com um userform de senha ai ele só passa se a senha estiver correta. Obrigado pela ajuda. Só falta agora saber como coloco varias pessoas no grupo de senhas
  3. Boa Tarde Gostaria de pedir um reforço da galera do Excel Tenho uma planilha que tem 5 botões Useforms que eu uso e quero que o botão 4 trave todos os demais ,porque só eu posso usar os 3Tipo. Eu uso os botões 1, 2 e 3. Quando eu clicar no 4 ele desabilita todos os 3 primeiros e o 5 é para habilitar novamente (ainda não pensei em como fazer, pra colocar senha, estas coisas) Me falaram esse codigo, mas não quero que ele sempre ative quando eu abrir, e sim quando eu pedir Segue os o que já vi, são estes 4 códigos abaixo e já procurei no forum mas nada que eu procurei servia Obrigado pela ajuda \o/ Código 1 CÓDIGO: Sub DisableActiveXControl() 'Desabilita botão de Controle ActiveX Sheet1.CommandButton1.Enabled = False End Sub Ou Sub DisableFormsControl() 'Desabilita botão de Controle Sheet1.Shapes("Button 1").ControlFormat.Enabled = False End Sub Codigo 2 Forms!NomeDoForm.NomeBotão.Enabled = False Codigo 3 CommandButton1.Enabled = False Codigo 4 Private Sub Workbook_Open() Application.AutomationSecurity = msoAutomationSecurityLow End Sub Onde: msoAutomationSecurityLow Macros rodam sem verificar o certificado de autenticidade, equivale a segurança Baixa. msoAutomationSecurityByUI O usuário indica se as macros devem ser habilitadas, equivale a segurança Média. msoAutomationSecurityForceDisable Desabilita as macros sem certificado de autenticidade, equivale a segurança Alta.
  4. Alguém sabe aonde ele fez a magica com a chave? Não consegui localizar na internet nem no meu notebook aonde ele fez isso Alguém pode me ajudar? PLEASEEEE
  5. @César Platz Porque por sua conta em ricso? Isso pode danificar o Not? E o que é isso q ele faz? Parece que ele pressiona algo com a chave
  6. Desmontei ele no domingo as 13 e montei ele as 17 tirei peça por peça, literalmente não resolveu nada, continua no mesmo
  7. Boa Tarde Srs. Gostaria de uma ajuda de vocês eu li o tópico Senha do Bios - Resetar CMOS http://forum.clubedohardware.com.br/forums/topic/666329-senha-do-bios-resetar-cmos/ Eu tenho o mesmo Notebook que o deste topico e estou com o mesmo problema e a solução que o usuario citou foi a seguinte " Bem, por incrível que pareça, consegui resolver o problema... Não perguntem exatamente como, por que não saberei explicar... mas foi mais ou menos assim: Já perdendo as esperanças, peguei o switch (que é mostrado aqui nesse site, na foto, circulado de amarelo http://www.laptop-repair.info/acer_bios_password.html), e mudei todas as 4 posições (tipo, apelando mesmo, última tentativa), e liguei o note. Ele não dava boot, não pedia senha, e ficava lendo o drive de diskete toda hora... pensei comigo mesmo "que coisa maluca". Então peguei o interruptor 4 do switch e voltei com ele para a posição original, e deixei só os 3 primeiros levantados, e liguei o note. Vi que ele ligou normalmente, e fiquei pressionando F2 pra ver se entrava no Setup. Na verdade apareceu umas telas pretas, com uma penca de texto branco, dizendo que o note estava tentando resetar, e depois me deram duas opções, resetar novamente, ou iniciar o sistema assim mesmo... escolhi iniciar o sistema... daí apareceu uma tela de loading do windows, com a opção de pressionar F8 pra fazer sei lá o que. Como estava demorando demais, apertei F8 e entrou no Setup. Desabilitei a senha e salvei as alterações. Pronto. Bizarro, não? " Eu não consegui acessar o link que ele deixou, acho que ele está quebrado. Ai queria saber o seguinte, o que é este tal "SWITCH" que ele falou? vocês conseguem mandar um link com uma foto ou algo parecido? Não consegui localizar no google e já desmontei o not 2 x Estou com senha na BIOS e no Windows, o Not não da boot por cd,dvd,pendrive, disquete por nada. Creio que foi desabilitado.Ai fico neste loop infinito, a tela liga dou F2, ele pede senha da bios, dou ESC e ele loga o Win e pede senha. Não acessa nem por modo de segurança nem com o tal do F8 ou F1 E o cara que me vendeu essa bomba, sumiu do mapa Poderiam me ajudar por favor? E desculpe o topico grande
  8. @minoso .... acho que fiz **** aqui....fui juntar tudo e ele me da a mensagem... " Não é possível executar a macro "Mapa Base Teste"!Setor_Compras'. Talvez ela não esteja disponivel nesta pasta de trabalho ou todas as macros estejam desabilitadas. O que q eu fiz??
  9. a parte de deletar a figura eu consegui .... Uhhhhhhhhhhhhhuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuhhhhh Usei a formula Sub RemoverImg() On Error Resume Next Dim img As Shape For Each img In ActiveSheet.Shapes If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range("B43:N1042")) Is Nothing Then img.Delete End If Next End Sub Agora falta só a parte da faxina....
  10. Essa parte de "Concentrar" tudo... .seria colocar todas juntas? tipo...tirar o que é macro e fazer todas direto no vba em um unico modulo?
  11. @minoso .... Entendi mas não entendi.... a parte do que você quer acho q entendi...mas como fazer não consigo "ver"....tipo...é um botão que exclui e um botão que acrescenta...como eu coloco a mesma função junta? porque tipo...ele pode deletar ou não...a função deletar seria opcional...caso ele tenha autorizado e se arrependeu...mas isto não é pra ser frequente (pelo menos eu espero) E não to conseguindo fazer com outra formula sem ser o ElseIf... por isto que tem taaaaaaantas macros assim...realmente a parte da manutenção vai ser phoda...mas ai não sei como centralizar isto Obrigado pela ajuda ate agora....sou meio cabeça dura mesmo pra entender Você tem Skype? porque fica mais fácil de se comunicar por la
  12. @minoso .... o macro de copiar e colar é um.... o de excluir seria outro.... Tipo....se o cara autorizou (colou a imagem) ai depois quer desfazer esta autorização (ai queria deletar a imagem) agora eu me perdi com o q você falou ali....kkkkkkkkkkkkkkk Vai com calma porque demoro um pouco pra entnder.... .
  13. @minoso ... a ideia é copiar e colar mesmo....esta parte eu consegui resolver.... mas to querendo deixar uma opção pro usuario poder "Desfazer" a assinatura.... ai ele teria que apagar a imagem (que é a assinatura) a parte copiar e colar é diferente da de deletar Ficou confuso a explicação?
  14. @minoso É porque to tendo um problema....tenho uma foto....lembra q você falou pra renomear ela.... ai to no seguinte dilema...to querendo criar um macro que apague as figuras... ai fui atras daquele q tudo sabe (Google) ai ele me deu um codigo que apaga todas as figuras...mas eu não quero que apague todas....so a que esta na coluna F .... ai tem o codigo ActiveSheet.Shapes.Range(Array("123")).Select esse ai é perfect....maaas é só pra quando é pra uma figura especifica....ele procura acha ela na coluna e apaga....mas são varias....ai tenho q fazer.... ActiveSheet.Shapes.Range(Array("123")).Select ActiveSheet.Shapes.Range(Array("5462")).Select ActiveSheet.Shapes.Range(Array("145")).Select por exemplo.... só que se eu coloco a imagem 5462 ele diz que não localizou a 123.... to aqui se souber como q faço isto ou se na sua formula de cima eu conseguiria casar.... porque o objetivo final é deletar.... então dps de cada activesheet na linha de baixo ta o Selection.Delete. Abraços....e kkkkk valeu pela força ate agora
  15. @minoso Esquenta não,ta corrido pra todo mundo....eu to usando o Else If nelas...to testando aqui pra ver se funciona....vai ser código pakas tem um que da erro...tem um que vai....essa planilha vai me deixar doido...kkkkkk @minoso ... Já q você apacerceu aqui, xo abusar dos seus conhecimentos ..to com um probleminha no Else If...ele ta dando um erro dizendo " Erro de compilação: Declaração Duplicada no Escopo Atual. O que é isso? To usando a formula abaixo....so q (na minha cabeça) é pra fazer o seguinte.... TextBox1 = matricula TextBox2 = Confirmação com o nome do usuario TextBox3 = Senha Se os 3 estiverem ok...ele puxa a "assinatura" (foto) e cola no local....fiz o o primeiro usuario e deu certo...mas coloquei mais um e ele apareceu isto...será que ele não deixa eu fazer isto varias vezes? ElseIf TextBox1.Text = "1234" And TextBox2.Text = "456" And TextBox3.Text <> "" Then Dim resultado As VbMsgBoxResult resultado = MsgBox("Você deseja autorizar o mapa?", vbYesNo, "Autorização do Processo") If resultado = vbYes Then Sheets("Mapa Base").Unprotect Password:="123456" Título = "Assinatura" CxDialog = MsgBox("Autorização Realizada Com Sucesso", vbOKOnly + vbInformation, Título) Range("F18").Select Sheets("Assinaturas").Select ActiveWindow.SmallScroll Down:=102 ActiveSheet.Shapes.Range(Array("1234")).Select Selection.Copy Sheets("Mapa Base").Select Range("F18").Select ActiveSheet.Paste Selection.ShapeRange.IncrementLeft 22.0588976378 Selection.ShapeRange.IncrementTop 23.8234645669 Unload Me Range("F20").Select Sheets("Mapa Base").Protect Password:="123456"

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