exceldeki ürüne Link eklemek

[tatubey]

Merhaba Arkadaslar
kusura bakmayin aradim ama bulamadim , benim sizden bir ricam olacak,
excel dosyamda cesitli ürünler var ve bunlari ben tek tek kopyaliyarak Googlde aramak zorundayim ürün hakkinda bilgi etmek icin buna mecburum,
Sizden istegi su ben bu linki "http://www.google.de/webhp?sourceid=chrome&ie=UTF-8" arama adresini exceldeki ürünün ön tarafina koyabilrisem kopyala yapistir yapmadan exceldeki ürünü tiklarsam beni otomatik googldeki ürün hakkindaki tadaya yönledirir, ben bunu bir kac tanesine tek tek yapiyorum ama ürün yaklasik 400-500 cesit her hafta bu cok zor oluyor, bir kac islem ile bunu yapabilirmiyim, bilen arkadaslar mutlak vardir bana aciklayabilirse tadayli bir sekilde memnun olurum.
simdiden tesekkür ederim yardimlariniz icin..

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

A sütunundaki tüm verilere belirttiğiniz adresin linkini köprü olarak ekleyecektir.

Sub LinkEkle()
 
    Dim aDres As String, i As Long
 
    aDres = "[URL]http://www.google.de/webhp?sourceid=chrome&ie=UTF-8[/URL]"
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A").Hyperlinks.Delete
        ActiveSheet.Hyperlinks.Add Cells(i, "A"), aDres
    Next i
    
End Sub

.

 

[tatubey]

ÖMER KARDES ,
Tesekkür ederim ama ben bu isin acemisiyim bunu nereye yapistirmam lazim ??
biraz daha yardimci olursan sevinirim..

 

[Ömer]

Önce boş bir excel açıp makro ayarlarını düşürün.

Araçlar / Makro / Güvenlik / Düşük / Tamam. ( Bu işlemi kullandığınız bilgisayarda bir defa yapmanız yeterlidir )

Sayfayı kapatıp yeni bir sayfa açın, modul ekleme linkini inceleyerek dosyaya modul ekleyin ve yukarıdaki kodları module yapıştırın.

Kodları çalıştırmak için ise Alt + F8 / Enter ile yada buton ekleme linkindeki gibi buton ekleyerek işlemi gerçekleştirin.

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

.

 

[tatubey]

Anlatiminiz ve yardiminiz icin cok tesekkür ederim,
sizin anlatimlariniz malesef excel 2003 benim kullandigim ise excel 2007 bu nedenle yapamadim ama herhalde 2003 bulmam gerekecek sizleri yormamam icin, sayet excel 2007 icin yapabilecegim birsey var ise yazarsaniz memnun olurum,..
Simdiden Tesekkür Ederim.

 

[Ömer]

2007 de makro ayarlarını düşürmek için linki inceleyiniz.

http://www.excel.web.tr/f157/office-2007de-makro-guvenlik-ayarlaryny-du-urmek-resimli-t83371.html


Önce linkteki gibi ayarları düşürün daha sonra ekleteki dosyayı açıp link_ekle butonuna basın. Kodları kendi dosyanıza diğer verdiğim linklerdeki gibi alabilirsiniz.

.

 

[tatubey]

Ömer Kardes Allah Razi olsun yardimlarindan ama malesef olmadi yapamadim,
dediginiz gibi herseyi yaptim ve ürün isimleri MAVI oldu ama tikladigim zaman ürünün üzerine sadece burasi acilyor "http://www.google.de/webhp?sourceid=chrome&ie=UTF-8" ben burayi ürünün ismi ile acilmis vaziyette yapmak istiyorum Örnek : http://www.google.de/search?sourceid=chrome&ie=UTF-8&q=Philips+GC8220/02+Bügelstation&qscrl=1 bir yanlislik yapiyorum ama nerede ?!!

TESEKKÜR EDERIM yardimlariniz icin

 

[Ömer]

Kodları aşağıdakilerle değiştirerek denermisiniz.

Sub LinkEkle()
 
    Dim aDres As String, i As Long
 
    aDres = "[URL]http://www.google.de/search?sourceid=chrome&ie=UTF-8[/URL]"
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A").Hyperlinks.Delete
        ActiveSheet.Hyperlinks.Add Cells(i, "A"), aDres & "&q=" & Cells(i, "A")
    Next i
    
End Sub

.

 

[tatubey]

Allah Razi olsun Ömer kardesim
simdi oldu ,sizi sayenizden büyük bir isten kurtulmus oldum silerim hafufliyecek insallah.
saygi ve sevgilerle ..

 

[utopik83]

Bende bu hatayı veriyor
Yardımcı olabilir misiniz?