- Katılım
- 11 Şubat 2023
- Mesajlar
- 48
- Excel Vers. ve Dili
- c,python,ardunio
- Altın Üyelik Bitiş Tarihi
- 11-02-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sanirim cevap o konuda var incelemekteyim.Buraya bakmak lazım.
Sub linkleri_yaz()
For a = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(a, "B") = Cells(a, "A").Hyperlinks(1).SubAddress
Next
End Sub
Çok sağ olun hocam.Çok teşekkür ederim.Aşağıdaki kodu deneyin.
Kod:Sub linkleri_yaz() For a = 1 To Cells(Rows.Count, "A").End(3).Row Cells(a, "B") = Cells(a, "A").Hyperlinks(1).SubAddress Next End Sub