Arkadaşlar aşağıdaki kodlar hata veriyor ama anlayamadım !!!
Sub kopru_kur()
For i = 1 To Worksheets.Count
Sheets("liste").Range("A" & i).Select
Sheets("liste").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"
Next i
End Sub
hata verilen yer
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"
Sub kopru_kur()
For i = 1 To Worksheets.Count
Sheets("liste").Range("A" & i).Select
Sheets("liste").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"
Next i
End Sub
hata verilen yer
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"