DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
=GetURL(A1)
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.SubAddress
Next
End Sub
=GetURL(A1)
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).SubAddress
End Function
=GetURL(A1)
Bu durumda sizin alacağınız sonuç şu şekilde olacaktır: '00'!A1 , bu sonuç içinden sadece 00'ı çekmek istiyorsanız hücreye şu formülü giriniz. =SOLDAN(GetURL(I8);BUL("!";(GetURL(I8));1)-2)
Rich (BB code):
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).SubAddress
End Function
=EĞERHATA((SAĞDAN(SOLDAN(GetURL(I8);BUL("!";(GetURL(I8));1)-2);UZUNLUK(SOLDAN(GetURL(I8);BUL("!";(GetURL(I8));1)-2))-1));"")