Új hozzászólás Aktív témák

• #53408 Mutt senior tag modflow #53394

  Új Válasz 2024-10-11 23:03:57 #53408

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz modflow #53394 üzenetére

  Szia,

  Itt egy VBA kód amivel egy "Summary" elnevezésű lapra ki tudod íratni, hogy a munkafüzet lapjain milyen képletek találhatóak. Ha lefuttatod mindkét fájlon, akkor össze tudod hasonlítani a listákat.

  Sub ListCellswithFormulas()
    Dim ws As Worksheet
    Dim rngFormulas As Range
    Dim wsReport As Worksheet
    Dim a As Long, c As Long
    Dim out As Long
    
    Set wsReport = ThisWorkbook.Worksheets("Summary")
   
    out = 2
    
    With wsReport
        .Range("A1") = "Lap"
        .Range("B1") = "Cella"
        .Range("C1") = "Képlet"
    
        For Each ws In ThisWorkbook.Worksheets
            On Error Resume Next
            Set rngFormulas = ws.Cells.SpecialCells(xlCellTypeFormulas, 23)
            On Error GoTo 0
    
            If Not rngFormulas Is Nothing Then
                For a = 1 To rngFormulas.Areas.Count
                    For c = 1 To rngFormulas.Areas(a).Count
                        .Cells(out, "A") = ws.Name
                        .Cells(out, "B") = rngFormulas.Areas(a).Item(c).Address
                        .Cells(out, "C") = "'" & rngFormulas.Areas(a).Item(c).Formula2
                        out = out + 1
                    Next c
                Next a
                
                Set rngFormulas = Nothing
            End If
        Next ws
    End With
End Sub

  üdv

Új hozzászólás Aktív témák