Ir ao conteúdo
  • Cadastre-se

jotave087

Membros Plenos
  • Total de itens

    34
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

3

Sobre jotave087

  • Data de Nascimento 04/07/1993 (26 anos)

Informações gerais

  • Cidade e Estado
    Sete lagoas, Minas gerais
  1. 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
  2. já deixei em cima da cama, da mesa de madeira, nunca deu nada não, mas eu só coloco as peças, nunca pressionei contra a superfície. isso sim deve dar problema
  3. é windows 64 bits ?
  4. Comigo, eu já coloco a placa mãe com o processador, cooler e memoria ram já instalado.
  5. eu acho que esse é bem inferior aos outros em duvida. Coolermaster Haf 922 > Aerocool Strike X Advance > Aerocool Strike-x One. Mas cada um tem sua opinião ou gosto né .
  6. jotave087

    upgrade

    sim, a placa de video cabe perfeitamente.
  7. 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!
  8. provavelmente quem tem uma boa placa não arriscaria ter um gabinete desse! ele é muito pequeno. acho que cabe, mas mesmo que caiba provavelmente você terá problemas de temperatura.
  9. Por 200 até valeria a pena, mas 400 ? é um roubo. Ele é bem melhor que o outro que você postou primeiro, fonte em baixo, fans de 120 mm (3 Apenas)entre outros. Mas você está cometendo erro ao procurar um gabinete "bonito", a maioria é deficiente no resto dos aspectos. Melhor pegar um bom, bem acabado, eficiente e relativamente barato e colocar fans com leds entre outras para dar um visual bacana. Melhor que depois se arrepender por problemas em futuros upgrades ou temperatura. Essa é minha opinião não sei se voce concorda.
  10. pode fechar o tópico, consegui resetar a bios e pegou! obrigado NASCARBR
  11. estou tendo um problema, fui na bios, la ativei a opção de liberar os núcleos, ai salvei e liguei o pc novamente, mas depois disso ele nao liga, nao da nem um bip nem nada, nem a bios aparece. o que pode ter acontecido? cooler do processador e da placa de video liga normalmente, hd aparentemente tambem. acende tambem a luz de rede onboard da placa mãe. se apertar o botao desligar e reniciar nao acontece nada, o pc continua ligado caso precise saber minhas peças estão na minha assinatura
  12. concordo com o Fernandok34, esse gabinete não vale nem 100 reais. eu poderia te recomendar alguns gabinetes de no máximo 250 reais que são top, mas eles ao meu ver são simples comparado com o visual que você quer. Tem alguns usuários aqui que entende bem mais e tem até alguns tópicos de casemod e tenho quase certeza que vão te dar sugestões.
  13. acabei fazendo isso e olha a diferença. haahahha Antes: Depois:
  14. 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
  15. 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

Sobre o Clube do Hardware

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

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!