Aktif Projede kullanılan referansları, aktif çalışma sayfası a2 den itibaren yaz?

[hsayar]

Aktif Projede kullanılan referansları, aktif çalışma sayfası a2 den itibaren yaz? komutu nasıl denir?

"A" & i.value = ref.ad
"b" & i.value = dzn.yol
"b" & i.value = dsy.ad

gibi

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub referanslistesi()
Set s1 = Sheets("sayfa2")
For a = 1 To ThisWorkbook.VBProject.References.Count
s1.Cells(a, "a") = ThisWorkbook.VBProject.References.Item(a).Name
s1.Cells(a, "b") = ThisWorkbook.VBProject.References.Item(a).Description
s1.Cells(a, "c") = ThisWorkbook.VBProject.References.Item(a).FullPath
s1.Cells(a, "d") = ThisWorkbook.VBProject.References.Item(a).GUID
Next
End Sub

 

[hsayar]

teşekkür ederim hocam