• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tarihe Göre Malzeme Giriş Ekleme

T

teknadir

Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
Ekte gönderdiğim dosyada Programa Giriş/Malzeme Say/Ambara Malzeme Girişi düğmeleri ile ulaşılan form ile "ambargr" adlı sayfaya formdan seçilen tarihe ait sütunda yine formdan seçilen malzeme adının bulunduğu satıra veri girişi yapmak istiyorum. Formda malzeme adı seçildiğinde fiyatı kısmı kendiliğinden gelmelidir.
 

Ekli dosyalar

Son düzenleme:
teknadir' Alıntı:
Ekte gönderdiğim dosyada Programa Giriş/Malzeme Say/Ambara Malzeme Girişi düğmeleri ile ulaşılan form ile "ambargr" adlı sayfaya formdan seçilen tarihe ait sütunda yine formdan seçilen malzeme adının bulunduğu satıra veri girişi yapmak istiyorum. Formda malzeme adı seçildiğinde fiyatı kısmı kendiliğinden gelmelidir.
Genişletmek için tıkla ...

Merhaba
Korhan hoca olmasa ben olsam olmaz mı_?
Olursa bu hangi sütuna kayıt yapacak onu bilmiyorum userform'da tarih girişi yazmışsınız ama herhangi bir giriş yok
 
İhsan Tank' Alıntı:
Merhaba
Korhan hoca olmasa ben olsam olmaz mı_?
Olursa bu hangi sütuna kayıt yapacak onu bilmiyorum userform'da tarih girişi yazmışsınız ama herhangi bir giriş yok
Genişletmek için tıkla ...

Olmaz mı İhsan Bey. Bu çalışma bu hale gelene kadar Korhan Bey'in çok yardımını gördüm. O yüzden özellikle ondan yardım istedim. Tabii sizinde yardımlarınızı unutmadığımı belirtmek istedim.
Biraz açıklama yapayım. Bu çalışmada Sabit Bilgiler formunda girilen tarih ile bir buton sayesinde "liste" ve "ambargr" sayfalarına 1. satıra tarih girişi yapılıyor. Hatırlarsanız bu kodu siz yazmıştınız. Şimdi istediğim Malzeme Say/Ambara Malzeme Girişi formu ile tarih seçilecek. "ambargr" sayfasının 1. satırında seçilen tarih yok ise uyarı verecek. Var ise seçilen tarihin bulunduğu sütunda yine seçilen malzemenin bulunduğu satıra "Miktarı" kısmında yazılan değeri kaydedecek.(2 basamaklı ondalık sayı olarak.) Malzeme seçildiğinde "Fiyatı" ve "Tutarı" kısımları kendiliğinden dolacak.
Bilmem anlatabildim mi?

Bu arada önceki mesajımda yer alan dosyada (Ambara Malzeme Girişi formunda) küçük bir değişiklik yaptım.
 
Bunu anlamadım. Lütfen daha detaylı bilgi ve kısa olmasına özen gösteriniz.
 
Şöyle açıklama yapayım:

Programa Giriş/Malzeme Say/Ambara Malzeme Girişi ile açılan formda;

Örnek olarak calendar nesnesinden 12 Kasım 2011 tarihi seçilmiş olsun. Combobox ile seçilen malzememiz de ekmek olsun. Formda miktarı yazan texboxa 96 değeri girilmiş olsun. "ambargr" sayfamızda 12 Kasım 2011 tarihi "CB" sütununda bulunuyor. Ekmek ise 17 satırda. Yukarıdaki veri girişi ile CB17 hücresine 96,00 yazılmasını istiyorum.
 

Ekli dosyalar

teknadir' Alıntı:
Şöyle açıklama yapayım:

Programa Giriş/Malzeme Say/Ambara Malzeme Girişi ile açılan formda;

Örnek olarak calendar nesnesinden 12 Kasım 2011 tarihi seçilmiş olsun. Combobox ile seçilen malzememiz de ekmek olsun. Formda miktarı yazan texboxa 96 değeri girilmiş olsun. "ambargr" sayfamızda 12 Kasım 2011 tarihi "CB" sütununda bulunuyor. Ekmek ise 17 satırda. Yukarıdaki veri girişi ile CB17 hücresine 96,00 yazılmasını istiyorum.
Genişletmek için tıkla ...

Merhaba
Önce combobox1'e sağ tuş tıklayın ve rowsource'nin karşısını boşaltın. sonra userform'un kod bölümüne
Kod: 
Private Sub cmdAnamenu_Click()
AmbarGr.Hide
AnaForm.Show
End Sub
Private Sub ComboBox1_Change()
TextBox2 = WorksheetFunction.VLookup(ComboBox1, Sheets("ambargr").Range("B2:D" & Rows.Count), 3, 0)
End Sub
Private Sub CommandButton1_Click()
Dim ts, kaplan
For ts = 2 To Sheets("ambargr").Cells(Rows.Count, "B").End(xlUp).Row
For kaplan = 8 To Sheets("ambargr").Cells(1, Columns.Count).End(xlToLeft).Column
If Sheets("ambargr").Cells(1, kaplan) = Calendar1.Value Then
If Sheets("ambargr").Cells(ts, "B") = ComboBox1 Then
Sheets("ambargr").Cells(ts, kaplan) = CDbl(TextBox3)
End If
End If
Next
Next
End Sub
Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
Private Sub TextBox1_Change()
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub
Private Sub UserForm_Initialize()
Dim ts
For ts = 2 To Sheets("ambargr").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.AddItem Sheets("ambargr").Cells(ts, "B")
Next
End Sub
 
Teşekkürler Sayın İhsan Tank Bey,
Çalışmamın biraz daha geliştirilmesi gerekiyor. Size 1-2 sorum daha olacak.
 
Malzeme Say düğmesi ile açılan formda Giriş Yapılan Miktar adlı textbox "ambargr" sayfasında girilen verilere göre doldurulmasını istiyorum. Sol taraftaki listboxtan seçilen malzeme için az önce yukarıda yazdığınız kodlar ile "ambargr" sayfasında ne kadar giriş yapıldığını Giriş Yapılan Miktar adlı textboxta örebilir miyiz?
 
teknadir' Alıntı:
Az önce yazdığınız kodlarla ilgili olarak;
Ambara Malzeme Girişi Yap formu çalışıyor ancak Malzeme Kayıt formu ile yaptığım kayıtlar Ambara Malzeme Girişi Yap formundaki comboboxta görünmüyor.
Genişletmek için tıkla ...

Doğrudur çalışmaya bilir. Ben ona göre yazdım kodu siz o userformda kullanacağınızı söylediniz bende öyle yazdım.
 
İhsan Tank' Alıntı:
Doğrudur çalışmaya bilir. Ben ona göre yazdım kodu siz o userformda kullanacağınızı söylediniz bende öyle yazdım.
Genişletmek için tıkla ...

Önce çalışmadı. Konu altına mesaj yazdım. Sonra dosyayı kapatıp açtım çalıştı. Acaba ben mi görmedim dedim ve o mesajı değiştirdim. Ama ben mesajı değiştirene kadar siz okumuşsunuz. Malzeme Kayıt ile yeni kaydedilen malzemeler dosya açılıp kapatılmadan Ambara Malzeme Girişi Yap formundaki comboboxta görünmüyor. Nasıl düzeltebiliriz?
 
teknadir' Alıntı:
Önce çalışmadı. Konu altına mesaj yazdım. Sonra dosyayı kapatıp açtım çalıştı. Acaba ben mi görmedim dedim ve o mesajı değiştirdim. Ama ben mesajı değiştirene kadar siz okumuşsunuz. Malzeme Kayıt ile yeni kaydedilen malzemeler dosya açılıp kapatılmadan Ambara Malzeme Girişi Yap formundaki comboboxta görünmüyor. Nasıl düzeltebiliriz?
Genişletmek için tıkla ...

Merhaba
Tam olarak ne istediğinizi anlamadım ama umarım işinize yarar.
Kod: 
Private Sub cmdAnamenu_Click()
AmbarGr.Hide
AnaForm.Show
End Sub
Private Sub ComboBox1_Change()
TextBox2 = WorksheetFunction.VLookup(ComboBox1, Sheets("ambargr").Range("B2:D" & Rows.Count), 3, 0)
End Sub
Private Sub CommandButton1_Click()
Dim ts, kaplan
For ts = 2 To Sheets("ambargr").Cells(Rows.Count, "B").End(xlUp).Row
For kaplan = 8 To Sheets("ambargr").Cells(1, Columns.Count).End(xlToLeft).Column
If Sheets("ambargr").Cells(1, kaplan) = Calendar1.Value Then
If Sheets("ambargr").Cells(ts, "B") = ComboBox1 Then
Sheets("ambargr").Cells(ts, kaplan) = CDbl(TextBox3)
End If
End If
Next
Next
UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
Private Sub TextBox1_Change()
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub
Private Sub UserForm_Initialize()
Dim ts
For ts = 2 To Sheets("ambargr").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.AddItem Sheets("ambargr").Cells(ts, "B")
Next
End Sub
 
İhsan Tank' Alıntı:
Merhaba
Tam olarak ne istediğinizi anlamadım ama umarım işinize yarar.
Genişletmek için tıkla ...

Malzeme Kayıt düğmesi ile açılan formda malzeme kaydı yapıyorum. Sonra Anamenü/Malzeme Say/Ambara Malzeme Girişi formunu açtığımda malzeme seçilecek olan comboboxta son eklediğim malzeme görünmüyor. Ancak dosyayı kapatıp tekrar açtığımda görünüyor.
 
teknadir' Alıntı:
Malzeme Kayıt düğmesi ile açılan formda malzeme kaydı yapıyorum. Sonra Anamenü/Malzeme Say/Ambara Malzeme Girişi formunu açtığımda malzeme seçilecek olan comboboxta son eklediğim malzeme görünmüyor. Ancak dosyayı kapatıp tekrar açtığımda görünüyor.
Genişletmek için tıkla ...

Verdiğim kodda bir sorun gözükmüyor ben deniyorum problem yok.
 
Tamam. Sorun çözüldü. Ancak aşağıdaki bağlantıda yer alan soruma cevap alamadım. Yardımlarınızı bekliyorum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst