Ana Carolina Teixeira

Obrigada, Marcio, é exatamente isso. Obrigada, Edson, pela ajuda.

Oi, Márcio.

Preciso pegar os perfis da coluna A da planilha "Perfis lam. gerdau" e passá-los  um a um pela célula H5, para que ela efetue os cálculos, gerando resultados  do perfil (H5), seu peso (M13) e porcentagem (M5), preciso jogar esses valores na tabela das colunas T,U e V da planilha "calculo".

Com essa rotina que eu tentei fazer ele calcula apenas quando eu executo a macro, mas não atualiza a tabela das colunas T,U e V quando clico no botão, também não atualiza se eu modificar as informações de entrada. 

Olá, estou com um probema em fazer minha rotina VBA funcionar. Quero vincular minha rotina a um botão e que ao clicá-lo realize o seguinte: Insira as informações uma a uma de uma planilha em uma célula que fará os calculos  e gerará um resultado, quero pegar esse resultado  junto com a informação da outra tabela e colar em uma tabela a parte. Meu problema é que ao clicar neste botão aparentemente passa as informações pela célula mas não atualiza minha planilha, não sei o que está ocorrendo. Sei que é um pouco confuso, disponibilizo aqui a rotina. 

Private Sub CommandButton1_Click()

Dim linha As Integer

linha = 3
perfil = Sheets("Perfis lam. gerdau").Cells(4, 1).Value
peso = Sheets("Perfis lam. gerdau").Cells(4, 2).Value
volta:
linha = linha + 1

If Sheets("Perfis lam. gerdau").Cells(linha, 1).Value = "" Then GoTo sai

Sheets("calculo").Cells(5, 8).Value = Sheets("Perfis lam. gerdau").Cells(linha, 1).Value

    If Sheets("calculo").Cells(5, 13).Value <= 1 Then
        If Sheets("calculo").Cells(5, 13).Value < peso Then
        peso = Sheets("calculo").Cells(5, 13).Value
        perfil = Sheets("calculo").Cells(5, 8).Value
        Else
        End If
    Else
    End If
    
GoTo volta
sai:

Sheets("calculo").Cells(5, 8).Value = perfil

End Sub

Private Sub CommandButton2_Click()

Call otimizar

End Sub

Private Sub CommandButton3_Click()

End Sub
Sub otimizar()
Dim linha As Integer
Dim linha2 As Integer
linha2 = 5

Sheets("calculo").Range("R7:T1000").ClearContents
linha = 3
perfil = Sheets("Perfis lam. gerdau").Cells(4, 1).Value
peso = Sheets("Perfis lam. gerdau").Cells(4, 2).Value
volta:
linha = linha + 1

If Sheets("Perfis lam. gerdau").Cells(linha, 1).Value = "" Then GoTo sai

Sheets("calculo").Cells(5, 8).Value = Sheets("Perfis lam. gerdau").Cells(linha, 1).Value

    If Sheets("calculo").Cells(5, 11).Value <= 1 Then
    linha2 = linha2 + 1
        Sheets("calculo").Cells(5, 20).Value = "Perfil"
        Sheets("calculo").Cells(5, 21).Value = "Peso"
        Sheets("calculo").Cells(5, 22).Value = "%"
       Sheets("calculo").Cells(linha2, 20).Value = Sheets("calculo").Cells(5, 8).Value
       Sheets("calculo").Cells(linha2, 21).Value = Sheets("calculo").Cells(13, 13).Value
       Sheets("calculo").Cells(linha2, 22).Value = Sheets("calculo").Cells(5, 13).Value
        Else
    End If

    
GoTo volta
sai:

Range("R7:T8735").Select
    ActiveWorkbook.Worksheets("calculo").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("calculo").Sort.SortFields.Add Key:= _
        Range("S8:S160"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("calculo").Sort
        .SetRange Range("R7:T160")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("calculo").Cells(5, 8).Value = Sheets("calculo").Cells(6, 20).Value
End Sub
 

Projeto_tcc_macro_teste.xlsx

20 horas atrás, rodrigo.dcvieira disse:

clique nesse AVANCADO.. la vai ter o link q permite o acesso

  Funcionou! Obrigada, não pensei que seria tão fácil. 

@LuisOPsum

@tekinha  

 Obrigada! A data está correta. Vou seguir o conselho do colega acima e comunicar ao desenvolvedor.

Oi, gente. Como vai?

Eu estou com um problema e não consigo resolver só. Sempre entrei no meu modem através do endereço 192.168.1.1 para limitar um ou outro acesso ao meu wi-fi mas já faz 2 semanas que não consigo, toda vez que tento aparece uma mensagem de erro. Já tentei acessar o modem do meu celular e a mesma mensagem aparece, já tentei acessar do Edge e do Chrome e não consigo.

Liguei para a operadora e já fiz todos os procedimentos pedidos (apaguei histórico de navegação, cookies, reiniciei o modem, meu sinal foi reiniciado, resetei o modem ) e desistiram de mim.

Já passei antivirus, também não tenho nenhuma atualização pendente.

Conto com a ajuda de vocês! 

Segue em anexo o print no chrome e no edge.