DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KOD()
With Selection
ilk_sat = .Row
son_sat = .Rows.Count + ilk_sat - 1
ilk_süt = .Column
son_süt = .Columns.Count + ilk_süt - 1
End With
For a = ilk_süt To son_süt
For i = ilk_sat To son_sat
Cells(i, a).ShowDependents
Next i
Next a
End Sub
Sub KOD()
For Each alan In Range(Selection.Address)
alan.ShowDependents
Next
End Sub