Victor Comparini

Olá, Sim, consegui entender agora. Essa na verdade é uma configuração que você faria em toda a planilha, mas não é necessário. Segue o passo a passo: Com detalhe que o passo 1 e 2 não são exatamente necessário, mas é recomendável que você defina quais células poderão ser alteradas. No caso de ser todas as células, menos essa ou essa e alguma outra, basta seguir todos os passos. Passo 1: Clique sobre a seta acima dos números da coluna e a esquerda das letras para selecionar todas as células da planilha. Passo 2: Clique com o botão direito sobre qualquer célula e selecione Formatar Células > Proteção. E desmarque a opção Bloqueadas LEMBRANDO QUE: Isso vai permitir que todas as suas células podem ser alteradas, e no próximo passo vamos decidir quais não serão. Passo 3: Selecione somente a célula com a sua fórmula e marque a opção Bloqueadas. Obs: a opção Oculta servirá para que se alguém selecionando sua célula, não poderá ver qual fórmula foi usada para o resultado. Passo 4: Como podemos ler, na mensagem abaixo dessas opções, isso não tem efeito até configurarmos corretamente, então vamos proteger a planilha em Revisão > Proteger Planilha. Passo 5: Aqui há várias opções, porém focando na nossa necessidade, se você clicar em OK, já será suficiente, para que a sua célula bloqueada não possa ser alterada, mas você ainda pode: Escolher uma senha para a sua planilha Escolher se essa célula pode ser selecionada quando a planilha estiver protegida. Se a célula não puder ser selecionada, desmarque a opção Selecionar células bloqueadas, mas isso não é necessário para que funcione. Depois que clicar em OK, sua planilha estará protegida, e essa célula bloqueada já não poderá ser alterada. Fique a vontade para voltar a perguntar, e se já foi suficiente para sanar sua dúvida, lembre-se de marcar o tópico como Resolvido.

olá @tayna, Pelo que eu entendi, você quer congelar os painéis conforme a imagem abaixo está demarcada com as linhas vermelhas, é isso? Bom, se for isso, eu não conheço uma maneira de congelar a planilha dessa forma, acho que nem existe kk. Tem um outro recurso de abrir duas planilhas e dividi-las na tela, se quiser posso tentar te explicar, mas não sei se isso vai te ajudar. Quanto a sua segunda Dúvida, ao meu ver, a fórmula está correta, nesse caso nem precisaria estar "congelada/fixada" por $, porém acho que não está fazendo o que você quer que ela faça por um outro motivo. E essa parte confesso que não entendi na sua explicação. Você pode descrever como você quer colocar os dados, e como é para aparecer no total? Se você fizer isso, pode anexar a planilha aqui e enviar na resposta, pode descrever dentro da própria planilha também para que possamos resolver seu problema. Obrigado.

Olá @naty90 Esse erro acontece porque o tipo "Literal" não existe. Para o nome, não seria utilizado o tipo "caractere"? Exemplo: var palavra : caractere comprimento : inteiro inicio escreval("Digite uma palavra:") leia(palavra) comprimento <- Compr(palavra) escreval ("A palavra ", palavra, " possui ", comprimento, " caracteres") fimalgoritmo

Olá @tayna Primeiro para congelar linha e coluna pelo congelar painéis, selecione a próxima célula tanto da linha e da coluna que você quer congelar, e aperte em Congelar Paíneis > Congelar Painéis, como na imagem abaixo: Passo1 Passo 2: Já para congelar a célula dentro da fórmula, basta que a você coloque $ (Cifrão) antes e depois, como no exemplo a abaixo. Existe um atalho, que Quando o Cursor estiver na célula, você aperta F4 para deixar essa célula fixada. Detalhe $K$19 - Congela tanto a linha como a coluna, ficará apenas nesta célula. $K19 - Congela somente a coluna K$19 - Congela somente a linha. Espero ter ajudado, se tiver mais dúvidas fique a vontade para questionar.

@Rogério Rocco Gomes Encontrei alguns tópicos aqui do próprio fórum e pesquisei seu problema na microsoft, vou deixar os links aqui. Solução da microsoft: https://support.microsoft.com/pt-br/office/solução-de-problemas-do-designer-do-powerpoint-83789fcb-f1ae-4703-b1b4-9c97259f592b

Olá @Monalisa Catarina Veja se como na imagem abaixo, e na planilha em anexo ao final do post, é o que você precisa para sua necessidade. Você precisa de um passo a passo ensinando-a a fazer uma lista assim? Como não sei a forma é são calculados os trechos da sua planilha, imaginei que fosse por quilometros. se isso não ajudar, poste um exemplo da sua planilha aqui no forum. Segue anexo do exemplo: Exemplo Lista Suspensa - Vics.xlsx

Olá! Desculpe, não consigo entender ao certo o que você quer dizer com "amarrar". Você poderia dar um exemplo em uma planilha de: De onde vem essas células? Você tem uma tabela? Como elas estarão amarradas? Consegue mostrar visualmente e manualmente como vai funcionar para pensarmos em um jeito de fazer automáticamente? Para o número da linha das células é usado a fórmula =LIN([referência da célula]) Tente montar esse exemplo prático e visual e anexar a planilha aqui para tentarmos pensar em uma maneira de ajuda-lo.

Olá. Qual a versão do seu office? No Office 2016 é em Design > Ideias de Design (última opção do canto direito)

Olá @Srt2, Pelo que eu entendi, você quer saber se o número foi sorteado e localizar onde ele está sorteado. Se não for isso, explique de outra forma. Se for isso, veja se isso ajuda Clube do Hardware.xlsx

Olá! Desculpe, mas não está claro o que você precisa. O que é para a planilha fazer?

Olá! Vamos ver se minha solução com Links ajuda. Ao fim do post vou deixar meu arquivo de exemplo. Passo a Passo: Um slide com as bandeiras; 4 slides, um para cada língua do texto. 1. A primeira coisa é ocultar esses slides para eles não aparecerem durante a apresentação, pois, só serão acessados quando a pessoa clicar sobre a bandeira. 2. Depois, é só atribuir cada link para a respectiva bandeira. Clique com o botão direito e procure a opção de Link, depois na seta > e lá embaixo em inserir Link... 3. Por ultimo, Clique na opção Colocar neste documento, e selecione o seu slide. Pronto!! Durante a apresentação, basta clicar sobre cada bandeira que irá para o respectivo slide, e passando a apresentação normalmente, eles não aparecerão. Durante o modo de edição do slide, segure CTRL e clique na bandeira para ir até o slide indicado. Espero ter ajudado, e caso não seja o que necessite, sinta-se a vontade para questionar e voltar a explicar. Documento do exemplo: Exemplo Link.pptx

Olá! Na minha antiga usávamos algumas planilhas para imprimir etiquetas na A4, e elas tinham códigos de barras. Vou deixar uma imagem de exemplo. Existe vários meios, criptografias, códigos, fórmulas e etc, para fazer um código de barra no Excel. O jeito mais simples e que supria nossa necessidade era usar uma fonte de código de barras, se pelo que me lembro, usávamos essa aqui: https://www.dafont.com/pt/code-128.font Nossa impressora era de Toner, mas acredito que o Excel vai enviar o documento para impressora sendo ela específica para código de barras ou não. Segue exemplo da etiqueta:

Olá Veja isso isso ajuda: Sub exercicio3() '3) Crie um vetor que receba 5 números e ordene-os em ordem crescente. Dim num(4) As Single 'numeros inseridos Dim i, j, k As Integer 'indice Dim aux As Integer 'variavel de ordens e auxiliar For i = 0 To 4 'repetição para entrar com um numero num(i) = InputBox("DIGITE UM NUMERO: ") Next For j = 0 To 3 'todos os valores do vetor For k = 0 To 3 'comparação 2 a 2 If num(k) > num(k + 1) Then 'empurrar o maior número para o final aux = num(k) 'trocar variaveis de lugar num(k) = num(k + 1) num(k + 1) = aux End If Next Next MsgBox num(0) & num(1) & num(2) & num(3) & num(4) End Sub

Olá! Tente resolver da seguinte forma: Set Rg = Range("E9").value ws.SaveAs Wp.Path "\"& Rg & "-" & Year(Date) & "-" & Month(Date)

@DigusX Olá, tente isso. Vou deixar o código e a planilha. Private Sub Worksheet_Calculate() 'Desenvolvido por: Vics - Clube do Hardware 'Desenvolvido em: 27/04/2020 'Modificado em: On Error GoTo erro executar: Dim email As String email = Range("B6").Value If email = "Sim" Then MsgBox "Enviar e-mail", vbInformation ElseIf email = "Não" Then MsgBox "Não enviar e-mail", vbCritical ElseIf email = "" Then Exit Sub Else: GoTo erro End If Exit Sub erro: MsgBox "Opção Inválida.", vbCritical, "Caixa de Mensagem" End Sub Executar ao modificar Email V2 - Vics .zip Se não conseguir aplicar isso na sua planilha, posso olhar!

@Allex66sandro Por favor, verifique sua caixa de mensagens e vamos nos comunicando por lá até estar pronta a planilha.

@Allex66sandro Ah sim, então muda tudo! Perguntas: Essas colunas é para estar tudo na mesma folha? Retrato ou paisagem? (Paisagem fica melhor, obviamente) Cada vez que você apertar o botão imprimir, vai imprimir todas as linhas? Respondendo estas perguntas, consigo desenvolver algo pra você.

Olá. Claro que se você anexar a planilha, fica mais visível e mais fácil de entender o que você quer pra te ajudar. Mas tente esse código: Sub imprimir_select() ' Range("B1:J8").Select Selection.PrintOut Copies:=1, Collate:=True End Sub Unica coisa que não vai ter a visualização antes de imprimir. Mas qualquer dúvida, estou a disposição.

@DigusX Olá, Tente essas opções Executar ao modificar Email - Vics .zip 1º Opção, Executar Macro ao alterar a célula 2º Opção, Executar Macro ao clicar no botão.

Olá, consgue sim. altera essa linha no código formato = ".png" 'formato dos arquivos para formato = ."jpg" 'formato dos arquivos

@ziico Eu deixei 3 opções na planilha 1 era o botão 2 era você digitar no número na F2 3 a célula F2 está com um aleatório entre, é só você "calcular", isso é, apertar F9 ou mudar qualquer outra célula que a macro será executada. Agora se isso vai funcionar com o que você quer que é em milésimos de segundo, só testando pra saber.

Olá testando aqui, consegui assim: With ActiveWorkbook.Worksheets("Planilha1").Sort .SetRange Range("J11:J58") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply IMPORTANTE: Certifique-se de que os número estão formatados como números, pois se estiverem como texto, pode ser ele irá manter a formatação que você colocou a baixo.

@ziico Olá Fiz algumas alterações na planilha. Buscar ao mudar o valor, buscar ao clicar no botão, buscar ao digitar o valor... Veja se isso ajuda. clubehardware.rar

Olá! Venho trazer um projeto que realizei na semana passada. Nesse momento em que o Brasil está de quarentena por conta do COVID-19, fui desafiado por alguns amigos meus a criar um jogo dentro do Excel. Jogos dentro do Excel não é uma novidade, existem vários jogos, simuladores e várias outras coisas que essa ferramenta poderosa pode fazer. Eu optei pelo jogo da forca por não ser tão complexo de desenvolver. Mas vou deixar disponibilizado para todos jogarem, testarem, e o código está aberto, sem senhas, caso queriam acrescentar algo. Ou quem sabe possam aprender alguma coisa com as minhas gambiarras os meus códigos e planilhas. O Jogo é todo feito é todo feito através de cliques no teclado que foi feito com um UserForm do VBA. Não pode haver mais que 11 letras por palavras, por uma questão do design com o tamanho da tela, então não tem como sortear "pneumoultramicroscopicosilicovulcanoconiótico" Há 5 temas e 175 palavras não dividido igualmente. Pode divulgar o quanto quiser, só peço encarecidamente que não tirem os devidos créditos. Segue o download: Jogo da Forca.zip

Olá Tente utilizar essa macro no word: Não esqueça de trocar o local do arquivo e o formato Sub AddArquivos() 'Código desenvolvido por: Vics Dim localArquivo As String Dim arquivo As String Dim formato As String localArquivo = "SEU LOCAL" 'local do seu arquivo Exemplo: C:\Users\Usuario\Desktop\ formato = ".png" 'formato dos arquivos arquivo = 1 arquivo = Format(arquivo, "0000") Do While arquivo <= 100 Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo + 3 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo - 1 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo - 1 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo + 3 arquivo = Format(arquivo, "0000") Loop End Sub Espero ter ajudado, Qualquer dúvida estou a disposição.