Formactory Windows Informa

disponha!

pois é man deixa ele quieto para o técnico averiguar melhor a situação dele e me retorna o feedback dele por favor!

dá uma limpada nele por dentro efetua a troca da pasta térmica antes de formatar...Tem algumas assistências que marca o horário pra ir na sua casa,lembre-se de procurar uma assistência de confiança e profissionalismo pra voce senão poderá piorar mais ainda a situação,se possível evite de estar ligando toda hora e desligando para não ter o risco de queimar o processador,pois o mesmo poderá estar com defeito,pois ele que faz a geração de tudo,praticamente o coração do computador!

ja fez a limpeza na cpu?trocou a pasta térmica como te falei?

fonte muito baixa pra aguentar muitas coisas man kkk melhor colocar uma com maior potencia kkk!

ah ótimo rsrs provavelmente não será a fonte amigo!certeza que vai ser a pasta termica ou processador!

só me fala mais uma coisa...ele chega a si desligar sozinho em tempos variados?

pasta térmica dependendo onde voce mora recomenda-se que efetue a troca de ano em ano!teste seu computador com outro processador i7 pra ver se ainda continua os travamentos!caso continuar com os travamentos mesmo trocando a pasta termica e o processador pode ser a fonte mesmo!

vi alguns comentários relacionados ao seu post e só fala mais no SO (sistema),mas tem quanto tempo que não faz uma limpeza ou efetua a troca da pasta térmica?já que voce colocou vários programas de detecção de possíveis problemas tais como ssd ou hdd e temperaturas...fez chckdisk e não resolveu seu problema!mas também não descarto a hipótese que falaram ai relacionado a fonte amigo!

na planilha está ok , mas esse código que voce me mandou ele volta em branco!

olá,na hora que eu cadastro o cliente ela já cadastra também a data e a hora na planilha e quando eu vou pesquisar ele só me traz a data certa e a hora fica como números decimais no textbox como poderei resolver isso?

mano eu estou fazendo isso de cadastrar e buscar a hora também mais ele vem com números decimais ao invés da hora certa que está cadastrada,como faço pra resolver?!

obrigado por tudo recolei o código e adicionei o lstclientes.clear em baixo do if está a funcionar como eu quero,agora falta fazer só o botão imprimir igual a de excluir se puder continuando a me ajudar eu agradeço!

@Midori "eu já tentei pelo lstclientes.clear,apaga todos os clientes". só que eu não quero que ele apague todos os clientes eu só quero que apague aquele cliente que foi apagado na planilha,ou seja da um reset e começar de novo os códigos mais ou menos isso rs!

@Midori " tá duplicando os clientes no lstclientes e vai ficar muito bagunçado pra mim!"=resolvido,agora falta só excluir o item que ficou no listbox ou lstclientes!

erro em tempo de execução! 1004 erro de definição de aplicativo ou de definição de objeto.

tá ai minha planilha esses clientes são meras ilustrações! cadastroclientes 2.0 com visual basic.rar

mais eu não quero que ele vá buscar quando eu clicar eu quero apagar determinado cliente da planilha "sheets",que apague também no listbox "lstclientes"

olá,não consigo por , ele pede para depurar se puder me dar uma dica ou especificar um pouco do código eu agradeço!

Olá pessoal! gostaria da ajuda de vocês em uma planilha de cadastro de clientes usando userforms e programação...A minha planilha ela já me traz os resultados automaticamente só clicar no nome da pessoa e o Excel trará todas devidas informações e dessas informações gostaria de adicionar um botão para exclui-la a que eu estiver selecionada no lst_clientes somente e não apagar todos! meu código do lst_clientes: Private Sub lstclientes_Change() Dim Lin As Integer Lin = 2 Do Until Sheets("Plan1").Cells(Lin, 1).Value = Empty If Sheets("Plan1").Cells(Lin, 1).Value = lstclientes.Value Then txtnome.Value = Sheets("Plan1").Cells(Lin, 1).Value txtcpf.Value = Sheets("Plan1").Cells(Lin, 2).Value txttelefone.Value = Sheets("Plan1").Cells(Lin, 3).Value txtrua.Value = Sheets("Plan1").Cells(Lin, 4).Value txtcidade.Value = Sheets("Plan1").Cells(Lin, 5).Value txtestado.Value = Sheets("Plan1").Cells(Lin, 6).Value txtdata1.Value = Sheets("Plan1").Cells(Lin, 7).Value txtservico.Value = Sheets("Plan1").Cells(Lin, 9).Value txtmodelo.Value = Sheets("Plan1").Cells(Lin, 10).Value txtvalor.Value = Sheets("Plan1").Cells(Lin, 11).Value txtdata2.Value = Sheets("Plan1").Cells(Lin, 12).Value txtstatus1.Value = Sheets("Plan1").Cells(Lin, 14).Value txtnome.Enabled = False txtcpf.Enabled = False txtdata1.Enabled = False txtdata2.Enabled = False txtstatus1.Enabled = False txtmodelo.Enabled = False Exit Do Exit Do End If Lin = Lin + 1 Loop End Sub