UserForma bilgi girişi

[yamahato]

ekteki dosyamda bilgiler sayfası var .bu sayfa benim stoklarım var bu sayfaya bir vb ile bilgi girişi yapacağım . tasarladığım userform ile bu işi yapmaya çalışıyorum.fakat ne yaptıysam birtürlü userforma girdiğim bilgileri bilgiler sayfasına aktaramadım.
Bana bu konuda yardımcı olurmusunuz.

 

[Ömer]

Merhaba,

Bu şekilde deneyin..

Private Sub CommandButton1_Click()
 
Dim i As Long, SiraNo As Long, s1 As Worksheet
 
Set s1 = Sheets("BİLGİLER")
SiraNo = s1.[A65536].End(3).Row + 1
 
[COLOR=green]' ************* eskik veri girişi kontrolü******************[/COLOR]
For i = 1 To 6
    If Controls("textbox" & i) = "" Then
        MsgBox "Veri Girişi Eksiktir.!"
            TextBox1.SetFocus
            Exit Sub
    End If
Next i
[COLOR=green]' ****************** veri girişi ***********************[/COLOR]
s1.Range("A" & SiraNo) = SiraNo - 1
s1.Range("B" & SiraNo) = TextBox1.Value
s1.Range("C" & SiraNo) = TextBox3.Value
s1.Range("D" & SiraNo) = TextBox2.Value
s1.Range("E" & SiraNo) = TextBox4.Value
s1.Range("F" & SiraNo) = TextBox5.Value
s1.Range("H" & SiraNo) = TextBox6.Value
[COLOR=green]' *************** kayıt sonrası temizlik ***************[/COLOR]
 
TextBox1.Value = "": TextBox3.Value = "": TextBox2.Value = ""
TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
TextBox1.SetFocus
 
End Sub

 

[İhsan Tank]

merhaba
ömer hocam'ın verdiğine Alternatif olsun ( Ömer hocam İncelerseniz Yanlışım varsa düzelteyim )

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
Son_Dolu_Satir = Sheets("BİLGİLER").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("BİLGİLER").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("BİLGİLER").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("BİLGİLER").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("BİLGİLER").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("BİLGİLER").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("BİLGİLER").Range("G" & Bos_Satir).Value = TextBox6.Text
Else
MsgBox "Stok Numrası Giriniz"
End If
Else
MsgBox "Malzeme Adı Giriniz"
End If
End Sub

eki inceleyiniz

 

[metinozlu]

Dosyanız ektedir.

 

[yamahato]

Kodlarınız iş yaradı .Teşekkür ederim uzmanlarım.
bir sıkıntım daha var var . bilgi girişini yaptım. şimdide bilgi çıkışı yapmada .
ekteki dosyaya bir bakabilirmisiniz.
sıkıntılar şu AYNI ANDA 2 İŞLEM YAPMASI
1-userform da bulunan bilgileri girip kaydet butonuna basınca bilgilerim sayfasında o stok numarasını bulup çıkış yapılan miktar kadar malzemenin stok miktarını düşürecek.Aynı anda çıkışlar sayfasındada gözükmeli. bu ikisini aynı anda nasıl yaparız

 

[Ömer]

Açıklamanız yetersiz, detaylı açıklamaya yapmaya özen gösterin. Eklediğiniz dosyada örnek teşkil etmesi açısında bilgi ekleyerek ( çıkış sayfası ) dosya üzerinde yapılanı manuel hazırlayarak açıklayınız.

.

 

[İhsan Tank]

merhaba
sorularınızı daha açık sorunuz

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("ÇIKIŞ KAYITLARI").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("ÇIKIŞ KAYITLARI").Range("A" & Bos_Satir).Value = TextBox16.Text
Sheets("ÇIKIŞ KAYITLARI").Range("B" & Bos_Satir).Value = TextBox13.Text
Sheets("ÇIKIŞ KAYITLARI").Range("C" & Bos_Satir).Value = TextBox14.Text
Sheets("ÇIKIŞ KAYITLARI").Range("D" & Bos_Satir).Value = TextBox15.Text
Sheets("ÇIKIŞ KAYITLARI").Range("E" & Bos_Satir).Value = TextBox2.Text
Sheets("ÇIKIŞ KAYITLARI").Range("F" & Bos_Satir).Value = TextBox11.Text
Sheets("ÇIKIŞ KAYITLARI").Range("G" & Bos_Satir).Value = TextBox12.Text
End Sub

ayrıca userform'a koyduğunuz textbox' numaralarına dikkat ediniz.
örnek ekte

 

[yamahato]

Verilen kodları girdim işe yaradı ama birkaç sıkıntı var.
UMARIM SORUNUMU ÇÖZMEME YARDIM EDERSİNİZ
SORUNLARIM ŞUNLAR
1-çıkış menüsünde stok aramaya veri girmeye başladığımda bilgiler sayfasından girdiğim stok numaralı malzemenin,malzeme adı verisi çıkış menüsünde kendi yerinde otomatik gözüksün
2- cıkış menüsüne yazdığım bilgiler çıkış kayıtlarında gerekli yerlere kaydoluyor.ama bilgiler sayfasındaki o stok numaralı malzemenin stok sayısında çıkış yapılan miktar düşmüyor.yani ççıkış yapılan stok numaralı malzeme depoda azaldığı halde kayıtlarda hep ilk miktar gözüküyor.
2-çıkış kayıtları sayfasında Asutununda bulunan s.nu nasıl her kayıtta artar yani 1.2.3.4 şeklinde otomatik olarak artar.

 

[yamahato]

bu işlemi hangi kodla yapmalıyım

 

[İhsan Tank]

bu işlemi hangi kodla yapmalıyım

merhaba
2. sorunuzun cevabı kod'da

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("ÇIKIŞ KAYITLARI").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("ÇIKIŞ KAYITLARI").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("ÇIKIŞ KAYITLARI").Range("A:A")) + 1
Sheets("ÇIKIŞ KAYITLARI").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("ÇIKIŞ KAYITLARI").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("ÇIKIŞ KAYITLARI").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("ÇIKIŞ KAYITLARI").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("ÇIKIŞ KAYITLARI").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("ÇIKIŞ KAYITLARI").Range("G" & Bos_Satir).Value = TextBox6.Text
Sheets("ÇIKIŞ KAYITLARI").Range("H" & Bos_Satir).Value = TextBox7.Text
Sheets("ÇIKIŞ KAYITLARI").Range("I" & Bos_Satir).Value = TextBox8.Text
End Sub

1.sorunuz için kalan sayfasını inceleyiniz

 

[yamahato]

uzmanlarımızın yardımlarını bekliyoruz.

 

[İhsan Tank]

merhaba
#10 nolu mesajı güncelledim inceleyiniz