jotave087

Estou com um problema, ao tentar fazer um filtro com data chegou no limite de linhas utilizadas. Tentei fazer um loop com o valor das colunas porém nao consegui. Alguma ideia de como fazer funcionar ? Sub Filtro() ListBox1.Clear Application.ScreenUpdating = False Application.EnableEvents = False pacientes.Select Plan = pacientes.Name Dim linhalistbox, Linha As Long linhalistbox = 0 Linha = 2 Dim Ultimalinha As Range Set Ultimalinha = pacientes.Range("B10000").End(xlUp) With Sheets(Plan) Do While Linha <= Ultimalinha.Row If UCase(Cells(Linha, 18)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 24)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 30)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 36)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 42)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 48)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 54)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 60)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 66)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 72)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 78)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 84)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 90)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 96)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 102)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 108)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 114)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 120)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 126)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 132)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 138)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 144)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 150)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 156)) Like UCase("*" & (TextBox1) & "*") Or _ UCase(Cells(Linha, 162)) Like UCase("*" & (TextBox1) & "*") Then With ListBox1 .AddItem .List(linhalistbox, 0) = pacientes.Cells(Linha, 2) linhalistbox = linhalistbox + 1 End With End If Linha = Linha + 1 Loop End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub Já existe um loop com as linhas, porém não consigo fazer um loop dentro de outro loop com as colunas. No caso eu teria que procurar a data em varias colunas (no caso da 18 ate 192, de 6 em 6) e depois ir para próxima linha. Código completo

concordo, tenho o mesmo gabinete e acho que você poderia melhorar mais a organização. apesar do meu ter menos cabos aqui um exemplo do meu para ver se te da alguma ideia!

valeu pelas respostas ai galera. bom saber que as temperaturas estão boa sobre as voltagens, so vou conferir certinho se eu arrumar emprestado, acho que num vale a pena comprar um so para testar isso

pois é, hehehe. em full, rodando prime 95 por 6 horas as temperaturas ficaram em Placa Mãe: 37ºc Processador: 55ºc Core 1: 56 Core 2: 56 Core 3: 56 Core 4: 56 HD: 24ºc Placa de Video jogando fifa em 1980x1080 45ºc Jogando bf3 em 1980x1080 ficou em 65ºc

isso que eu vou fazer, medir com multímetro. so que eu não sei o valor que cada um significa, tipo, o 3.3v so pode ficar no maximo 3.3v ? e o 5v e 12v a mesma coisa ? ou tem nada a ver ?

https://lh6.googleusercontent.com/-CrckN7ytabs/UCGweVdjjGI/AAAAAAAABjI/a0dMT0Kbxy4/s434/Sem%2520t%25C3%25ADtulo.png tem algo de errado nessas temperaturas e voltagens ? sei que pelos programas nunca é bom confiar mas nunca é de mais prevenir . ate hoje nunca tive problema de desligamento , travamentos nem nada. acho que postei no lugar errado, se for pode apagar que eu procuro melhor o topico certo.

Configuração: -MSI AM3 880GMA-E35 -AMD Phenom II X4 960T Black Edition -Memória Corsair 4GB 1333MHZ -Fonte Corsair ATX 500W CMPSU-500CXV2 -Thermaltake MS-I Black Qual placa de vídeo vocês me recomendam no valor máximo de 500 reais!