Usserform yardım

[ogrencı4]

Merhaba
Ben satış tablosu hazırlıyorum bir yere kadar geldim.
satış mallarını süzdürme işlemini yapıyorum
fakat ana UserForm1 herhangi bir tuşa (enter olabilir.) bastığımda satış malları formu açılması ve ürünün adını oraya yazdığımda seçebilmem gerekli.

son olarak UserForm1 kaydet dedikten sonra içindeki verileri tekrar giriş için silmesi lazım.
Şimdiden teşekkürler.:roll:

 

[cems]

Her iki userformun altına bir command button nesnesi koyun ,
Form_Satis_Mali formundaki tuşa çift tıklayın ve

Private Sub CommandButton1_Click()
Unload Form_Satis_Mali
UserForm1.Show
End Sub

Yapıştırın ya da yazın

Sonra userform1 altındaki tuşa tıklayın ve

Private Sub CommandButton1_Click()
Unload UserForm1
Form_Satis_Mali.Show
End Sub

Yapıştırın ya da yazın . Bunlar formlar arasında gezmenizi sağlar,biri açılırken diğeri kapanır .

Kayıt yapıldıktan sonra yeni kayda formu temizlemek için de

Private Sub CommandButton1_Click()
[B]Sheets("extra").select[/b]
    Son_Dolu_Satir = Sheets("EXTRA").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("EXTRA").Range("A" & Bos_Satir).Value = TextBox1.Text
    Sheets("EXTRA").Range("B" & Bos_Satir).Value = TextBox2.Text
    Sheets("EXTRA").Range("G" & Bos_Satir).Value = TextBox4.Text
    Sheets("EXTRA").Range("M" & Bos_Satir).Value = TextBox6.Text
    Sheets("EXTRA").Range("H" & Bos_Satir).Value = TextBox7.Text
    Sheets("EXTRA").Range("C" & Bos_Satir).Value = ComboBox1.Text
    Sheets("EXTRA").Range("D" & Bos_Satir).Value = ComboBox2.Text
    Sheets("EXTRA").Range("E" & Bos_Satir).Value = ComboBox3.Text
    
    MsgBox " Kayıt başarı ile gerçekleşti "
    
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox4.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    ComboBox1.Text = ""
    ComboBox2.Text = ""
    ComboBox3.Text = ""
    
    MsgBox " Form yeni bir kayıt için boşaltıldı "
    
End Sub

Şeklinde yapıştırın veya yazın. Kayıt yapılırken ve temizlerken msgbox ile teyid edecektir.
Bu komutların sonunda her zaman

 Thisworkbook.save[/code ]

olmalıdır , aksi durumda data kaydedilse de çıkış esnasında save edilmediğinden uçabilir.

PS:   " commandbutton1 " Normalde bir dizide çalışmaz çakışır, ancak buradaki bütün 1 ler ayrı yerlerde.

 

[ogrencı4]

yardımınız için teşekkür ederim
fakat satış formunda aradığım ürünü bulduğumda tekrar usserform1 sayfasına seçmiş olduğum ürünü getirmesi için ne yapabilirim.

 

[cems]

yardımınız için teşekkür ederim
fakat satış formunda aradığım ürünü bulduğumda tekrar usserform1 sayfasına seçmiş olduğum ürünü getirmesi için ne yapabilirim.

userformdan userforma geçmesi anlamsız , userform1de olan satış malına ait comboboxu vbe ekranında açıp üstüne tek tıklayıp seçtiginde sol altta açılan proterties içinde

rowsource yi bul ve extra!f2:f100 yazıp save edip çıkınca H sütunundaki mallar comboboxta görünür ve seçilir hale gelir, kayıt tuşuna basınca da kaydedeceğin yere atar.

Bu arada kaydetme kodlarına aşağıda kalın olarak düzelttiğim satır da olmalı , bu kaydedilecek sayfayı seçtirir.