Hücreye Tıklandığında Alana Gitmek

[ant1905]

Arkadaşlar herkese selamlar,

Hücreye tıkladığımda o anda hücrenin içinde yazılı olan isimle tanımlanmış olan alana gidecek bir koda ihtiyacım var. örnek dosyayı ekledim. Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

 

[asi_kral]

Arkadaşlar herkese selamlar,

Hücreye tıkladığımda o anda hücrenin içinde yazılı olan isimle tanımlanmış olan alana gidecek bir koda ihtiyacım var. örnek dosyayı ekledim. Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

Merhaba

w1w

Böyle bir alan yoktur ki_?
W sütunu mu olacak seçeceğiniz Yoksa W1 mi olacak hangisi olacak

 

[ant1905]

Asikral merhaba,

Dosyada range w1w yazan yeri kenarlıklar içinde kalacak şekilde tüm hücreleri seçin lütfen.. O alanın ismi w1w

 

[uzmanamele]

Merhaba

Köprü fonksiyonu ile yapabilirsiniz, makroya gerek yok.


Not: Köprü fonksiyonunun işlevini göstermek için başka hücreye yazmıştım.
C4 hücre formülü olarak yazmak mümkün.

=KÖPRÜ("[Soru.xlsx]sayfa1!"&"w"&C3&"w";"atla")

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

C4 hücresine çift tıkladığınızda kod çalışacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C4")) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Text <> "" Then
        Application.Goto Reference:=Target.Text
    End If
End Sub

 

[programer]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c4]) Is Nothing Then Exit Sub

    Cells.Find(What:=[c4], After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

kodları çalışma sayfasının Worksheet kısmına yapıştırın C4 hüvcresine çift tıkladığınızda ilgili yere gidecektir

 

[programer]

sayın, uzmanamele ve Korhan Ayhan hızınıza yetişmek ne mümkün

 

[ant1905]

Her formülde sayfa referansı belirtmek zorunlu mu? "[Soru.xlsx]sayfa1!" gibi...

 

[ant1905]

Sahiden ben daha cevap yazıyordum

 

[ant1905]

Sayın Ayhan şimdi enteresan bişi oldu ... örnek dosyada çalışıyor... kendi dosyama uyarlayınca orada compile error: ambigious name detected mesajı geliyor. c4 yani hücre referansını kendi dosyamdaki referans noktası ile değiştirdim de halbuki...

 

[Korhan Ayhan]

Merhaba,

Bu hatayı şu sebeple alıyorsunuz;

Çalışmanızda aynı olaya ait iki farklı kod bulunuyor.

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

Bu durumda bu hatayı alırsınız.


Ne yapmanız gerekiyor;

Bu isimle başlayan kodlarınızı uygun bir yapıyla birleştirmeniz gerekiyor.

 

[ant1905]

compile error : ambigious name detected: worksheetbeforedoubleclick

tam olarak mesaj bu... excel türkçe hata mesajı neden ingilizce o da yarı tartışma konusu

 

[uzmanamele]

compile error : ambigious name detected: worksheetbeforedoubleclick

tam olarak mesaj bu... excel türkçe hata mesajı neden ingilizce o da yarı tartışma konusu

Merhaba
Ofis sürümünüz Türkçe olsa bile vba her daim İngilizcedir, tartışmayalım.

 

[ant1905]

Bu arada uzmanamele, programer ve asikrala da teşekkür etmeyi unutmuyorum. eksik olmayın ilgilendiniz. Çok teşekkür ederim.

Programer sizin koduuygulayınca da aynı mesajı alıcam bu durumda...

Korhan Hocam size de çok teşekkür ederim hızınız takdire şayan

 

[ant1905]

Uygun yapı :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

bu kısım sabit olacak o zaman. Çünkü iki kere oldumu hata veriyor onu anladık. Altındaki kodları nasıl birleştirebilirim acaba?

If Target.Column = 2 Then
Range("a4") = Target.Cells.Offset(0, 421)
Range("a7") = Target.Cells.Offset(0, 423)
End If
Range("a1").Select
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a16")) Is Nothing Then Exit Sub
Cancel = True
If Target.Text <> "" Then
Application.Goto Reference:=Target.Text
End If
End Sub

 

[ant1905]

Oldu... başardımmm Çok çok teşekkürler herkese

 

[uzmanamele]

Merhaba

Basitçe fonksiyonlarla yapılabilecek çözümler yerine makro kullanmayı doğru bulmuyorum.
Amcalar, excelin yerleşik fonksiyonları ile çok güzel çözüm yolları önermişler. Hatta bu mereti icat edenlerin aklına gelmeyen çözüm yolları olduğuna eminim.
Hal böyle iken basitçe yapılabilecek şeyler yerine neden makro hevesine kapılıyoruz.
Basitçe yazılan köprü formülü işinizi fazlasıyla görecektir.

Dosyayı başka birinin kullanma olasılığı varsa, kullanıcı hatası her zaman olacaktır. Kimi makroyu etkinleştirmeyi unutacak, kimi makinede makro çalışması engellenmiş olacak, kimi makinede makro zaten çalışmıyor olacak vs vs vs...

Makro, destek amaçlı kullanılmalı, ya da dosya boyutu büyük veya bir çok alana başvuran karmaşık formüller yerine tercih edilmeli.

Ben bunu; yeni ehliyet alan birinin F1'de yarışmak istemesine benzetiyorum.
Hadi bıraktık şehir içi trafiğini, bari go card hadi onu da geçelim ralli denemesi yap.

Bu düşüncem syn ant1905'i eleştirmek için değil, genel bir düşüncedir.

 

[ant1905]

Aslında doğru... ben genelde formül ile çözmeye çalışıyorum. Ama tabii çok büyük dosya olunca formülün getirdiği ağırlığa karşılık makronun ne kadar işlemci ve ram yorduğunu bilmiyorum açıkcası. Hangisi daha avantajlı ?


Şu anda çalıştığım dosya 40MB a ulaştı. Geçen hafta laptopu 8 Gb çıkarmak zorunda kaldım çünkü RAM kullanımı kritik düzeye kadar yükseldi. Çok yoğun formül var dosyada. Dosya büyüdükçe önce otomatik hesaplamayı kapatmak sonra da dediğim gibi ram artırımı yapmak durumunda kaldım. Sizin çözümünüzde gayet makul idi ama mümkün olduğunca tek hücre üzerinden gitmek işime geldi açıkcası.

Şunu da söylemeden geçemicem bugüne kadar sorduğum sorularda herbiriniz bence birbirinden değerli cevaplar verdiniz. Ben kodu da formülü de seviyorum. Biraz daha iyi kod bilmeyi ve yazabilmeyi isterdim. Mantığını biraz anlıyorum aslında sanırım.Yaş 42 ama hiçbirzaman çok geç değildir tabii.

 

[uzmanamele]

Merhaba

Bir excel dosyası 40mb olmuşsa, sorun dosyada değil sizdedir.
Muhtemelen birçok gereksiz şey kullanmışsınızdır.
Optimal bir excel dosyası için altın kurallar

DoubleClick ile çalışan makro büyük dosyalarda sorun çıkarabilir.
Bu şekilde hesaplamayı tetiklemiş olursunuz, sanki veri girişi yapılmış gibi dosyadaki bütün formüller tekrar hesaplanır. Oysa sizin örneğinizde köprü formülü yazıldığında hesaplama yapılmış olacaktır, sonradan bu hücreyi tıklamanız hesaplamayı gerektirmez, sadece köprü olayı tetiklenir.

 

[Korhan Ayhan]

Merhaba,

Bende bu konuda Sn. uzmanamele beye katılıyorum. Çözümlerde önce yerleşik işlevler tercih edilmelidir.

Fakat sizin son bir haftadır sorduğunuz soruları ve soruyu sorduğunuz bölümü gözönünde bulundurarak makrolu çözüm önerdim.