daviddatal

Mas e quando são muitas informações, imagens, como é o meu caso, tem que ampliar. Como resolver isso?

Mas eu preciso salvar como imagem.

é um celular novo, galaxy j5.

Fiz um trabalho no Power Point 2010 com tamanho de página 80cm x 60cm. Salvei no formato .png e ficou muito boa a resolução no computador, consigo ler o texto normalmente e as imagens são nítidas. Mas quando passo para o smartphone fica um pouco borrado quando amplio, o que não acontece no computador. Porque isso acontece?

Não funcionou, @CasaDoHardware. Os hiperlinks obedeceram apenas ao que estava dentro do primeiro IF. E se eu precisar restringir um pouco mais, ou seja, aplicar o código somente para a região de B2:D5? Qual a sintaxe? Pois agora não estaria envolvendo uma coluna inteira..

Tenho alguns hiperlinks (células A1:A5) em uma planilha e acrescentei esse código abaixo para que a célula linkada sempre apareça no canto esquerdo superior e uma linha abaixo (-1): Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) ActiveWindow.ScrollRow = ActiveCell.Row - 1 ActiveWindow.ScrollColumn = ActiveCell.Column End Sub Ocorre que nessa mesma planilha tem outros hiperlinks (células B1:B5) onde eu preciso que a célula linkada fique, além da configuração acima, deslocada também uma coluna à direita. Eu teria que mudar o código acima, para esse grupo de hiperlinks, ficando dessa forma: '.... ActiveWindow.ScrollColumn = ActiveCell.Column -1 '.... Então, basicamente o que preciso é informar no código uma região da planilha para ter essa configuração: ActiveWindow.ScrollRow = ActiveCell.Row - 1 ActiveWindow.ScrollColumn = ActiveCell.Column E informar outra região da planilha para ter essa configuração: ActiveWindow.ScrollRow = ActiveCell.Row - 1 ActiveWindow.ScrollColumn = ActiveCell.Column -1

Muito bom, @Edson Luiz Branco! Você usou os apóstrofos dentro da própria fórmula R1C1, eu usei ela no valor da variável N, mas ambos os casos dão certo! obs: no meu post anterior, onde tem "'" é " ' " (aspas duplas, apóstrofe aspas duplas).

E já tinha testado essa solução padrão de proteger planilha. Mas repensando aqui eu fiz o seguinte: selecionei toda a planilha, desprotegi todas as células (formatar células/proteção); selecionei somente as células que quero proteger e recoloquei a proteção (formatar células/proteção); protegi a planilha no menu revisão.

A macro, como está escrita no código, faz uma edição na célula selecionada. Nessa edição, existe um IF e um COUNTIF. O problema está no COUNTIF, pois ao indicar a planilha em que será feita a contagem, por meio da variável N, o Excel não localiza uma planilha na pasta de trabalho atual, nos casos em que a variável N armazenar duas ou mais palavras. Neses casos ( N armazenar duas ou mais palavras) o Excel procura uma planilha que tenha apenas a última palavra armazenada na variável N, por exemplo, se N = SÃO PAULO, o COUNTIF só está procurando por uma planilha que tenha o nome PAULO. adicionado 27 minutos depois ================================== Atualização: Consegui! Onde tem: N = Range("C3").Value Mudei para: N = "'" & Range("C3").Value & "'" Testando, eu gravei uma macro com o mesmo código em uma planilha que tinha 2 palavras, com isso notei que foi inserido apóstrofe antes e depois do nome dessa planilha. Apenas isso que faltava! rsrs

Nesse caso, anexei uma planilha teste: Teste macro.rar

Eu preciso de algo mais específico, um código vba para bloquear apenas 2 ou 3 células, ao invés de desbloquear as células para depois clicar em Proteger Planilha. Pois a opção Proteger Planilha bloqueia tudo (menos as células desbloqueadas), eu quero um bloqueio para 2 ou 3 células específicas.

Basta colocar esse código abaixo em uma nova planilha: sub testando () N = Range("C3").Value ActiveCell.FormulaR1C1 = "=IF(5>=COUNTIF(" & N & "!R3C4:R10C4,"teste");""CORRETO"";""ERRADO"")" end sub

Agora me surgiu um problema: Quando o texto da célula nomeada (A1) contém apenas uma palavra, o código VBA que o utiliza funciona normalmente. Porém, se o texto da célula (A1) tiver espaço, ou seja, mais de uma palavra, aí o código apresenta erro. Na verdade não é bem um erro, durante a execução da macro é aberta uma caixa de diálogo perguntando onde está a planilha com o nome referenciado em " & N & ", e esse nome é a última palavra contida na célula (A1). Portanto, preciso de algo que faça com que o Excel procure por uma planilha presente na pasta de trabalho ativa que tenha o texto completo da célula (A1), e não apenas a última palavra escrita lá. A variável N até guarda o texto completo, mas na parte do código que tem " & N & " só está reconhecendo a última palavra do valor dessa variável.

Preciso bloquear apenas 5 células ("B2:B6"), mas sem usar o comando "Proteger Planilha" presente na guia Revisão. Quero fazer isso pelo VBA. Como proceder?

Estando na Plan2, quero copiar ou selecionar a célula C3 da Plan1. Vendo alguns tutoriais analisei esses códigos: 'quando for selecionar a célula: Application.Goto Sheets("Plan1").Range("c3").Select 'quando for copiar o valor da célula: Application.Goto Sheets("Plan1").Range("c3").Value Mas sempre dá erro nessas linhas de código. O que estou errando ou faltando informar na sintaxe?

Excelente, @Edson Luiz Branco !! Eu tentei de todo jeito e não conseguia chamar NOME1 para o local "=IF(5>=COUNTIF(" .... " & N & " na verdade é bem simples, mas para que está iniciando no VBA como eu as vezes não percebe.

Esse " & N & " é bem estranho! Pronto, ao invés de usar um nome do gerenciador de nomes foi usada uma variável. Mas como seria para colocar o nome do gerenciador de nomes?

Criei uma planilha que inicialmente se chama CÁLCULO. Em gerenciador de nomes eu criei um nome para a célula A1, que é NOME1. Adicionei um código para que o nome dessa planilha mude em função de NOME1. Estou tentando automatizar essa planilha, para que tudo fique em função de NOME1, e não do nome fixo inicial da planilha (CÁLCULO). Em três partes do código preciso chamar NOME1 e não o nome fixo (CÁLCULO) da planilha: ActiveWorkbook.Worksheets(CÁLCULO).Sort.SortFields.Clear ActiveWorkbook.Worksheets(CÁLCULO).Sort.SortFields.Add Key:=Range("B1:B10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal '... ActiveCell.FormulaR1C1 = "=IF(5>=COUNTIF(CÁLCULO!R3C4:R10C4,"teste");""CORRETO"";""ERRADO"")" Qual a sintaxe correta para trocar nos códigos o nome fixo (CÁLCULO) da planilha pelo nome criado em gerenciador de nomes (NOME1)? Eu tentei algo do tipo: ActiveWorkbook.Worksheets(NOME1).Sort.SortFields.Clear ....... não funcionou ActiveCell.FormulaR1C1 = "=IF(5>=COUNTIF(NOME1!R3C4:......... não funcionou ActiveWorkbook.Worksheets(Plan1).Sort.SortFields.Clear ....... não funcionou ActiveCell.FormulaR1C1 = "=IF(5>=COUNTIF(Plan1!R3C4:......... não funcionou

Perfeito. Dessa forma o código foi colocado na plan1, cujo valor da célula C3 vai definir o nome da outra plan2. Mas e se o código fosse colocado na plan2, ou seja, na planilha que quero renomear?

Tenho um arquivo do Excel com 2 planilhas (Plan1 e Plan2). Preciso que o nome da segunda planilha mude automaticamente de acordo com o que estiver digitado na célula C3 da Plan1.

E o restante do código? Até tentei fazendo assim: Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh As Worksheet Set Sh = Sheets("Plan1") If Not Intersect(Target, Sh.Range("C3")) Is Nothing Then On Error Resume Next Me.Name = Sh.Range("C3").Value On Error GoTo 0 End If End Sub Mas não funcionou.

Tenho 2 perguntas: 1) Qual a diferença entre "Sh" e "Me" ? São parâmetros internos do VBA? 2) Como faço para indicar a célula C3 de outra planilha?

Tenho uma tabela no Excel que tem uma largura total um pouco maior do que a largura padrão do papel A4. Quando copio essa tabela do Excel e colo no Word, naturalmente uma parte dela fica passando além do lado direito da página. Selecionando a tabela e clicando na guia Layout posso até usar a ferramenta AutoAjuste (de conteúdo, de janela ou largura fixa de coluna) para redimensionar a tabela colada. Contudo, esses ajustes não mantêm as dimensões originais das colunas da tabela do Excel. Eu preciso que o Word dimensione as colunas dessa tabela proporcionalmente, ou seja, reduza a tabela para caber no limite das margens mas sem quebrar o texto das células. Como posso fazer isso?

Preciso que mude só na primeira planilha. Testei inicialmente apenas colocando em EstaPasta_de_Trabalho: Sh.Name = Sh.Range("C3").Value Depois tentei o mesmo código apenas em Plan1(teste), mas não funcionou. O que preciso mudar se for apenas para a planilha 1?

Como eu expliquei acima, congelar painéis congela colunas à esquerda e linhas acima da célula selecionada. Quero que congele ao contrário, colunas à direita e linhas acima da célula selecionada.