Hücreye çift tıklama ile başka sayfayı açma

[faruk588]

Hücreye tıklayınca yan hücredeki değerin bulunduğu sayfayı açması için çok uğraştım ama bir türlü olmadı. Örnek dosyayı ekte kaydettim. Yardım ederseniz sevinirim. Şimdiden teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [F8:G65000]) Is Nothing Then Exit Sub
Cancel = True
If Target.Column = 7 Then Sheets(CStr(Target.Offset(0, -2).Value)).Select
If Target.Column = 6 Then Sheets(CStr(Target.Offset(0, -1).Value)).PrintOut
End Sub

 

[bedri41]

Köprü kullanarak excel içerisindeki sayfalar arasında dilediğiniz geçişleri ayarlayabilirsiniz. Örnek dosyanız ektedir.

 

[bedri41]

Köprü kullanarak yapılmış bir örnek ektedir.

 

[faruk588]

Arkadaşım öncelikle uğraştığın için teşekkür ediyorum Yalnız, yazdır özelliği kaybolmuş bu seferde ben F sütünundaki bir satıra tıklayınca yazdırmasını G sütünundaki bir hücreye tıklayınca da o sayfaya gitmesini istiyorum.

 

[Orion1]

Arkadaşım öncelikle uğraştığın için teşekkür ediyorum Yalnız, yazdır özelliği kaybolmuş bu seferde ben F sütünundaki bir satıra tıklayınca yazdırmasını G sütünundaki bir hücreye tıklayınca da o sayfaya gitmesini istiyorum.

Bunu açıklamnız lazımdı.Aksi takdirde bilemeyiz.
G sütunundaki hücreye tıklayınca hangi sayfadaki hangi sütundaki hücreler yazılacak.

 

[faruk588]

Malesef; örnek sayfada altı satır var ama benim kendi sayfamda 370 satır var ve ben bu yüzden köprü ile yapamıyorum daha önce yazılmış olan yazdır komutu gibi bir kod olsa işim çok kolay olacak

 

[Orion1]

Arkadaşım öncelikle uğraştığın için teşekkür ediyorum Yalnız, yazdır özelliği kaybolmuş bu seferde ben F sütünundaki bir satıra tıklayınca yazdırmasını G sütünundaki bir hücreye tıklayınca da o sayfaya gitmesini istiyorum.

Dosyayı güncelledim.
2 numaralı mesajdan tekrar indirip çalıştırınız.

 

[faruk588]

Kardeşim çok teşekkür ediyorum. Allah bilgini ve kazancını artırsın

 

[Orion1]

Kardeşim çok teşekkür ediyorum. Allah bilgini ve kazancını artırsın

Rica ederim.
İyi çalışmalar.

 

[Erdem Akdemir]

Evren bey merbaha

Cstr'nin işlevi nedir, ne zaman kullanmak gerekir

 

[Orion1]

Evren bey merbaha

Cstr'nin işlevi nedir, ne zaman kullanmak gerekir

CStr sayısal bir değişkeni stringe çevirir.
Diyelimki 1 isminde bir sayfamız olsun.Ve bu sayfa 2nci sırada olsun.
Şimdi:
sheets(1).select
bu kod index'i 1 olan sayfayı açar.Bu indextir.
Ama sheets("1").select veya sheets(cstr(1)).select
komutu isim belritir.Çünkü sayfa adları stringtir.Bu 1 isimli sayfayı açar.
Eğer string değer girerseniz bunu vba otomatik olarak sayfa adı olarak algılar.
Eğer sayısal değer girerseniz bunu VBA otomatik olarak sayfa index'i olarak algılar.
Bilmem anlatabildimmi.

 

[Erdem Akdemir]

CStr sayısal bir değişkeni stringe çevirir.
Diyelimki 1 isminde bir sayfamız olsun.Ve bu sayfa 2nci sırada olsun.
Şimdi:
sheets(1).select
bu kod index'i 1 olan sayfayı açar.Bu indextir.
Ama sheets("1").select veya sheets(cstr(1)).select
komutu isim belritir.Çünkü sayfa adları stringtir.Bu 1 isimli sayfayı açar.
Eğer string değer girerseniz bunu vba otomatik olarak sayfa adı olarak algılar.
Eğer sayısal değer girerseniz bunu VBA otomatik olarak sayfa index'i olarak algılar.
Bilmem anlatabildimmi.

Metneçevir'in vba'daki karşılığı gibi

özellikle arkadaşın istediği işlemde kullanması gerekli bir işlev

Anlatımınız içinde çok teşekkür ederim, oldukça aydınlatıcı oldu