Gibuja

Pessoa, boa noite.

Estou querendo comprar um notebook novo e aposentar meu Vostro 3550.

Usarei para programas pesados, p. ex. programas GIS e CAD.

É um bom notebook? Vejam a configuração dele: http://www.dell.com/br/p/inspiron-15-5557-laptop/pd?oc=cai5557w10he1712605_3dbrp006w&model_id=inspiron-15-5557-laptop

O preço está bom ou aguardo?

Obrigado!

Eu creio que seja isso também, pois ja abri limpei e troquei a pasta, mas ate agora nada.

De repente se eu trocar o cooler e o dissipador, o que acha?

Pessoal, tempos atrás eu derrubei água no meu VOSTRO. Passada a decepção, eu sequei tudo corretamente e o bicho ligou que uma maravilha.

Só que agora ele parece meio travadão, tá bem lerdo. Eu vou escrevendo e demora para aparecer na tela, fora que o cooler agora só roda na velocidade máxima e o bichinho tá esquentando bastante.

Alguém já passou por algo semelhante ou tem ideia do que pode estar ocorrendo?

Bom dia.

 

Veja se entendi corretamente. Enviei anexado.

 

Abraços,

Felipe.

Olá, Felipe!!

Funcionou também. Eu já havia feito de outra forma: em vez de utilizar o INDIRETO, criei um SE  para cada ano com o custo correspondente. Porém, foi mais trabalhoso...

Obrigado e grande abraço!

Pessoal, boa tarde.

Estou realizando a análise econômica de um empreendimento florestal, onde os custos variam conforme a idade da floresta. Como há áreas com idades diferentes, e para evitar o retrabalho de alteração das formulas a cada ano, quero utilizar uma fórmula matricial que avalie as área que se enquadram em determinada idade e realize as operações matemáticas e retorne o valor consolidado.

No exemplo que envio, quero que na linha custos seja retornado o somatório da área multiplicada pelo custo de implantação para aquela idade da floresta (J1:K6 - as células da coluna K estão nomeadas) de todas as áreas que tenham menos de 5 anos de idade. Se eu removo a multiplicação, a fórmula funciona, me retornando o somatório do custo, porém não é o custo total, pois não multiplicou pela área.

Não sei se ficou claro e já me adianto na desculpa...

Obrigado!

Exemplo.xlsx

Pessoal, resolvi o problema da seguinte maneira: antes eu havia criado uma função dentro de um módulo. Entretanto, estava dando o problema de redundância, assim, na planilha mesmo criei duas rotinas, uma sendo a função mesmo e outra para chamar a função a cada alteração de uma célula específica.

O código ficou assim:

Sub AjustePeriodicidade()    Dim Status As Range    Dim LinhaAtual As Integer    Dim UltimoAjuste As String    Dim LinhaAcima As Integer    Dim DiferencaData As Double    Dim CalculoData As Double    Dim Contador As Double    Dim Ajuste As String    Dim NumeroLinhas As Integer               LinhaAtual = ActiveCell.Row    Set Status = Range("R" & LinhaAtual)    LinhaAcima = LinhaAtual - 1    DiferencaData = 720    Set Tabela = Range("A2:S" & LinhaAcima)    NumeroLinhas = Tabela.Rows.Count    TV = Range("L" & LinhaAtual)    TAG = Range("G" & LinhaAtual)    If TV = "Inicial" Then        If Status = "Aprovado" Then            Ajuste = "Manter"        Else            Ajuste = "Reduzir"        End If    Else        For Contador = 1 To NumeroLinhas            If Tabela.Cells(Contador, 7) = TAG Then                CalculoData = Tabela.Cells(LinhaAtual, 1) - Tabela.Cells(Contador, 1)                If CalculoData < DiferencaData Then                    UltimoAjuste = Tabela.Cells(Contador, 19)                End If            End If        Next Contador        If Status = "Aprovado" Then            If UltimoAjuste = "Extender" Then                Ajuste = "Extender"            ElseIf UltimoAjuste = "Manter" Then                Ajuste = "Extender"            ElseIf UltimoAjuste = "Reduzir" Then                Ajuste = "Periodicidade Inicial"            ElseIf UltimoAjuste = "Reduzir ao Máximo" Then                Ajuste = "Reduzir"            ElseIf UltimoAjuste = "Periodicidade Inicial" Then                Ajuste = "Extender"            End If        ElseIf Status = "Reprovado" Then            If UltimoAjuste = "Extender" Then                Ajuste = "Periodicidade Inicial"            ElseIf UltimoAjuste = "Manter" Then                Ajuste = "Reduzir"            ElseIf UltimoAjuste = "Reduzir" Then                Ajuste = "Reduzir ao Máximo"            ElseIf UltimoAjuste = "Reduzir ao Máximo" Then                Ajuste = "Troca de Instrumento"            ElseIf UltimoAjuste = "Periodicidade Inicial" Then                Ajuste = "Reduzir"            End If        End If    End If    Application.EnableEvents = False    Range("S" & LinhaAtual).Value = Ajuste    Application.EnableEvents = TrueEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)    Dim CelulaChave As Range    Dim LinhaAtual As Integer          LinhaAtual = ActiveCell.Row        'Celula que sofrerá a alteação    Set CelulaChave = Range("R" & LinhaAtual)        If Not Application.Intersect(CelulaChave, Range(CelulaChave.Address)) Is Nothing Then        ' Código a ser executado a cada alteração do STATUS        Call AjustePeriodicidade    End If    Application.EnableEvents = TrueEnd Sub

Pessoal, boa tarde.

Estou criando uma rotina do VBA que verifica os dados digitados (linha atual) e dos registros anteriores (linhas acima) e retorna uma cadeia de texto.

Entretanto, o excel está retornando que a célula que contém a fórmula criada no VBA é redundante e os valores ficam se alterando a cada nova linha incluída na tabela.

Alguém tem uma ideia do que pode estar ocorrendo?

Código criado:

Function ajuste(Tabela As Range, TAG As String, TV As String, Status As String) As String    Dim UltimoAjuste As String    Dim LinhaAtual As Double    Dim LinhaAcima As Double    Dim DiferencaData As Double    Dim CalculoData As Double    Dim Contador As Double        LinhaAtual = ActiveCell.Row    LinhaAcima = LinhaAtual - 1    DiferencaData = 720    If TV = "Inicial" Then        If Status = "Aprovado" Then            ajuste = "Manter"        Else            ajuste = "Reduzir"        End If    Else        For Contador = 1 To LinhaAcima        If Tabela.Cells(Contador, 7) = TAG Then            CalculoData = Tabela.Cells(LinhaAtual, 1) - Tabela.Cells(Contador, 1)            If CalculoData < DiferencaData Then               UltimoAjuste = Tabela.Cells(Contador, 19)            End If        End If        Next        If Status = "Aprovado" Then            If UltimoAjuste = "Extender" Then            ajuste = "Extender"            ElseIf UltimoAjuste = "Manter" Then            ajuste = "Extender"            ElseIf UltimoAjuste = "Reduzir" Then            ajuste = "Periodicidade Inicial"            ElseIf UltimoAjuste = "Reduzir ao Máximo" Then            ajuste = "Reduzir"            ElseIf UltimoAjuste = "Periodicidade Inicial" Then            ajuste = "Extender"            End If        ElseIf Status = "Reprovado" Then            If UltimoAjuste = "Extender" Then            ajuste = "Periodicidade Inicial"            ElseIf UltimoAjuste = "Manter" Then            ajuste = "Reduzir"            ElseIf UltimoAjuste = "Reduzir" Then            ajuste = "Reduzir ao Máximo"            ElseIf UltimoAjuste = "Reduzir ao Máximo" Then            ajuste = "Troca de Instrumento"            ElseIf UltimoAjuste = "Periodicidade Inicial" Then            ajuste = "Reduzir"            End If        End If    End IfEnd Function