Yeni çalışma kitabım ana listeye aktarılsın...

[pigment79]

Ekteki dosyada istediklerimi yazdım. yardımlarınız için şimdiden çok teşekkür ederim. kolay gelsin....

 

[fedeal]

ekteki dosyayı inceleyin istediginiz bumu
bu arada arşivimdeki kodları düzenleyerek yaptım kodlar sayın evren gizlene aitti sanırım.(emege saygı)

 

[cimbom05]

Sayın FEDEAL bende böyle bir kod atıyordum. Bu nedenle çalışmanıza (Size ve Evren Gizlen'e) teşekkür ederim.
Ancak benim aradığım dosyanın Ana isimli sayfasında listeleme yaparken her eklediği sayfa ismine link atabilir mi?

 

[ozgretmen]

Dosya ekte...Kitabınızın Ana Sayfasına eklemiş olduğunuz isimlere tıklandığında direk o sayfaya gidersiniz.Yanlış anlamadıysam...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
i = ActiveCell.Row
Sheets(Cells(i, 2).Text).Select
End Sub

 

[cimbom05]

Evet ozgretmen, istediğim buydu. Çok teşekkür ederim.

 

[ozgretmen]

Evet ozgretmen, istediğim buydu. Çok teşekkür ederim.

Rica edeim.İyi çalışmalar...