Ir ao conteúdo
  • Cadastre-se

Nosila

Membro Júnior
  • Posts

    17
  • Cadastrado em

  • Última visita

Reputação

0
  1. Olá Rafael! Li sua solução e achei bom, mas, como não sou expert em VBA não consegui reproduzir sua instrução adaptando para a minha nescessidade. Vou postar a minha planilha e peço sua ajuda para isso. Eu acabei fazendo igual a nosso colega, usando os códigos de gravação do VBA. A primeira lista foi de boa, mas, na segunda dá erro e não saio disso. Gostaria de aplicar seu metodo. Mas, se alguém entendeu e puder me ajudar, serei grato também. Na minha planilha, tenho um codigo para incluir e excluir linha, conforme a lista vai aumentando. Por isso, tenho no codigo o esquema para encontrar a última linha e a última coluna visivel. Com isso, consigo encontrar as outras variáveis para montar o range, o que não consigo é concluir a classificação. Sub Classificar_Lista() ' ' Classificar_Lista Macro ' Classifica as listas de 'Empresas Anfitriã' e 'Oradores' ' Dim UltimaLinha As Long Dim UltimaColuna As Long Dim PrimeiraLinha As Long Dim PrimeiraColuna As Long Dim PrimeiraLinhaClass As Long Dim PrimeiraColunaClass As Long Application.ScreenUpdating = True ' Interrompe a atualização da tela; Application.ScreenUpdating = False ' Desprotege a Aba; ActiveSheet.Unprotect ' Seleciona a planilha ativa; Set sh = ActiveSheet ' Obs. pessoal: Não entendi este comando, futuramente pesquisar o que está acontecendo aqui, ' mas, o comando é nescessário para a execução a seguir; Set rng = sh.Range("A1").SpecialCells(xlCellTypeLastCell) ' Recupera a última linha VISIVEL; UltimaLinha = rng.Row ' Recupera a última coluna VISIVEL; UltimaColuna = rng.Column ' Retorna o resultado em uma caixa de texto na tela; ' MsgBox "A última linha é: " & UltimaLinha & vbCrLf & "A última coluna é: " & UltimaColuna, vbInformation ' Posiciona na última célula à esquerda na tabela à classificar UltimaLinha = UltimaLinha - 4 UltimaColuna = UltimaColuna - 11 ' Posiciona na primeira célula que há valor na coluna Selection.End(xlUp).Select Selection.End(xlUp).Select PrimeiraLinha = ActiveCell.Row PrimeiraColuna = UltimaColuna PrimeiraLinha = PrimeiraLinha + 2 ' Estabelece os parâmetros para a classificação da coluna ORADORES Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)).Select ActiveWorkbook.Worksheets("Empresas").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Empresas").Sort.SortFields.Add Key:=Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Empresas").Sort .SetRange Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With UltimaLinha = 0 UltimaColuna = 0 PrimeiraLinha = 0 PrimeiraColuna = 0 ' Iniciaa classificação para a segunda tabela na aba. ' Obs. pessoal: Não entendi este comando, futuramente pesquisar o que está acontecendo aqui, ' mas, o comando é nescessário para a execução a seguir; Set rng = sh.Range("A1").SpecialCells(xlCellTypeLastCell) ' Recupera a última linha; UltimaLinha = rng.Row ' Recupera a última coluna; UltimaColuna = rng.Column ' Retorna o resultado em uma caixa de texto na tela; ' MsgBox "A última linha é: " & UltimaLinha & vbCrLf & "A última coluna é: " & UltimaColuna, vbInformation ' Posiciona na última célula à direita na tabela a classificar UltimaLinha = UltimaLinha - 4 ' Posiciona na última célula à direita na tabela a classificar PrimeiraColuna = UltimaColuna - 7 ' Posiciona na primeira célula que há valor na coluna Selection.End(xlUp).Select Selection.End(xlUp).Select PrimeiraLinhaClass = UltimaLinha PrimeiraColunaClass = PrimeiraColuna PrimeiraLinha = ActiveCell.Row PrimeiraLinha = PrimeiraLinha + 2 Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)).Select ActiveWorkbook.Worksheets("Empresas").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Empresas").Sort.SortFields.Add2 Key:=Range( _ Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Empresas").Sort .SortFields.Clear .SortFields.Add Key:=Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range(Cells(PrimeiraLinha, PrimeiraColuna), Cells(UltimaLinha, UltimaColuna)) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ' Salvando Planilha; ActiveWorkbook.Save ' Protege a planilha; ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' Apenas posiciona o cursor; ActiveSheet.Cells(C1).Select ' Reativa a atualização da tela; Application.ScreenUpdating = True ' End Sub Pasta1.xlsx
  2. Bom dia Galera! Por muito tempo usei vínculos no Excel (até aqui era do 2010 pra trás) para buscar informações em outras pastas (aquivos) no Excel. Geralmente, deixo os arquivos salvos na mesma pasta do computador. Porém, percebi que agora (estou usando a versão 2016) que ele altera o caminho na minha fórmula para 'https://d.docs.live.net' e parte do caminho do arquivo. Em ambos os casos tenho meus arquivos salvos na pasta do Onedrive, salvos tanto na máquina como nas nuvens. Agora quando abro meus arquivos, o Excel fala que não pode atualizar os vínculos do arquivo por que não encontrou na internet o site com o arquivo indicado.... Como faço para ele parar de procurar na internet no docs live e 'olhar' apenas para a pasta onde ele está salvo (como ele fazia antes!)?
  3. Meu cartão SD que uso no Smart Motorola G5 Plus, está com os dados corrompidos. Eu havia formatado para unir a memória interna do smart, quando tentei desfazer, deu erro e depois disso não consegui mais usa-lo. Já usei o Easus para "escovar" os dados (foi feito com exito), mas, é só. Não dá para formatar (a opção nem fica disponível) ou excluir a partição. Creio que o hardware está bom, mas, preciso saber como conseguir formata-lo. Se eu conseguir excluir as partições (o smart criou uma partição a mais), consigo formatar. Alguém pode me orientar nisso?
  4. Olá! Tentei em modo compatibilidade e nada...nada mesmo... nada acontece... e se tento rodar apenas em modo compatibilidade, exemplo, com windows 7, surge o erro 0xc000007b.
  5. Olá ! Modo de compatibilidade já tentei em todos e nada, vou tentar em modo adm. Valeu!
  6. Não consigo instalar esse jogo no windows 10, até segui uma dica que diz para alterar a informação do 'directx 9.0c par 0' no arquivo autorun.cfg, até instala, mas, é só. Não roda. Alguém pode me ajudar com isso?
  7. Nosila

    Project64 Dando Erro

    Bom dia! Estou com problemas no plugin gráfico do pj64, já testei todas as verções, 1.7, 2.1, 2.2... o problema persiste... Anexei a imagem do erro que surge. o problema parece estar no DIRECT3D8, estou jogando Zelda Máscara Majoras e quando tento acessar uma passagem para chegar no chefe... mensagem de erro... o interessante que consigo ir pra qualquer lugar... menos para essa porta.... kkkk
  8. Encontrei uma solução quebra-galho apenas para recuperar o conteúdo da pasta zicada (caso alguém esteja com o mesmo problema!), mas, se alguém ainda puder me responder ou explicar por que isso acontece e como resolver de forma definitiva, eu agradeço! Depois de muitas tentativas de abrir esta pasta zicada, tentei uma abordagem diferente, tentei copiar, não deu certo, então tentei compactar a pasta zicada, isso deu certo. Depois descompactei em outro lugar e finalmente consegui acessar os arquivos que desejava na pasta descompactada. A pasta zicada ainda está lá, não a removi, pois ainda quero entender o que está acontecendo.
  9. Já tentei... nada de erros... vou postar duas imagens para visualizar o problema. A pasta que quero acessar é a "Nova Pasta".
  10. Estou tentando acessar uma das pastas do HD externo Samsumg 1T, e ocorre este erro: "Erro nos dados (verificação cíclica de redundância)"; Este erro ocorre apenas em uma das pastas do HD, fora isso, consigo usar normalmente o HD. Quando passo o anti-vírus, ele reconhece os arquivos dentro e mostra os arquivos sendo escaneados. Mas, não consigo abri-la ou copia-la para outro lugar. O curioso é que quando conectado a TV, consigo acessar normalmente a pasta e assistir aos filmes gravados nela.
  11. Funcionou! Obrigado! Para fazer o mesmo na horizontal ficaria como?
  12. Olá! Já tentei as duas opções. osvaldomp : Ocorre um erro quando tento usar esse comando. DJunqueira : Ele no fim acaba juntando tudo e redefinindo as quebras. Tentei até juntar as duas opções! Estou enviando o arquivo para se possível vocês possam dar uma olhada! Ps.: Visto que não estava conseguindo enviar o arquivo no formato original, renome-ei a extensão do arquivo (de .xlsm para .txt). MODELO.txt
  13. Boa tarde! Se alguém puder me ajudar com essa dúvida agradeço bastante! Não manjo muito de macros no Excel (2010), mas, estou praticando um pouco com o pouco que conheço e esbarrei em um probleminha... Em umas das minhas planilhas, há algumas listas, que vou populando conforme o evento. São 6 listas com no máximo 40 lugares cada, sendo que, conforme o evento que escolhi (já tenho uma macro pra isso), as listas (duas dessas seis, conforme o evento) deveria ficar configurada para serem impressas quando eu desejar faze-lo, isto é, deverão apenas ficar configuradas, não serão impressas no mesmo momento. Como definir a área de impressão eu consegui (ActiveSheet.PageSetup.PrintArea = "$A$1:$J$211"), mas, quando tento separar/definir as páginas (Set ActiveSheet.VPageBreaks(1).Location = Range("F1")), não funciona e dá um erro. Não sei se fui muito claro, se não fui peço seu apoio!! Obrigado!!

Sobre o Clube do Hardware

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

×
×
  • Criar novo...