sayfada formüllü hücreleri records sayfasına ayrıntılı kaydeder Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub ListNames()
On Error GoTo ErrHndlr
Application.ScreenUpdating = False
Set OutputRange = Selection
RetSheet = ActiveSheet.Name
NameCnt = ActiveWorkbook.Names.Count

For Each Sheet In ActiveWorkbook.Sheets
Sheet.Select
Set FnRange = Cells.SpecialCells(xlFormulas)
For i = 1 To NameCnt
With FnRange
    Set c = .Find(ActiveWorkbook.Names(i).Name, LookIn:=xlFormulas)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            OutputRange.Offset(n, 0).Value = ActiveWorkbook.Names(i).Name
            OutputRange.Offset(n, 1).Value = ActiveSheet.Name
            OutputRange.Offset(n, 2).Value = c.Address(False, False)
            OutputRange.Offset(n, 3).Value = "'" & c.Formula
            OutputRange.Offset(n, 4).Value = c.Value
            n = n + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address  firstAddress
    End If
End With
Next i
Next Sheet

Sheets(RetSheet).Select
Application.ScreenUpdating = True
Exit Sub

ErrHndlr:
    Set FnRange = Cells(1, 1)
    Resume Next
    
End Sub

Sub FindNakamedRangeReferences()

Dim NameArray() As String
Count = 0

Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
Sheets("Record").Delete

Worksheets(1).Select
Worksheets.Add.Name = "Record"

With Worksheets("Record")
.Range("a1").Value = "Worksheet Name"
.Range("b1").Value = "Cell Address"
.Range("c1").Value = "Formula"
.Range("d1").Value = "Value"
End With

NamedRangeCount = ActiveWorkbook.Names.Count
ReDim NameArray(NamedRangeCount)
For i = 1 To NamedRangeCount
NameArray(i) = ActiveWorkbook.Names.Item(i).Name
Next i

For j = 2 To ActiveWorkbook.Sheets.Count
On Error Resume Next
Worksheets(j).Activate
Range("a1").Select
Worksheets(j).Range("a1", Range("a1").SpecialCells(xlCellTypeLastCell)). _
SpecialCells(xlCellTypeFormulas).Select
For Each myCell In Selection

For i = 1 To NamedRangeCount
If (InStr(myCell.Formula, NameArray(i))  0) Then
Worksheets("Record").Cells(2, 1).Offset(Count, 0).Value = Worksheets(j).Name
Worksheets("Record").Cells(2, 1).Offset(Count, 1).Value = myCell.Address
Worksheets("Record").Cells(2, 1).Offset(Count, 2).Value = "'" & myCell.Formula
Worksheets("Record").Cells(2, 1).Offset(Count, 3).Value = myCell.Value
Worksheets("Record").Cells(2, 1).Offset(Count, 4).Value = NameArray(i)
Count = Count + 1
End If
Next i

Next myCell
Next j

Sheets("Record").Select
End Sub

Benzer Sonuçlar
No	Makro Adı
1	sayfada formüllü hücreleri records sayfasına ayrıntılı kaydeder
2	sayfadaki formüllü hücrelerin formüllerini açıklama olarak ekleme ve silme
3	sayfada sadece formüllü hücreleri kilitler diğerleri açık kalır
4	kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)
5	ip numarasi gösterecek makro
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	adlandırılmış hücreleri wb_names sayfasında ayrıntılı listeler
8	kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
9	excel'de kopyalama makrosu nasıl yazılır?
10	formüllü hücreleri silmeyi engelleme
11	9 farklı değer için koşullu biçimlendirme
12	sayfadaki en son dolu hücreden üstteki boş hücreleri siler
13	tek buton ile belirli hücreleri temizleme
14	değişen hücreleri göster
15	tüm kitapta istenilen sayfada sütunlardaki en son dolu hücreleri bildirir
16	değişen hücreleri gösterme
17	Sayfadaki bütün hücreleri seçme
18	ayrı sayfalardaki belli hücreleri toplatmak
19	aynı makroyla birden çok sayfaya kayıt yapmak
20	ayları sayfa olarak ekler günleri ayrıntılı olarak belirtir

Benzer Sonuçlar

Makro Adı

sayfada formüllü hücreleri records sayfasına ayrıntılı kaydeder

sayfadaki formüllü hücrelerin formüllerini açıklama olarak ekleme ve silme

sayfada sadece formüllü hücreleri kilitler diğerleri açık kalır

kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)

ip numarasi gösterecek makro

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

adlandırılmış hücreleri wb_names sayfasında ayrıntılı listeler

kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)

excel'de kopyalama makrosu nasıl yazılır?

formüllü hücreleri silmeyi engelleme