Excel’de Sayfa Adlarını Listelemek / İndekslemek
Excel’de Sayfa Adlarını Listelemek / İndekslemek
Dosyayı indirme linki:
https://excelsizeyeter.com/Download_D...
#excel #exceltips #exceleğitimleri #exceleğitimleri #keşfet
'Kodlar aşağıda yer almaktadır:
Sub Sayfa_Adlarını_Listele()
Dim i, satir_no
satir_no = Selection.Row - 1
For i = 1 To Sheets.Count
satir_no = satir_no + 1
Cells(satir_no, Selection.Column).Value = Sheets(i).Name
Next i
End Sub
Sub Sayfa_Adlarını_Linkli_Listele()
Dim i, satir_no
satir_no = Selection.Row - 1
For i = 1 To Sheets.Count
satir_no = satir_no + 1
Cells(satir_no, Selection.Column).Value = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir_no, Selection.Column), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
Next i
End Sub