Fabiooo

Pois é, a tela azul era mesmo mal contato. Apertei a placa de vídeo e a memória ram e ligou perfeitamente. Só que o barulho voltou, mas dessa vez eu vi de onde vem. Ele vem do cooler da placa de vídeo. Nesse período de teste eu só havia conectado os cabos de força, mouse, teclado e monitor. Quando eu conectei o cabo de rede o computador não reconheceu, apareceu a mensagem de que "um cabo de rede esta desconectado". Conectei o mesmo cabo no notebook e consegui conectar à internet, logo, o problema não é o cabo de rede. Agora, não sei o que fazer... como faço pra testar se a placa de rede tá estragada? Ou seria só um problema nos drivers? E quanto ao cooler da placa de vídeo, compensa trocar o cooler ou seria melhor trocar a placa toda? Desde já, agradeço.

Pois é, liguei o PC outro dia pra tentar pegar um arquivo pelo modo de segurança e o monitor nem vídeo apresentou. No dia seguinte, liguei novamente e ele iniciou normalmente (porém o barulho tinha voltado), o que aumenta a probabilidade de ser um mal contato. A resolução tava toda errada, letras e icones gigantes. Apresentou um erro ao iniciar, algo relacionado a TWCU.exe, cliquei em OK. Voltei a resolução para o normal e, depois de um tempo de uso, o barulho subitamente parou, como se o cooler tivesse parado ou mesmo queimado. Abri o computador e olhei os coolers do processador e fonte, estavam funcionando perfeitamente, mas o cooler da placa de vídeo não deu para conferir, a placa de TV tá na frente. O próximo passo vai ser comprar um HD externo e fazer o backup do computador, depois tiro a placa de TV e vejo o cooler da placa de vídeo e, claro, recolocar as placas para tentar resolver o mal contato.

Levei o pc no técnico. O computador desgraçado não fez nenhum barulho na hora! Mas ao desligar apareceu algo pra finalizar tarefa, nem dei bola na hora... Chegando em casa o computador, ao carregar o windows, reiniciava sozinho, após dar uma tela azul rapidamente antes. O erro apontado na tela azul é o "STOP: 0x0000007E (um bocado de parâmetros)". Pesquisei no google sobre esse erro e houveram várias respostas. Uns diziam que era problema no HD, outros que era memória. Teve um que ao utilizar o CHKDSK resolveria, porém não resolveu... O barulho parou, mas agora não consigo nem usar o pc... :angry: O que devo fazer?

Meu velho pc (montado em 2007) de uns anos pra cá foi aumentando o barulho. Achei normal, pois os outros computadores que tive também aumentavam o barulho do cooler conforme ficavam velhos e empoeirados. Porém do dia para a noite o barulho aumentou e ficou esquisito , como se a hélice do cooler estivesse pegando em algo. Abri o computador, limpei por dentro e liguei novamente. O barulho persistia e não havia nada tocando a hélice do cooler. Aqui vão os dados do meu pc: Processador Intel Core 2 duo E6750 2.66GHZ Placa Mãe Asus PSLD2-SE Cooler Delta d60188-001 DTC-AAL03 (veio com o processador) Windows XP A placa de vídeo (GEFORCE 7200) e a memória(DDR2 2048MB) já haviam queimado a um ano atrás e eu troquei por novos (GEFORCE 9400 e a mesma memória). O computador estava meio lento para iniciar e a luz do drive de disquete de uns tempos para cá (desde o começo deste ano, creio eu) estava acendendo ao iniciar o computador (o boot tava em 1-HD, 2-DVD, 3-disquete). Eu praticamente só podia usar o computador direito após o antivírus atualizar, o que acontecia logo após a luz do disquete ascender. Onde vocês acham que é o problema; seria mesmo no cooler? Qual razão para o estranho barulho que vem dele? O aumento do barulho é normal em computadores antigos?

Andei pesquisando na internet como colocar os itens do combobox em ordem alfabética. Todos os sites diziam para setar a propriedade SORTED para enabled. Porém não tem essa opção nas propriedades dos comboboxes que eu inseri na minha planilha do excel. Estou utilizando o VBA do Excel 2007, versão 6.3. Como faço para resolver meu problema?

Estou com um problema semelhante. Porém meu arquivo contém macros e não posso salvá-lo dessa forma. Como faço pra salvar com macro?

Com o seu método, apareceu erro na linha: Selection.Enabled = False O erro encontrado foi o de tempo de execução '438' e diz que o objeto ou método não aceita esta propriedade. Me certifiquei de desbloquear todas as planilhas antes de tentar modificar a propriedade dos comboboxes com o comando ws.Unprotect "SENHA" imediatamente antes da rotina que seleciona os comboboxes e altera suas propriedades. É importante desabilitar os botões das planilhas para que o usuário envie o e-mail, confiante de que o receptor não consiga alterar os dados repassados.

Sim, os comboboxes estão diretamente na planilha. Tentei as duas formas de resolver o problema que você me sugeriu, porém em nenhuma delas eu obtive êxito. É muito estranho, pois eu já havia utilizado esse comando num outro botão na mesma planilha e da mesma forma, a subrotina deste botão está diretamente acima da rotina que apresentou erro. Vou colá-la aqui para melhor visualização. Private Sub BotaoSalvar_Click() Dim ws As Worksheet Dim ExistePlan As Boolean 'If me.name ExistePlan = False For Each ws In ThisWorkbook.Worksheets If ws.name = "Revitalização " & Identificacao Then ExistePlan = True End If Next ws If ExistePlan = False Then Sheets("Lista de Revitalizações").Select Sheets("Lista de Revitalizações").Copy After:=Sheets(Rev) Sheets("Lista de Revitalizações (2)").Select Sheets("Lista de Revitalizações (2)").name = "Revitalização " & Identificacao With Sheets("Revitalização " & Identificacao) .ComboBox1.Enabled = False .ComboBox2.Enabled = False .BotaoSalvar.Enabled = False End With Controle_atualizacao ("Revitalização " & Identificacao) Rev = Rev + 1 Else Call MsgBox("Ocorreu um erro, verifique se a planilha já existe", vbCritical) End If Call LimparPlanilha End Sub Este botão salvar copia a planilha para uma nova e desabilita certos botões de controle, além de limpar a planilha base para o usuário poder inserir uma nova revitalização. A rotina Controle_atualizacao simplesmente preenche as comboboxes da planilha com o comando .additem. A rotina LimpaPlanilha reseta a planilha inicial para prepará-la para uma nova revitalização. Rev é uma variável pública. Não consigo ver diferença nos dois botões que justifique o erro só em um deles. O botão EnviaEmail dá erro, enquanto que o botão BotaoSalvar não gera erro algum. Poderiam me ajudar a identificar qual a causa do erro? o que eu fiz na rotina de um botão para funcionar que eu não fiz no outro?

Eu coloquei um botão na minha planilha que ao ser clicado, ele desabilita todos os controles da planilha e envia por e-mail para uma certa pessoa. Porém ao clicar no botão, o vba apresenta o seguinte erro: "Erro de compilação: Método ou membro de dados não encontrado". Esse erro aparece na linha .ComboBox1.Enabled = False do meu código. Não entendo o porquê deste erro. Eu já havia utilizado esse mesmo comando para copiar as planilhas e desabilitar alguns botôes das mesmas nesse mesmo programa e não apresentaram erro algum. abaixo segue o código da rotina que apresentou erro: Private Sub EnviaEmail_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.name <> "Lista de Revitalizações" Then If ws.name <> "Plan1" Then With ws .ComboBox1.Enabled = False .ComboBox2.Enabled = False .ComboBox3.Enabled = False .ComboBox4.Enabled = False .ComboBox5.Enabled = False .ComboBox6.Enabled = False '.BotaoSalvar.Enabled = False .TextBox1.Enabled = False End With End If End If Next ws ActiveSheet.Protect Password:="XXXXX", DrawingObjects:=True, Contents:=True, Scenarios:=True ThisWorkbook.SaveAs Dim olApp As Outlook.Application Dim olMailMessage As Outlook.MailItem Dim olRecipient As Outlook.Recipient Dim blnKnownRecipient As Boolean Dim blnNewOutlookApp As Boolean blnNewOutlookApp = False Const ERR_APP_NOTRUNNING As Long = 429 On Error Resume Next Set olApp = GetObject(, "Outlook.Application") If Err = ERR_APP_NOTRUNNING Then Set olApp = New Outlook.Application blnNewOutlookApp = True End If Set olMailMessage = olApp.CreateItem(olMailItem) With olMailMessage .To = "Fabio Ferreira Gomes Dias" .CC = "" Set olRecipient = .Recipients.Add(ActiveProject.Resources(aAssign.ResourceText6).EMailAddress) blnKnownRecipient = olRecipient.Resolve .Subject = "Teste" .HTMLBody = "Teste" .Attachments.Add ThisWorkbook.FullName Set olMailMessage = Nothing 'Application.DisplayAlerts = False .Send End With If blnNewOutlookApp = True Then Set olApp = Nothing End If End Sub Desde já agradeço mais essa ajuda.

Foi exatamente o que fiz mais tarde, porém ainda ficaria facilmente acessado caso o usuário clique em Reexibir. Fora isso, eu ainda gostaria de salvar os valores que eu adicionei ao combobox, ou seja, uma vez que eu tenha adicionado com o .AddItem não ter q refazer isso qu8ando eu acessar a planilha novamente. Isso é possível?

Olá, estou tendo mais um problema com meu código. Dessa vez é com os combobox. No meu programa, eu importo certos dados do MS Project e utilizo para criar uma variável de 3 dimensões numa planilha do Excel. A primeira dimensão do array armazenam valores que são adicionados a uma combobox. De acordo com a seleção que o usuário marca no combobox, aparece outro combobox com outros dados provenientes do array. Quando eu rodo o programa pelo project pela primeira vez, ele funciona perfeitamente. Porém, quando eu mando salvar e tento abrir o arquivo do excel, o primeiro combobox apresenta seu value como o último valor que eu coloquei antes de fechar a planilha, só que os outros itens do combobox sumiram. O array que armazenava os dados também estava vazio. Existe alguma forma de manter o valor do array salvo para que quando eu abra a planilha eu ainda ter os dados de quando eu acessei pela última vez? E como faço para ao salvar o arquivo, salvar a lista contida nos combobox? Essa foi a única alternativa que eu consegui pensar para resolver esse problema, aceito sugestões de outras soluções possíveis. Grato pela ajuda de vocês.

Obrigado, exatamente o que eu queria. Eu até pesquisei num programa disponível nos Códigos Livres aqui do site, o FileInfo. Aquele código era muito complicado! nunca imaginei que seria tão simples.

Contornei o erro. Pesquisei no workbook se a planilha copiada já existia e gerei um msgbox avisando sobre o erro caso já houvesse planilha com mesmo nome. Porém gostaria de saber se existe meio de guardar o valor das variáveis quando ocorre um erro. Isso me ajudaria muito na tratativa de erros do meu programa.

Estou com uma planilha de excel que ao realizar um procedimento, ele cria uma cópia da planilha renomeando-a conforme certos critérios. Porém, existe a possibilidade de o usuário executar o mesmo procedimento, tentando assim, criar novamente uma cópia com o mesmo nome, o que gera um erro. Na tratativa do erro eu deleto a nova planilha e aviso numa msgbox que já existe uma planilha sobre aquele assunto, porém ao ocorrer o erro, todas minhas variáveis públicas são zeradas, fazendo meu código falhar para o restante da planilha. Apenas redefinir as vairáveis não funcionaria, pois os dados contidos na variável vem do outro aplicativo do office, que, para os usuários do arquivo do excel, nem sempre estaria disponível. Agradeço desde já a ajuda.

Minha planilha de excel será enviada como anexo em um e-mail. Quando o destinatário do e-mail recebe a planilha, ele faz as devidas alterações e deveria encaminhá-la de volta. Porém o ideal seria que na planilha existisse um botão que enviasse o e-mail automaticamente, sem passar pelo outlook. Para tanto, preciso descobrir um jeito de achar onde o arquivo foi salvo no computador do destinatário utilizando o VBA. Como não se sabe o grau de instrução do receptor do e-mail, creio que perguntar para o usuário o endereço não seja tão eficiente. O endereço que o documento se encontra pode ser acessado nas Propriedades do arquivo, existe um meio de descobrir tal endereço utilizando VBA?

Senhores, Criei um procedimento que esconde as barras de rolagem do excel com os seguintes comandos: ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False Porém, o scroll do mouse ainda permite o deslocamento vertical na planilha. o que não é de meu interesse. Como posso bloquear o scroll do mouse também?

Obrigado, funcionou!

Problema resolvido. Só mudar a fonte de Calibri para Arial que a distorção sumiu.

Bom dia. Estou tendo um problema que não consigo encontrar solução. Meu código de VBA insere alguns valores em células na planilha do excel. Porém para mim é conveniente que a planilha seja protegida contra edições do usuário. Ao proteger a planilha, meu código apresenta erro ao tentar inserir valores na célula. O comando que uso para editar as células é Range("célula").FormulaR1C1 = "coisa a ser escrita". Tentei desbloquear a planilha para editar a célula e logo em seguida bloqueá-la novamente, mas ao fazer isso não consigo inserir uma senha, possibilitando que qualquer pessoa possa liberar a planilha com um simples clique. Como faço para que meu código consiga inserir valores em células de uma planilha bloqueada??? Serei muito grato pela ajuda.

Bom dia a todos. Estou tendo um problema no meu programa de VBA do excel. Ao selecionar um valor do meu combobox, as letras que aparecem na caixa do controle ficam distorcidas assim que ela perde o foco(seleção). As letras se encontram distorcidas quando se tira o foco ao se clicar em algum outro lugar da planilha. Essa deformação na letra dos itens mostrados no combobox é normal? Como posso tirar essa distorção?

Funcionou! E botando False no visible fica ainda melhor. Obrigado!

Meu código não apresenta problema, já que é só uma rotina para pegar os dados do project e armazenar em uma variável de três dimensões. Mas se ajuda, vou postar: Sub PesquisaSE() Dim tTask As Task Dim tSub As Task Dim Revitalizacoes() As String Dim MatCopia() As String Dim SE As Integer Dim x As Boolean ReDim Revitalizacoes(1 To 1, 1 To 2, 1 To 10) For Each tTask In ActiveProject.Tasks If tTask.OutlineLevel = 1 Then Do Until x = True For a = 1 To UBound(Revitalizacoes, 1) If tTask.Text1 = Revitalizacoes(a, 1, 1) Then SE = a x = True Exit Do End If Next a ''''''''''ROTINA que redimensiona as LINHAS da MATRIZ REVITALIZACOES''''''''''''''''''''''''''''' ReDim MatCopia(1 To UBound(Revitalizacoes, 1), 1 To UBound(Revitalizacoes, 2), 1 To UBound(Revitalizacoes, 3)) For a = 1 To UBound(Revitalizacoes, 1) 'copia de revitalizacoes para MatCopia For aa = 1 To UBound(Revitalizacoes, 2) For aaa = 1 To UBound(Revitalizacoes, 3) MatCopia(a, aa, aaa) = Revitalizacoes(a, aa, aaa) Next aaa Next aa Next a ReDim Revitalizacoes(1 To UBound(Revitalizacoes, 1) + 1, 1 To UBound(Revitalizacoes, 2), 1 To UBound(Revitalizacoes, 3)) For a = 1 To UBound(MatCopia, 1) For aa = 1 To UBound(MatCopia, 2) For aaa = 1 To UBound(MatCopia, 3) Revitalizacoes(a, aa, aaa) = MatCopia(a, aa, aaa) Next aaa Next aa Next a Revitalizacoes(UBound(Revitalizacoes, 1), 1, 1) = tTask.Text1 x = True SE = UBound(Revitalizacoes, 1) Loop x = False For k = 1 To UBound(Revitalizacoes, 2) If Revitalizacoes(SE, k, 1) = "" Then Revitalizacoes(SE, k, 1) = tTask.Name DE = k If k = UBound(Revitalizacoes, 2) Then ''''''''''ROTINA que redimensiona as COLUNAS da MATRIZ REVITALIZACOES''''''''''''''''''''''''''''' ReDim MatCopia(1 To UBound(Revitalizacoes, 1), 1 To UBound(Revitalizacoes, 2), 1 To UBound(Revitalizacoes, 3)) For a = 1 To UBound(Revitalizacoes, 1) For aa = 1 To UBound(Revitalizacoes, 2) For aaa = 1 To UBound(Revitalizacoes, 3) MatCopia(a, aa, aaa) = Revitalizacoes(a, aa, aaa) Next aaa Next aa Next a ReDim Revitalizacoes(1 To UBound(Revitalizacoes, 1), 1 To UBound(Revitalizacoes, 2) + 1, 1 To UBound(Revitalizacoes, 3)) For a = 1 To UBound(MatCopia, 1) For aa = 1 To UBound(MatCopia, 2) For aaa = 1 To UBound(MatCopia, 3) Revitalizacoes(a, aa, aaa) = MatCopia(a, aa, aaa) Next aaa Next aa Next a End If Exit For End If Next k End If For Each tSub In ActiveProject.Tasks tarefa = tSub.Text6 \ 10 If tTask.Text6 = tarefa And tSub.OutlineLevel > 1 Then Select Case tSub.Name Case "Aquisição de Material" Revitalizacoes(SE, DE, 2) = tSub.Start Revitalizacoes(SE, DE, 3) = tSub.Finish Case "Montagem" Revitalizacoes(SE, DE, 4) = tSub.Start Revitalizacoes(SE, DE, 5) = tSub.Finish Case "Comissionamento" Revitalizacoes(SE, DE, 6) = tSub.Start Revitalizacoes(SE, DE, 7) = tSub.Finish Case "Obras Civis" Revitalizacoes(SE, DE, 8) = tSub.Start Revitalizacoes(SE, DE, 9) = tSub.Finish End Select End If Next tSub Next tTask 'Debug.Print "SE: " & Revitalizacoes(2, 1, 1) 'Códigos que usei para testar se a matriz estava coerente. 'Debug.Print "Descrição: " & Revitalizacoes(2, 2, 1) 'Debug.Print "Aquisição de Material: " & Revitalizacoes(2, 2, 2) & "----" & Revitalizacoes(2, 2, 3) End Sub A seguinte linha foi adicionada ao código após eu ler sua resposta, imediatamente antes de "End Sub": Application.Run "'Anexo.xlsm'!mod1.Testando", Revitalizacoes, SE Anexo é o arquivo do excel, mod1 é o nome do módulo e Testando é o nome da macro do excel. Agora segue o código da macro testando do excel: Public Sub Testando(ByVal Revitalizacoes, ByVal SE) MsgBox ("Aquisição de Material: " & Revitalizacoes(2, 2, 2) & "----" & Revitalizacoes(2, 2, 3)) End Sub Quando rodo o código do project, não há erro algum e a matriz é gerada perfeitamente, porém a linha q eu adicionei não está chamando a macro Testando. É como se eu não tivesse colocado aquela linha.

O application.run também é um método do project, porém meu código não rodou. Ao colocar esse método no vba e mandar rodar, não apresentou erro, porém o código da macro do excel não foi executado (coloquei uma msgbox para testar e ela não apareceu, nem mesmo uma célula do excel que eu havia mandado inserir um valor havia sido escrito). Quais alternativas eu tenho para que meu programa funcione?

Vou testar agora o código, obrigado!

Olá, Estou tendo problemas com meu código de VBA. Eu tenho uma variável, uma matriz string de 3 dimensões, que eu gero no Microsoft Project e quero compartilhá-la com o Excel. Ou seja, eu crio a variável no VBA do Project com os dados dos cronogramas e quero acessá-la no VBA do Excel. Como eu faço isso? Sou meio leigo na linguagem do VBA, se possível poderiam me dar uma força? Grato.