Baglantili (Koprulu) verileri duz kaydetmek

[Senegale]

Merhaba

Elimde 20.000 satirdan olusan bir liste var. Liste icerigi su sekilde

Bu gorulen isimlerin uzerine tiklandiginda web siteleri aciliyor.

Yapmak istedigim sey;
Bu aciklamalari baglantisiz olarak Sutun B ye
bu aciklamalara bagli olan baglantilari C sutununa http:// seklinde kaydetmek

Simdiden cok tesekkurler

 

[YUSUF44]

Dosyaları resim olarak eklemek üyerine küçük bir örneğini paylaşsanız çok daha güzel olur. Şimdi sorunu çözmeye çalışacağım ama önce bir liste oluşturmami sonra bu listedeki verilere teker teker köprü eklemem sonra da kod denemem gerekecek.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub köprü()
On Error Resume Next
For i = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(i, "B") = Cells(i, "A").Value
Cells(i, "C") = Cells(i, "A").Hyperlinks(1).Address
Next
End Sub

 

[Senegale]

Hemen ekliyorum

 

[Senegale]

http://www.cashewafrica/ornek.xlsx

 

[Senegale]

Cok tesekkurler super oldu

 

[Senegale]

Peki bu modulu sadece linkli satirlarda calistirmak istersek

Hangi satiri eklememiz gerekiyor?

 

[YUSUF44]

On error resume next satırı bir nevi bu kontrolü yapıyor. Eğer o satır olmazsa köprü olmayan hücrelerde hata verir ve makroyu durdurur. "Eğer link varsa şunu yap" kodunu bulamadım maalesef.