B

Çözüldü Üç 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...

berkbaba

Normal Üye
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:
Görüntülemek 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:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)
-- LİSTELEME kodlarını aşağıdakiyle değiştirin.
C:
Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)
-- TEMİZLEME işlemiyle ilgili kodları aşağıdakiyle değiştirin.
C:
Görüntülemek 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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst