Ir ao conteúdo
  • Cadastre-se

Patricia Senatore Ribeiro

Membros Plenos
  • Total de itens

    22
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Não fica em tela cheia quando aperto F11, ele abre um gráfico.
  2. Boa tarde, Estou utilizando o comando Application.DisplayFullScreen = False para colocar o excel em tela cheia, no entanto quando minimizo a tela e depois volto a planilha não fica mais em tela cheia. O que eu posso fazer para isso não acontecer? Eu estou usando o office 2016. Obrigada!
  3. Desculpe eu estava me referindo a como fazer isso em uma macro no Visual Basic. Eu uso o comando copy e ele até fica com a formatação das letras e tal mas o tamanho das linhas não.
  4. Boa noite, Tenho uma tabela e quero copia-la na folha debaixo (uma vez que a visualização está em folha) na mesma planilha, porém preciso que ela fique idêntica, quero dizer, com a mesma formatação e o tamanho das linhas e colunas. Também queria saber se tenho como criar um novo arquivo e copiar essa tabela mantendo a formatação e a margem da pagina. Obrigada.
  5. Bom dia, mais uma vez venho pedir ajuda. Tenho uma UserForm onde insiro datas nas TextBox1 e nelas aparecem as barras automaticamente, para isso estou usando este código: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii > 57 Then 'Não permite inserir letras KeyAscii = 0 Else If Len(TextBox1) = 2 Then 'Len retorna a quantidade de caracteres TextBox1 = TextBox1 & "/" End If If Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/" End If End If End Sub O problema é que eu tenho 12 TextBox então teria que inserir uma sub dessa para cada um. Tem algum jeito de eu fazer somente isso somente 1 vez para funcionar em todas as TextBox?
  6. Acho que eu não estava conseguindo me explicar direito. Agora funcionou perfeitamente. Muito Obrigada mais uma vez!!!
  7. Também não foi. Estou te mandando a tabela pra você ver. O que eu preciso é que se eu escrever em qualquer uma das celulas do intervalo B6:C1000 o que eu escrevi apareça na B3 para fazer a pesquisa. PESQUISA NOVO.rar
  8. Não funcionou. O problema é que eles fazem a pesquisa e então selecionam algum produto do resultado, depois eles começam a digitar ali mesmo naquela celula pra fazer a pesquisa ao invés de clicar em B3 pra pesquisar de novo. Ai eu queria que mesmo se eles digitassem nessas outras celulas modificasse a celula B3 para fazer a pesquisa.
  9. Bom dia, tenho uma planilha com um filtro de pesquisa, ela fica bloqueada mas as células onde aparecem os resultados da pesquisa tem que ficar desbloqueadas pois tem uma formatação condicional para realça-las quando selecionadas. O problema é que os funcionários fazem uma pesquisa e não entendem que depois de selecionar uma dessas células você tem que clicar na célula da pesquisa de novo para realizar uma nova consulta. Então eu queria que sempre que eu digitasse alguma coisa em qualquer área dessa planilha ela selecionasse essa célula (no caso a célula B3) para fazer uma nova pesquisa. Obrigada!
  10. Agora funcionou, muito obrigada mesmo e desculpe o incomodo. Só acrescentei o Else Application.OnKey "~" Application.OnKey "{ENTER}" End If No final da macro FILTRO_PESQUISA pra não anular o efeito o ENTER nas outras planilhas. Muito Obrigada mesmo!!!
  11. Eu tinha tentando assim mas também não funcionou, vou te mandar meu arquivo como estava antes pra você ver. E me desculpe a amolação. FILTRO ATUALIZADO.rar
  12. Eu acabei digitando errado dessa vez, desculpa mas mesmo trocando, continua dando erro nessa linha
  13. Isso, eu gravei uma macro com o filtro de pesquisa e salvei no botão. adicionado 0 minutos depois Sub FILTRO_PESQUISA() ' ' FILTRO_PESQUISA Macro ' ' Atalho do teclado: Ctrl+Shift+F ActiveSheet.Unprotect "123" Sheets("Planilha1").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("CONSULTA!Criteria"), CopyToRange:=Range( _ "CONSULTA!Extract"), Unique:=False Range("C16").ClearContents ActiveSheet.Protect "123" End Sub adicionado 1 minuto depois Isso eu salvei uma macro com o filtro de pesquisa avançado e coloquei no botão. Sub FILTRO_PESQUISA() ' ' FILTRO_PESQUISA Macro ' ' Atalho do teclado: Ctrl+Shift+F ActiveSheet.Unprotect "123" Sheets("Planilha1").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("CONSULTA!Criteria"), CopyToRange:=Range( _ "CONSULTA!Extract"), Unique:=False Range("C16").ClearContents ActiveSheet.Protect "123" End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×