herhangi bir hücreyi formülde kullanan hücreler

[modoste]

merhaba sayın hocalarım
karşıma çıkan bir durumu foruma sormak istedim
çalışma dosyam 25-30 sekmeden ibaret
Bilgiler sekmesinde mesela A1 hücresinde yazan tarihi, yada sayıyı

diğer sekmelerden bazıları formüllerde kullanıyo başvuru yapıyo yani
nasıl bir çözümleme ile

dosyama yeni bir sekme açsam FRML desem (formül)
A1 hücresine Bilgiler
A2 hücresine A1
yazdığımda diğer sekmelerde varsa formülde kullanan sıralasa

 

[Ömer]

Merhaba,

Mümkünse küçük bir örnek dosya ile soruyu açar mısınız.

 

[modoste]

umarım ekli tablom açıklayıcı olmuştur.
karşılaştığım durum şu mesela herhangi sekmede bir değişken var ve diğer sekmelerin bazılarında bu veri formüllerde kullanılıyo.
ben çabucak ulaşmak istiyorum o hücrelere

 

[mesisyazilim]

kendi fonksiyonunu yazarak yapabilirsin.

Public Function AdresDegeri(ByVal hucre As Range) As String
    AdresDegeri = Range(hucre)
End Function

 

[Ömer]

C2 deki aranan sekme şartı sayfa adı mı, sütun adı mı, yada ne şartı anlayamadım. Çünkü verilen manuel çözüme 2 şıkta uymuyor.

 

[Necdet]

C2 deki aranan sekme şartı sayfa adı mı, sütun adı mı, yada ne şartı anlayamadım. Çünkü verilen manuel çözüme 2 şıkta uymuyor.

Bence fazladan ama gereksiz bir bilgi gibi geldi bana.

 

[modoste]

C2 de aranan sekme şartı evet sayfa adı demek

A sayfasının A2 hücresindeki sayıyı, veriyi vs

hangi sayfaların hangi hücreleri formülde kullanıyo olarak listelemek istedim

 

[Ömer]

Bu şekilde deneyin.

Sub Formul_Analiz()
 
    Dim i As Integer, c As Range, sat As Long, s As String
    Dim alan As Range, a As Integer, aranan As String
 
    Sheets("FRML").Select
    Range("C6:D65500").ClearContents
    sat = 6
    For i = 1 To Worksheets.Count
        aranan = [C2] & "!" & [C3]
        With Sheets(i)
            If .Name <> "FRML" Then
                a = 0
                On Error Resume Next
                Set alan = .Cells.SpecialCells(xlCellTypeFormulas, 23)
                a = alan.Count
                If a > 0 Then
                    For Each c In alan
                       s = Replace(Replace(c.FormulaLocal, "$", ""), "'", "")
                       If .Name = [C2] Then aranan = [C3]
                       If InStr(s, aranan) > 0 Then
                           Cells(sat, "C") = .Name
                           Cells(sat, "D") = c.Address(0, 0)
                           sat = sat + 1
                       End If
                    Next c
                End If
            End If
        End With
    Next i
End Sub

.