Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Patricia Senatore Ribeiro

Membros Plenos
  • Total de itens

    20
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. 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.
  2. 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.
  3. 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?
  4. Acho que eu não estava conseguindo me explicar direito. Agora funcionou perfeitamente. Muito Obrigada mais uma vez!!!
  5. 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
  6. 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.
  7. 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!
  8. 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!!!
  9. 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
  10. Eu acabei digitando errado dessa vez, desculpa mas mesmo trocando, continua dando erro nessa linha
  11. 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
  12. 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
  13. Não funcionou, continua dando erro quando aperto ENTER em outra planilha deste arquivo. O meu código está assim, em Esta Pasta de trabalho (para funcionar sempre que eu abrir o arquivo) tem: Private Sub Workbook_Activate() Application.OnKey "~", "FILTRO_PESQUISA" Application.OnKey "{ENTER}", "FILTRO_PESQUISA" End Sub Private Sub Workbook_Deactivate() Application.OnKey "~" Application.OnKey "{ENTER}" End Sub Que executa um Botão com uma Macro FILTRO_PESQUISA que como o nome diz executa um Filtro de Pesquisa. A tabela com os dados fica na Planilha1, que fica oculta, e o botão na aba CONSULTA. Mas quando vou na Planilha1 para modificar algum dado e clico no ENTER ele executa a macro e dá erro.

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

×