- Katılım
- 29 Ocak 2014
- Mesajlar
- 132
- Excel Vers. ve Dili
-
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
- Altın Üyelik Bitiş Tarihi
- 24.12.2022
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("b:b")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
If ComboBox1 = "" Then MsgBox "Profil İsmi boş olamaz!", vbCritical: Exit Sub
If TextBox1 = "" Then MsgBox "Birim Boy boş olamaz!", vbCritical: Exit Sub
If TextBox2 = "" Then MsgBox "Adet boş olamaz!", vbCritical: Exit Sub
If TextBox3 = "" Then MsgBox "Açıklama boş olamaz!", vbCritical: Exit Sub
ListBox1.RowSource = ""
Range("B" & say + 1).Value = ComboBox1.Value 'Hücrelere TextBox'lardaki değerleri yazıyoruz.
Range("C" & say + 1).Value = TextBox1.Value
Range("D" & say + 1).Value = TextBox2.Value
Range("E" & say + 1).Value = TextBox3.Value
ListBox1.RowSource = "Sayfa1!" & "B1" & ":" & "E" & say + 1
End Sub
Standart bir modüle yapıştırın.excel dosyasını açtığımda, ekranda sadece "giriş ekranı" tablosunu görmek istiyorum.
Sub auto_open()
UserForm2.Show
End Sub
Tamamdır yaptım. bu dosya üzerinde çalışmalara devam edicem bu bölümden yeninden sorularım çıkacakStandart bir modüle yapıştırın.
Kod:Sub auto_open() UserForm2.Show End Sub
iki sorum daha var:Rica ederim.
İyi çalışmalar.![]()