B

Çözüldü Veri Girişine Göre Toplam Sayısını Alma

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi

berkbaba

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Üstadım
T.C Kimlik No, Adı Soyadı, Sınıfı ve Cinsiyeti girildiği zaman
1. Sınıf ve Cinsiyeti Erkek ise ya da 1. Sınıf ve Cinsiyeti Kız ise
2. Sınıf ve Cinsiyeti Erkek ise ya da 2. Sınıf ve Cinsiyeti Kız ise
3. Sınıf ve Cinsiyeti Erkek ise ya da 3. Sınıf ve Cinsiyeti Kız ise
6. Sınıf ve Cinsiyeti Erkek ise ya da 6. Sınıf ve Cinsiyeti Kız ise
8. Sınıf ve Cinsiyeti Erkek ise ya da 8. Sınıf ve Cinsiyeti Kız ise
gibi sınıf ve cinsiyetine göre "1 - 4 SINIF MEVCUT TOPLAMI" veya "5 - 8 SINIF MEVCUT TOPLAMI" kısmına toplamlarını aldırabilmem için yardımcı olabilir misiniz?
 

Ekli dosyalar

@malatyalı

-- Önce UserFormun kod bölümüne şu kodu yapıştırın.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(13 satır)

-- Sonra da aşağıdakine benzer şekilde Combobox isimlerine /adetine göre
herbirinin başlık kısmındaki Combobox numarasını değiştirerek 20 Combobox için çoğaltın.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

Artık Comboboxlarda seçim yaptıkça ilgili sınıf ve cinsiyete göre adetler değişecektir.

İyi çalışmalar dilerim.

.
 
@malatyalı

Sayın @Selman 'ın katkılarıyla farklı bir öneride bulunayım.
20 tane Combobox.._Change kodu kopyalamak/oluşturmak yerine;

-- UserForm'un kod bölümünde mevcut tüm kodları silin ve yerine aşağıdaki kodları yapıştırın.
Gerekliyse Private Sub TextBox1_Exit kod bloku kalsın.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(34 satır)

-- VBA ekranında üst menüden INSERT >> CLASS MODULE yi seçin ve şu kodları da Class1 Modulüne içine yapıştırın.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

Artık, Combobox'lardaki seçimlerin, sağdaki Textbox'lara, sınıf ve cinsiyete göre yansıtılması sorunsuz ve
20 tane Combobox_Change kodu olmadan gerçekleşir.



İyi çalışmalar dilerim.

.
 
Üstadım formda bulunan
Textbox (1,3,5,..... 19) C10'dan İtibaren altalta
Textbox (2,4,6,..... 20) D10'dan İtibaren altalta
Combobox (1,3,5..... 19) I10'dan İtibaren altalta
Combobox (2,4,6..... 20) F10'dan İtibaren altalta
Bir kerede sayfa2' ye nasıl kaydedebilirim?
 
@malatyalı
UserForm'a ekleyeceğiniz CommandButton1 için,
şu kodu UserForm'un kod bölümüne yapıştırın. AKtarılan TextBox veya Combobox içeriği boşaltılır.
İçeriği boşaltılmayan nesne varsa, form üzerinde ilgili satırda eksik bilgi var demektir.

Belgede Sayfa2'nin varlığından emin olduktan sonra kodu deneyiniz.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)
 
Üst