ronie.robson

Saudações. Algum dos senhores por acaso teve problemas com a placa de vídeo do Aspire F5 573 421B ? Pergunto porque segui o passo a passo do colega ai de cima e bem, instalei todos os drives, mas após instalar: Intel(R) HD Graphics 520, minha máquina começou a apresentar uma mensagem de erro, inclusive os jogos do windows 7 nem abriram, informando falta de drive compatível com 3dgraphics. Podem me ajudar?

Agradeço a atenção Patropi. Mas consegui arrumar o código aí acima. Ficou dessa forma Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("D4:R11000")) Is Nothing Then Exit Sub Dim W As Worksheet Dim UltCel As Range Dim Linha As Long Set W = Sheets("Resultado Oficial") W.Select Set UltCel = W.Range("D11000").End(xlUp) W.Range("D4").Select Do While ActiveCell.Row <= UltCel.Row Linha = ActiveCell.Row W.Range("D" & Linha & ":R" & Linha).Select W.Sort.SortFields.Clear W.Sort.SortFields.Add Key:=W.Range("D" & Linha & ":R" & Linha), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With W.Sort .SetRange W.Range("D" & Linha & ":R" & Linha) .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With ActiveCell.Offset(1, 0).Select Loop End Sub Funciona beleza.

Saudações a todos. Estou buscando uma Macro que: Organize em ordem crescente Os 15 números sorteados da Lotofácil, uma vez que a ordem dos sorteios das dezenas é aleatória. Gostaria que ela fosse executada automaticamente, quando um novo sorteio for adicionado à lista dos demais já ocorridos. No caso, em minha planilha os dados se encontram da célula B4 até a célula R4. Já assisti um vídeo no YouTube, mas não consegui fazer com que a macro funcione. Também encontrei "parte" de uma Macro similar aqui no fórum, mas como mencionei há apenas uma parte dela. Tenho esse código, mas ele ordena colunas. Gostaria se possível de modificá-lo para que faça com linhas e automaticamente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:R")) Is Nothing Then Dim W As Worksheet Dim UltCel As Range Dim Linha As Long Set W = Sheets("Resultado Oficial") W.Select Set UltCel = W.Range("D7500").End(xlUp) W.Range("D4").Select Do While ActiveCell.Row <= UltCel.Row ActiveCell.Offset(1, 0).Select Loop Linha = ActiveCell.Row W.Range("D" & Linha & ":R" & Linha).Select W.Sort.SortFields.Clear W.Sort.SortFields.Add Key:=W.Range("D" & Linha & ":R" & Linha), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With W.Sort .SetRange W.Range("D" & Linha & ":R" & Linha) .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With ActiveCell.Offset(1, 0).Select End If End Sub

Obrigado mesmo pela ajuda. Vou comprar ele aqui é trocar para ver se funciona.

Primeiro,Éduard, obrigado pelo interesse em responder e logicamente em ajudar. Pelo que vi no anúncio ai do ML, vou comprar o chip da BIOS e substituí-lo é isso? Se for nem arrisco, não tenho nenhum conhecimento de eletrônica e de repente posso danificar a placa permanentemente. Não sei para que fui inventar de fazer essa mer... de atualização. kkk Mas valeu mesmo. Só uma outra dúvida, será que remover a bateria da placa resolveria o problema? Tipo, do jeito antigo de fazer o reset?

Ola. Éduard Kovasc Quanto ao seu problema, foi resolvido? Tenho uma Sabertooth Z77 e estou com o mesmo problema, pior que nem fiz todos os procedimentos que você mencionou na atualização da BIOS. Por acaso, o pessoal da http://www.topsys.com.br/bios.asp te enviaram a BIOS correta, utilizou e funcionou?