Hücre seçildiğinde açılır kutunun kendinden açılması

hakpin · 28 Aralık 2007

Değerli Hocalarım,
Aşağıda mevcut kod ile yalnızca bir hücredeki açılır kutu hücreyi seçtiğimizde kendiliğinde açılıyor.Diğer bir kaç hücredede, seçildiğinde seçilen hücredeki açılır kutunun kendiliğinden açılması için yardımcı olursanız sevinirim.
Örnek: L16:T16, L18:T18 hücreleri gibi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$AN$14:$AQ$14" Then Exit Sub
SendKeys "%{down}"
End Sub

zafer · 28 Aralık 2007

Merhaba

If Intersect(Target, Range("L16:T16, L18:T18 ")) Is Nothing Then Exit Sub
SendKeys "%{down}"

hakpin · 28 Aralık 2007

Kıymetli Zafer Hocam ,
İlginize çok teşekkür ederim.Kolay gelsin.

hakpin · 28 Aralık 2007

Hücre seçildiğinde açılır kutunun kendiliğinden açılması

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("L16:T16, L18:T18 ")) Is Nothing Then Exit Sub
SendKeys "%{down}"

Değerli Zafer Hocam,ve diğer üstatlarım,
Yazmış olduğunuz kodu değiştirdikten sonra yukardaki haliyle çalışıyor fakat, bu seferde diğer makrolar (Yolluk giriş sayfasında yolluk aktar makrosu) çalışıp bittikten sonra en son seçtiği hücrenin altında (L14) liste kutusu açıyor, açmasını istemiyorum.Dosyayı ekte gönderiyorum ilgilenirseniz sevinirim.

zafer · 28 Aralık 2007

Merhaba

kodları çalıştırdım bende liste kutusu gelmedi. Zaten l14 de liste kutusuda yok

En son satırdaki
Range("L14").Select satırını
Örneğin
Range("a1").Select
yapın isterseniz

hakpin · 28 Aralık 2007

Sayın Zafer Hocam;
Önce ilginizden dolayı teşekkür ederim.Proğramda hangi makro çalışırsa çalışsın, en son "L14" hücresine dönmesi gerekmekte ,çünkü proğrama ilk giriş onay tarihi girmekle o hücreden başlıyor.Örneğin "Yolluk Aktar" düğmesini tıkladığımızda makro çalışıyor,bittikten sonra "L14" Hücresini seçiyor,işte sonra hücrenin altında tek satırlık boş bir liste kutusu açılıyor. Neden açılıyor çözemedim."L14" yerine"a1" seçin diye yazmışsınız.Bu seferde "a1" hücresi altında boş bir kutu açılıyor.Bu sizin yazmış olduğunuz kod satırını değiştirdikten sonra olmaya başladı.Eğer ilgilenirseniz sevinirim.Tekrar teşekkür eder, işlerinizde kolaylıklar dilerim.

zafer · 31 Aralık 2007

Merhaba

Auto_open makrosundaki kodları aşağıdaki gibi düzenledim.SelectionChange
işleminde kullandığınız alanları diğer alanlarla beraber seçmeyiniz.Diğer makrolarınızdada aynı olanlar varsa ayırınız.

Beraber seçtiğnizde aktif olan hücreye sendkey gönderiyor.

Makrosuz denemek için L14 ilk hücre olmak üzere L16 kadar hücreleri seçin L14'de liste kutusu açıldığını göreceksiniz.

Kod:

Range( _
        "V3:AL3,AN3:AR3,L14:R14,Y14:AC14,V16:AB16,AD16:AG16,AI16:AL16,V18:AB18,AD18:AG18,AI18:AL18,L20:T20,V20:AD20,L22:O22,V24:AD24,L24:T24,L26:O26,L28:T28,V28:AB28,BA16:BI16,BA18:BR18,BA20:BR20,BA22:BD22,BA24:BI24" _
        ).Select
        Selection.ClearContents
    Range("L16:T16").ClearContents
    
    Range("L18:T18").ClearContents
    Range("AN14:AQ14").ClearContents

hakpin · 31 Aralık 2007

Zafer Hocam merhaba;
Öncelikle benim için imkansız olan bu ince ayrıtıyı yakalayıp , zaman ayırdığınız için teşekkür ederim.Yazdığınız gibi diğer makroları düzenledim. Artık son hücrede liste kutusu açılmıyor.Çok teşşekkür eder Yeni yılınızı kutlar sağlık dilerim.

BERTAN09 · 1 Ocak 2008

Zafer hocam iyi günler yeni yılınızı da bu arada kutlamış olayım. Hocam eğer müsait iseniz sizlerden yardım istiyorum, benim excel bilgim sizlerin yanında sıfır demek, geçen hafta içerisinde forumunuza üye oldum, EKK Kredi kooperatifinde çalışıyorum, bütün işlerimde exceli kullanıyorum, ama excelin makrolarıyla bi işlem yapmadım ve bilmiyorum. ama sizlerin çalışmalarını gördükçe öğrenmek isteğim arttı. basit çalışmalarımı sizlerin yardımıyla bana çok yardımcı olabilecek hale getirebilirim. yardımlarınızı bekliyorum. dediğim gibi ben sizlerin yanında çok acemiyim. örnek olarak bi çalışmamı size göndermek istiyorum eğer istiyorsanız

zafer · 1 Ocak 2008

Sayın BERTAN09

Çalışmalarınızda takıldığınız yerleri soru başlığı açarak sorarsanız arkadaşlarım ve ben çözmeye çalışırız.İyi seneler.

Sayın hakpin sizede iyi seneler.Teşekkür ederim

Hücre seçildiğinde açılır kutunun kendinden açılması

hakpin

Banned

zafer

Super Moderator

hakpin

Banned

hakpin

Banned

zafer

Super Moderator

hakpin

Banned

zafer

Super Moderator

hakpin

Banned

BERTAN09

zafer

Super Moderator