Hücre İçeriğini Aratmada Yardım

[EmirhanG]

Merhaba arkadaşlar sizden ricam; a1 hüçresinden a15 hüçresine kadar değişik isimler girdim ve bu isimlere de makro yardımıyla birer çalışma sayfası açtım ((sayfa isimleri hüçre de yazılı isimlerle aynı)) yapmak istediğim (a1:a15) arası seçili hücredeki isme aid sayfayı açan kodları oluşturmak
Yardımcı olacak arkadaşlara şimdiden teşekürler.......!:yardim:

 

[cyberwolf1980]

bıraz daha detaylandırabılırmısınız lutfen bu ıslemı normal olarak koprulerle yapabılırsınız ancak bunu koprulerlemı ,userform uzerındemı,yoksa sayfada herhangı bır olaydan sonramı ( oncemı , islem halınde vs...) olacagını belırtmemıssınız.

 

[EmirhanG]

((ana sayfam olan sayfa1 e eklediğim bir buton yardımıyla ,yani kodlarla)) Asıl yapmaya çalıştığım sayfa1 de A kolununda seçtiğim herhangibir hüçrenin içeriği olan ismi,sayfalar arasında arayıp o isimdeki sayfayı açmak daha sonra seçili hüçrenin bulunduğu satırı kopyalayıp bulunan sayfaya yapıştımak. İlginize teşekürler.....
anlatabilmişimdir inşallah

 

[Orion1]

Hücreye çift tıklama ile ilgili sayfa açılıyor.
Kod ları çalışma sayfasının kod bölümüne yazınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:A15]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(Target.Value).Select
End Sub

 

[Orion1]

Merhaba .
Aşağıdaki kodları bir buton atayın.İstediğiniz olur.

Sub sayfa_ac()
If ActiveCell.Column > 1 Or ActiveCell.Row > 15 Then Exit Sub
On Error Resume Next
Sheets(ActiveCell.Value).Select
End Sub

 

[EmirhanG]

TeŞekÜrler.

SEZAR'''a.... teşekürler bilgilerinden dolayı

 

[Orion1]

Rica ederim.
İyi çalışmalar.