Merhabalar; Excel userform u açtığım zaman resim 2'deki gibi "Listbox1" e "Mesaidata" sayfasındaki veriler geliyor. Süzme işlemi yaparken "ComboBox2" den isim seçiyorum ve "CommandButton38" e bastığım zaman o isimle ilgili bütün verileri süzüyor ve toplamlarını...

Merhabalar; Ekte gönderdiğim örnek dosyada userform da TextBoxlarda virgül den sonrası rakamlarını yukarı sıfırlıyor. İşlemlerde küsüratlı rakam önemli olduğu için istiyorum.Sayfada kodlar var değişilik olabilir sorun değil. Yardımlarınızı rica ederim.

Merhabalar; Ekte resmini paylaştığım UserForm da başlık görünmemesi için bir kod var ? Yardımlarınızı rica ederim. Görünenen Görünmesini istediğim

Merhabalar; userform üzerindeki Command butonu aktif sayfa da rengi farklı olasını istiyorum. Birden çok sayfa olduğu için hangi sayfada olduğumu anlamak için Konu hakkında yardımlarınızı rica ederim.

Merhaba; Ekte resmi bulunan User Form her her sayfanın sol üst kısmında (A1) sabit açık kalması için yardımlarınızı rica ederim. Şimdi den desteğiniz için teşekkürler. Private Sub ComboBox1_Change() On Error Resume Next Sheets(ComboBox1.Value).Select End Sub Private Sub...

TextBox112.Text = Format(TextBox94.Text, "YYYY") TextBox112.Text=TextBox94.Text Textbox94 de yer alan yıl durumunu TextBox112' ye almak istiyorum. Commandbutton' a ekledim olmadı Initalize kısmına aldım olmadı Ne yapmam lazım?

If ComboBox8.Value = "" Then MsgBox "Personelin Zorunlu Hizmet Durumunu Girmediniz Boş Geçmeyin!!!", vbExclamation, "İlçe Millî Eğitim İnsan Kaynakları Şefliği" ComboBox8.SetFocus Exit Sub End If Yukarıdaki kod ile boş geçmesini engelliyoruz. Ama ben bir kriter eklemek istiyorum Eğer Combobox2'...

Userform formunda bir buton ile ayrı anda iki sayfaya birden birinci sayfa 3. satırdan ikinci sayfa 2. satırdan itibaren alt alta, alfabetik ve b sütununa sıra numaralı kayıt kodu için bir örnek rica edebilir miyim?

Sub SadeceSayi(obj) 'Userform metin kutusuna sadece rakam girilmesine izin verir Dim i As Integer Dim str As String If TypeName(obj) = "TextBox" Then With obj For i = 1 To Len(obj.Text) str = Mid(.Text, i, 1) If Not IsNumeric(str) And .Value <> vbNullString Then .Text =...

Herkese iyi tatiller; Yıl sonu geliyor ve çocuklar seneye 4.sınıf ve not ile değerlendirme yapacağız. Bunu için iki not giriş ekranı oluşturdum. 1. Tekli öğrenci giriş ekranı , o kısımını hallettim. Ancak Toplu not giriş ekranında da aynı veritabanını kullanacağımdan tıkandım. Yapmak istediğimi...

Forum hayırlı olsun diyelim önce... Başarılar diliyorum. Ömer Bey verdiğiniz kodu denedim ancak tam olarak işime yaramadı.Şöyle ki; veritabanı mantığı ile öğrenci verilerini tutmak istiyorum. Combobox'a yazdığım öğrenci ve ona ait sonuçları ki 88 soru var karşısında 4 lü likerts ölçeiğine göre...