Patricia Senatore Ribeiro

Não fica em tela cheia quando aperto F11, ele abre um gráfico.

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!

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.

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.

Funcionou perfeitamente! Mais uma vez muito obrigada!!!

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?

Acho que eu não estava conseguindo me explicar direito. Agora funcionou perfeitamente. Muito Obrigada mais uma vez!!!

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

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.

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!

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

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

Eu acabei digitando errado dessa vez, desculpa mas mesmo trocando, continua dando erro nessa linha

Olha o erro que deu:

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