renanem

Bom dia a todos do fórum! Estou com um problema (e não é a primeira vez), talvez alguém com mais conhecimento poderia me auxiliar neste caso? Pois conheço o básico do VBA. Criei um código que ele faz o cálculo pela cor da célula do Excel ' 'MÁXIMO DE PERDA SOMENTE NA AGUA QUENTE - ABA AF-PRUM. (RENAN 20/05/2022) ' Public Function MAXAGUAQUENTE(Referência As Range, Matriz As Range, Fonte As Boolean) Application.Volatile Dim rCell As Range Dim rCor As Long Dim rResult As Variant If Fonte = False Then rCor = Referência.Interior.ColorIndex For Each rCell In Matriz If rCell.Interior.ColorIndex = rCor Then rResult = WorksheetFunction.Max(rCell, rResult) End If Next rCell Else rCor = Referência.Font.ColorIndex For Each rCell In Matriz If rCell.Font.ColorIndex = rCor Then rResult = WorksheetFunction.Max(rCell, rResult) End If Next rCell End If MAXAGUAQUENTE = rResult End Function Está ok, porém ele só calcula na minha célula, quando eu forço ela recalcular (tenho que entrar na célula e dar Enter ou clilcar o F9) Sabem me informar como corrigir isso? Seria algo no código que deve estar previsto? Pois conforme insiro dados na linha ela deveria recalcular automáticamente. Desde já, obrigado.

Boa tarde a todos do fórum! Venho tirar uma dúvida de VBA com vocês. É um trivial de copiar valores de um arquivo e colar em outro, porém tem um detalhe que está me travando, e vejo muitas dicas boas que tem ajudado a solucionar problemas aqui no fórum. Tenho um Excel com a aba Orig Tenho meu Excel destino já com a aba Dest o ultimo valor da Orig coluna B vai na primeira linha disponível da Dest coluna B, e escreva "Quantidade A" na célula da coluna A o ultimo valor da Orig coluna C vai na primeira linha disponível da Dest coluna B também, e escreva "Quantidade B" na célula da coluna A o ultimo valor da Orig coluna D vai na primeira linha disponível da Dest coluna B também, e escreva "Quantidade C" na célula da coluna A assim por diante, usando da coluna B até a coluna G da Orig. Caso o valor seja 0 (0,000 no caso da Orig), não deva colar este valor ou deva apagar apó s o código. Tenho já descrito o código que abre a janela, pede o Excel Orig para ser importado, ele copia os dados da aba Orig, porém cola tudo na Dest sem ser na ordem que desejava. Sub CopyQuant() Application.ScreenUpdating = False Dim flder As FileDialog Dim FileName As String Dim FileChosen As Integer Dim wkbSource As Workbook Dim wkbDest As Workbook Set wkbDest = ThisWorkbook Dim LastRowIndex As Integer Dim RowIndex As Integer Dim UsedRng As Range Dim npav As String Dim rangM As Range OpenFile: Set flder = Application.FileDialog(msoFileDialogFilePicker) flder.Title = "Arquivo" flder.InitialFileName = "c:\" flder.InitialView = msoFileDialogViewSmallIcons flder.Filters.Clear flder.Filters.Add "Excel Files", "*.xls*" MsgBox ("Selecione o arquivo") FileChosen = flder.Show FileName = flder.SelectedItems(1) Set wkbSource = Workbooks.Open(FileName) '''''''''''''''''''''''''''''''''''''''''''''''' 'DADOS PARA Dest wkbSource.Sheets("Orig").UsedRange.Copy ultimalinha = wkbDest.Sheets("Dest").Cells(Rows.Count, 1).End(xlUp).Row wkbDest.Sheets("Dest").Cells(wkbDest.Sheets("Dest").Rows.Count, "A").End(xlUp).Offset(ultimalinha + 1, 0).PasteSpecial xlPasteValues Alguém sabe como posso dar um passo a mais neste caso? Obrigado.