köprü kopyalama işlemi (1000 den fazla köprünün urlsini nasıl alırım kopyalarım) 2

[gencwebciadam]

arkadaşlar

imdb linki diye bi bölümüm var ve başka bi sütuna içerisindeki linkleri kopyalamam gerek daha önce açmıştım yapmıştım ama o kodla şimdi yapamadım

http://s6.dosya.tc/server/4kkxwa/.NET_-_HDD_Dolum_Listesi_-__Temmuz_2015_.xlsx.html

dosyamı buraya yükledim

1080P sayfasındaki imdb linkleri boş bü sütundaki yere aktarmak istiyorum
diğer sayfalardada imdb linki var ama yardım ederseniz ben gerisini hallederim

 

[gencwebciadam]

yardım edebilicek birisi varmı

 

[Saban Sertkaya]

Kopyala yapıştır olmuyor mu ? Dosyanıza baktım ve kopyala yapıştır ile boş bir sütuna yapıştırma işlemini gerçekleştirdim. Yapıştırılan herhangi bir link'e tıktadığımda imdb sayfası açılıyor.

Siz de sütunu seçin, sağ tık ile kopyala deyip, yapıştırmak istediğiniz yere yapıştırın.

Veya illa kod olsun derseniz, 1080 sayfasına 1 buton koyup, butona kodu atayın.

Sub kopya()
Columns(5).Copy Columns(17) 'Sütun 5'teki linkleri kopyalar ve aynı sayfada sütun 17'ye yapıştırır.
End sub

 

[halit3]

Bu kod 1080p HD sayfasındaki E sütünunda gizli linkleri P sütununna aktarıyor.

kod:

Sub deneme()

For i = 4 To Cells(Rows.Count, "c").End(3).Row
If Cells(i, "e").Hyperlinks.Count > 0 Then
Cells(i, "p").Value = Cells(i, "e").Hyperlinks(1).Address
End If
Next i
MsgBox "işlem tamam"
End Sub

 

[halit3]

Bütün sayfalarda kullanabileceğin Kullanıcı Tanımlı Fonksiyon.

kod:

Function link_ayir(satir, sutun)

If Val(satir) = 0 Then
link_ayir = ""
Exit Function
End If
If Val(sutun) = 0 Then
link_ayir = ""
Exit Function
End If
link_ayir = Cells(Val(satir), Val(sutun)).Hyperlinks(1).Address

End Function

kodun kullanılışı örnek olarak 1080p HD sayfasındaki E4 hücresindeki linki almak için aşağıdaki formülü boş bir sütunda boş bir hücreye yapıştırın ve aşağıya sürükleyin.

=link_ayir(SATIR(E4);SÜTUN(E4))