Recupere valores a partir de fórmulas das Abas:
Sub FindFormulaSheets()Dim sh As WorksheetDim f As RangeDim sWorksheets("Total").Range("A2:B100").ClearContentsApplication.ScreenUpdating = FalseLet s = "=SUM(D2:D6)"For Each sh In ActiveWorkbook.WorksheetsIf sh.Name <> ("Total") ThenSet f = sh.Cells.Find(s, LookIn:=xlFormulas)If Not f Is Nothing ThenRange("A65536").End(xlUp).Offset(1, 0) = sh.NameWorksheets("Total").Range("A65536").End(xlUp).Offset(0, 1) = Format(f, "h:mm;@")Let Application.ScreenUpdating = TrueEnd IfEnd IfNext sh
Worksheets("Total").ActivateEnd Sub
Tags: Excel, VBA, Loop, Sheets, recupere, valor, fórmula, Aba, get, value, ,formula, sheet,
![Inline image 1](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-twYZhK-5GLWpg77AkiUOvFGTwlhKtHcXxlYWjgbXJpqu9eEdxDoY1JiDgPb2jNH1JAV4sBnGaOKGe-8SxSduCHmtJbf4D5SYxFXT2Lkmq3GkHRU1w64dVsgDTuQcsuq48dzGY-QzRwGQ/s1600/Signature_Andre_Luiz_Bernardes_003-720178.png)
Nenhum comentário:
Postar um comentário