Excelde girilen değere otomatik link

[hryildirim]

Arkadaşlar merhaba,
Ekte görülen dosyada yer alan metin kutusuna giriş yapılan isim alınıp, a sütünundaki değere yazılıyor. Fakat bu sırada \\server\d\teklif klasörü altında yazılan numaranın sonuna xls uzantısı ekleyecek şekilde bir linki değeri yazdığı kutuya atamasını istiyorum.

Örnek olarak kutuya 10 yazıp butona basarsam a sütununa 10 yazacak link olarakta \\server\d\teklif\10.xls linkini atmasını istiyorum. Bu nu nasıl yapabiliriz.

Şimdiden teşekkürler.

Selamlar

 

[serqet]

-------------------------------------------

 

[serqet]

.

Dosyanız Ekte.

.

 

[hryildirim]

Teşekkürler elinize sağlık,
siz seçili olan phücre için bir kod yazmışsınız ben biraz geliştirdim hücre seçmeden direk olarak arama sonunda bulunan hücreye ekledim.
Daha anlaşılır olması için düşey arama komutunuda içerecek şekilde ekledim ve gayet iyi çalışıyor, tekrar teşekkürler.




With kayit.Range("o21000")
Set bul = .Find(muskayitcg.takipno.Value, LookIn:=xlValues, lookAt:=xlWhole)
If Not bul Is Nothing Then
kayit.Cells(bul.Row, "c").Value = muskayitcg.sehir.Value
kayit.Cells(bul.Row, "d").Value = muskayitcg.firmaad.Value
kayit.Cells(bul.Row, "e").Value = muskayitcg.yetkili.Value
kayit.Cells(bul.Row, "f").Value = muskayitcg.gorev.Value
kayit.Cells(bul.Row, "g").Value = muskayitcg.telno.Value
kayit.Cells(bul.Row, "h").Value = muskayitcg.ceptel.Value
kayit.Cells(bul.Row, "i").Value = muskayitcg.email.Value
kayit.Cells(bul.Row, "j").Value = muskayitcg.faksno.Value
kayit.Cells(bul.Row, "k").Value = muskayitcg.adres.Value
kayit.Cells(bul.Row, "m").Value = muskayitcg.aciklama.Value
kayit.Cells(bul.Row, "n").Value = muskayitcg.bolge.Value
kayit.Cells(bul.Row, "o").Value = muskayitcg.takipno.Value
kayit.Cells(bul.Row, "p").Value = muskayitcg.teklifno.Value
ActiveSheet.Hyperlinks.Add Anchor:=kayit.Cells(bul.Row, "p"), Address:= _
"\\Server\d\Pazarlama\Teklif\" & muskayitcg.teklifno.Value & ".xls"
If muskayitcg.tardegis.Value = True Then
kayit.Cells(bul.Row, "b").Value = muskayitcg.ray.Value & "/" & muskayitcg.rgun.Value & "/" & muskayitcg.ryil.Value
kayit.Cells(bul.Row, "l").Value = muskayitcg.gay.Value & "/" & muskayitcg.ggun.Value & "/" & muskayitcg.gyil.Value
Else
End If
Else
MsgBox ("Kayıt Bulunamadı Lütfen Takip Numaranızı Kontrol Ediniz ")
End If
End With

 

[mustafaege2000]

güzel bir çalışma
elinize saglık