Soru:user form ile madde ekleme

[yzu91]

Merhaba;

Forumdaki emeği geçen herkese çok teşekkürler.

Benim maddeleri kısaca tanıtmaya yarayan 1 programa ihtiyacım var. Eğer böyle bir çalışmayı çözersek temel bazdaki excel kullanıcıları içinde güzel anlaşılabilir bir çalışma olacağına inanıyorum.

Benim yapmak istediklerim şunlar;

Madde No; Madde Adı; Madde Türü; Tedarik Süresi ;Eldeki Miktar ;Sipariş Miktarı Modeli ;Güvenlik Stoğu

başlıklarından oluşan bir user formum olması gerekiyor. Verileri atamaya 2. satırdan başlamalı ve artarak devam edebilmeli.

kısıtlarımız: Madde no : Sayı olmalı (herhangi harf girişine izin vermemeli)
Madde Türü: Ürün reçetesi veya Madde olmalı ( başka bir veri girilmesine izin verilmemeli)
Tedarik Süresi : Sayı olmalı (herhangi harf girişine izin vermemeli)
Eldeki Miktar Sayı olmalı (herhangi harf girişine izin vermemeli)
Sipariş Miktarı Modeli: (LFL;EOQ;FOQ;POQ) olmalı
Güvenlik Stoğu: Sayı olmalı (herhangi harf girişine izin vermemeli)

Çalışmamda userform hazırladım. Başlıkların atanacakları hücrelerde ekteki dosyaya bakıldığında rahatlıkla anlaşılacaktır. Madde ekle butonuna basılacak user form aktif hale gelecek, kullanıcı kutucuklara veri girişini yapacak sonra
kaydet butonu ile veriler hücrelere atanacaktır.

Kısıt: 7 kutucuğunda doldurulması zorunlu olmalıdır. doldurulacaktır. Madde Adı kontrol edilmeli önceden oluşturulmuşsa uyarı verilmelidir.

 

[İhsan Tank]

merhaba arkadaşım

öncelikle bir örnek dosya eklerseniz daha iyi olacaktır

 

[yzu91]

örnek dosya ekledim maddeekle.rar dosyasını açmadınız mı?

 

[İhsan Tank]

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox "EL İLE VERİ GİRİLEMEZ LÜTFEN SEÇİM YAPINIZ"
ComboBox1 = ""
End Sub
Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox "EL İLE VERİ GİRİLEMEZ LÜTFEN SEÇİM YAPINIZ"
ComboBox2 = ""
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Text = Empty Then MsgBox "Madde Numarası Giriniz.": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Madde Adı Giriniz.": Exit Sub
If ComboBox1.Value = Empty Then MsgBox "Madde Türü Seçiniz.": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Tedarik Süresi Giriniz.": Exit Sub
If TextBox4.Text = Empty Then MsgBox "Eldeki Miktar.": Exit Sub
If ComboBox2.Value = Empty Then MsgBox "Sipariş Miktarı Modeli Seçiniz.": Exit Sub
If TextBox6.Text = Empty Then MsgBox "Güvenlik Stoğu Giriniz.": Exit Sub
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir).Value = TextBox1.Text
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("Sayfa1").Range("C" & Bos_Satir).Value = ComboBox1.Text
Sheets("Sayfa1").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("Sayfa1").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Sayfa1").Range("F" & Bos_Satir).Value = ComboBox2.Text
Sheets("Sayfa1").Range("G" & Bos_Satir).Value = TextBox6.Text
MsgBox "Kayıt İşlemi Yapılmıştır = www.excel.web.tr.ailesine teşekkürler"
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox2_Change()
If WorksheetFunction.CountIf(Range("B:B"), TextBox2.Text) > 0 Then
MsgBox "Böyle bir kayıt var."
Exit Sub
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Ürün Reçetesi"
.AddItem "Madde"
End With
With ComboBox2
.AddItem "LFL"
.AddItem "EOQ"
.AddItem "FOQ"
.AddItem "POQ"
End With
End Sub

dosya ektedir

 

[İhsan Tank]

arkdaşlar değişiklik yapılmıştır. bütün sorular cevaplanmıştır