Başlığa göre başlık altına veri listeleme

[euphrates55]

Merhabalar, dolaylı formülü ile çözdüğüm bir tablom var. fakat büyük boyuttaki excel dosyamın daha da büyüesine yol açıyor bu yüzden yardımınıza ihtiyacım var.
değişken başlıklara göre farklı sayfadan veri listeletmek istiyorum. başlık değişken olacak. en son makroyu çalıştırdığımda yeni verileri listeleyecek şekilde bir şey yapılırsa güzel olacak.

 

[euphrates55]

exceli kandırayım dedim ama kanmıyor gülmeyin ama aşağıdaki kod ile formülü yazmaya çalıştım, aslında bayağı da becerdim ama başına = işaretini koyamadım. hata veriyor. daha sonra başa bir işaret koyup onu = ile değiştirmeyi denedim o da olmadı. başa + koyup makroyu çalıştırınca ve sonra hücre içine girip çıkınca işe yarıyor aslında. chr(61) olayını da denedim. başa = koymanın mümkünü var mı? tabi eşittiri koymakla sorunum bitmiyor ama bu da ilk bir adım için iyi

Sub tablo()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Dim i As Long, j As Long
For i = 13 To 21
For j = 3 To 5
If Cells(2, i) <> 0 Then
Cells(j, i) = "@" & "DOLAYLI(" & Chr(34) & "GT!" & Chr(34) & _
"&ADRES(((SATIR()-3)*6/1+3);KAÇINCI(" & Cells(2, i).Address & ";GT!$A$2:$CY$2;0)))"
Else
Cells(j, i) = ""
End If
Columns(i).Select
    Selection.Replace What:="@", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[hımmmmmmmm]

alternatif kotlama olsun..
rapor butonunu tıklat

 

[euphrates55]

alternatif kotlama olsun..
rapor butonunu tıklat

alternatif değil kendisi olmuş. elinize sağlık...