Üç Sütunda Çift Tık Uygulaması ile Seçmeli Veri Yazdırma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
12 Eyl 2019
Mesajlar
469
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Değerli Üstadlarım;
F4:F300 aralığında herhangi bir hücreye çift tık ile
Birinci Çift Tık İle VAR, İkinci Çift Tık İle YOK

H4:H300 aralığında herhangi bir hücreye çift tık ile
Birinci Çift Tık İle EVLİ, İkinci Çift Tık İle BEKAR

I4:I300 aralığında herhangi bir hücreye çift tık ile
Birinci Çift Tık İle Erkek, İkinci Çift Tık İle Bayan

Veri doğrulama liste ile değil, makro kodu için yardımcı olabilir misiniz?
Selam ve Dua ile
 
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

Diğerleride benzer şekilde yapılır.
Sayfanın Worksheet_BeforeDoubleClick olayını eklemeniz gerekiyor.
 
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(26 satır)

Kodlar peş peşe olunca birinin ardından diğeri iptal olmuş.
Bu haliyle denedim.
İstediğiniz gibi çalışıyor.
 
Merhaba.
Sayın @Mesut Topal 'ın müsadeleriyle; ben de alternatif cevap vereyim dedim.
-- ÇİFT TIKLAMA ile ilgili olarak aşağıdaki kodu kullanabilirsiniz (ilgili sayfanın kod bölümüne)
C:
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
-- LİSTELEME kodlarını aşağıdakiyle değiştirin.
C:
İndirmek için giriş yapmanız gerekmektedir.
(18 satır)
-- TEMİZLEME işlemiyle ilgili kodları aşağıdakiyle değiştirin.
C:
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
 
Ömer Abi
Çift tıklama ve Temizleme tamam. Ellerine Sağlık Teşekkür ederim.
Yalnız Listeleme kodunda (benden kaynaklı bir hata olarak) tüm listeyi getiriyor. Bunun yerine sadece seçilen branşa ait öğretmenlerin listesinin gelmesi için kod da bir değişiklik yapabilir misiniz?

Ellerinizden öper saygılarımı sunarım.
 
Ömer Abi
Dosya ekte. Yeni kodu da denedim olmadı. Büyük ihtimal hata bende. Bakabilmeniz mümkün mü
İşlem Sırası:
1 - Sonuç Sayfasında Branş Seç butonu ile açılan listboxta branş seç, seçilen branşı aktar
2 - B7 hücresine aktarılan branş unvanından Personel sayfasında kaç öğretmen var ise listele

ama ben beceremedim.
 

Ekli dosyalar

Koşulun uyduğu satırlar için PERSONEL sayfası C sütununa bakılacaksa,
verdiğim koddaki AutoFilter Field:=5 kısımlarını (3 yerde var) AutoFilter Field:=3 olarak değiştirin.
Ben koşul için E sütununa bakılacağını düşünmüştüm.
 
Ömer Abi Ellerinden öperim. Şimdi mükemmel oldu.
Sıkıntı verdiysem, başınızı ağrıttı isem affınıza sığınıyorum.
Konu çözüldü
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt