• DİKKAT

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

yıllık ürün takibi

tam olarak hangisini istediğinizi belirtmemişsiniz ama ben size ilk açılış makrosunu vereyim.
bu kodu kitabınızın thisworkbook bölümüne
Kod: 
Private Sub Workbook_Open()
userform1.Show
End Sub
yada
bu kodu boş bir module ekleyiniz
Kod: 
Sub auto_open()
userform1.Show
End Sub
istediğiniz gerçekleşir
 
Yukarıdaki kodu yazdıktan sonra, ilk açılışta "UserForm" Ocak sayfasında çıktı. 01.01.2011 satırındayken formu doldurup "Kaydet" e tıkladığımda, bu tarihe kayıt yapıyor ancak userform kayboluyor. Dosyayı kapatıp açmak zorunda kalıyorum. Ayrıca 02.01.2011 satırına ikinci kayıt girişi yapamıyorum.

Ne yapmamı önerirsiniz?

İlginiz için önceden teşekkürler..
 
assenucler' Alıntı:
Yukarıdaki kodu yazdıktan sonra, ilk açılışta "UserForm" Ocak sayfasında çıktı. 01.01.2011 satırındayken formu doldurup "Kaydet" e tıkladığımda, bu tarihe kayıt yapıyor ancak userform kayboluyor. Dosyayı kapatıp açmak zorunda kalıyorum. Ayrıca 02.01.2011 satırına ikinci kayıt girişi yapamıyorum.

Ne yapmamı önerirsiniz?

İlginiz için önceden teşekkürler..
Genişletmek için tıkla ...

o satır boş ise ilk o satır'a kayıt yapar. sonra aşağıya doğru kayıt yapmaya devam eder.
dilerseniz dosyanızı ekleyin onun üzerinden çözüm üretelim
 
merhaba ihsan bey verdiğiniz kodu denedim "sil" butonu ile kullandığımda tablodaki satır düzenini bozdu ve dediğiniz gibi yaptım sil butonunu kaldırdım.
ancak düzenle butonunun tam olarak ne yaptığını çözemedim. çok değişik şeyler yapıyor. :)

düzenle butonu ile yapmak istediğim şey;
listbox1 de yer alan ay isimlerinden herhangi birini seçtiğimde o ay için girilmiş olan veriler listbox2 de görüntülensin.
ve listbox2 de yer alan veri satırlarından herhangi birini seçtip düzenle butonuna bastığımda o satırda yer alan yanlış veriler texboxlarda görünsün ve ben gerekli değişikliği yaptıktan sonrada kaydet tuşuna basarak veriyi değiştirmek istiyorum.


ayrıca kaydet butonuna bastığımda şu ürün için değer girmediniz 0 olarak girin uyarısı yerine boş bıraktığım yerler kendisi otomatik olarak sıfır yazsaydı çok iyi olurdu.
umarım derdimi anlatabilmişimdir.
verdiğim rahatsızlıktan dolayı hakkınızı helel edin.
 
Son düzenleme:
şimdi düzenle butonu şu şekilde çalışıyor
siz listbox1'de seçtiğiniz sayfa'ya göre listbox2'de çıkan verilerden çıkan verilere tıkladığınızda textbox'a veriler çıkıyor. değişiklik yaptıktan sonra düzenle butonuna tıklayın ve değişikliği yapın.
bu kadar basit bir işlem'i yapıyor.
diğer söylediğiniz bilinçli o şekilde yapıldı yanlışlıkla atladığınız textbox'a dönmenizi sağlıyor bundan dolayı bu şekilde tasarlandı
 
o şekilde çalışmıyor benimde o butondan istediğim öyle yapması ama yapmıyor.
listbox1 den herhangi bir ay seçtiğimde verileri listbox2 de görüntüleniyor.
varsayalım ki görüntülenen üç satır var ve ben ikinci satırda düzenleme yapmak istiyorum.
ben ikinci satırı seçiyorum ancak ikinci satırın varolan verileri textboxlarda görünmüyor.
ve ben olabilir diye denedim ben satırı seçip texbox1 e farklı bir veri yazdım ve düzenle dedim ama yapmıyor.
 
şimdi farkettim 5 ürün var ama listbox2 de 4 tane ürüne ait veriler görünüyor bunu nasıl düzeletebilirim.
5. ürünün değeri görüntülenmiyor.
 
sinan1365' Alıntı:
şimdi farkettim 5 ürün var ama listbox2 de 4 tane ürüne ait veriler görünüyor bunu nasıl düzeletebilirim.
5. ürünün değeri görüntülenmiyor.
Genişletmek için tıkla ...

merhaba
kodun tamamını bununla değişin lütfen
Kod: 
Option Explicit
Private Sub CommandButton1_Click()
Dim s1
If ListBox1.ListIndex = -1 Then
MsgBox "Lütfen Sayfa Seçiniz", vbCritical
ListBox1.SetFocus
ElseIf TextBox1 = Empty Then
MsgBox "Ürün1'i Boş Geçtiniz Giriş Yok ise Lütfen 0 Giriniz", vbCritical
TextBox1.SetFocus
ElseIf TextBox2 = Empty Then
MsgBox "Ürün2'i Boş Geçtiniz Giriş Yok ise Lütfen 0 Giriniz", vbCritical
TextBox2.SetFocus
ElseIf TextBox3 = Empty Then
MsgBox "Ürün3'i Boş Geçtiniz Giriş Yok ise Lütfen 0 Giriniz", vbCritical
TextBox3.SetFocus
ElseIf TextBox4 = Empty Then
MsgBox "Ürün4'i Boş Geçtiniz Giriş Yok ise Lütfen 0 Giriniz", vbCritical
TextBox4.SetFocus
ElseIf TextBox5 = Empty Then
MsgBox "Ürün5'i Boş Geçtiniz Giriş Yok ise Lütfen 0 Giriniz", vbCritical
TextBox5.SetFocus
Else
s1 = ListBox1.Text
Sheets(s1).[B33].End(3).Offset(1, 0) = TextBox1.Text
Sheets(s1).[C33].End(3).Offset(1, 0) = TextBox2.Text
Sheets(s1).[D33].End(3).Offset(1, 0) = TextBox3.Text
Sheets(s1).[E33].End(3).Offset(1, 0) = TextBox4.Text
Sheets(s1).[F33].End(3).Offset(1, 0) = TextBox5.Text
Sheets(s1).Select
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
Private Sub CommandButton2_Click()
Dim sat, cevap
sat = ListBox2.ListIndex + 2
cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If cevap = vbNo Then Exit Sub
Sheets(ListBox1.Text).Select
ListBox1.RowSource = ""
Cells(sat, "B") = TextBox1.Value
Cells(sat, "C") = TextBox2.Value
Cells(sat, "D") = TextBox3.Value
Cells(sat, "E") = TextBox4.Value
Cells(sat, "F") = TextBox5.Value
liste
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
liste
End Sub
Private Sub ListBox2_Click()
Dim s1, Bulunan_Satir_No
s1 = ListBox1.Text
Sheets(s1).Select
Bulunan_Satir_No = ListBox2.ListIndex + 2
TextBox1.Text = Sheets(s1).Range("B" & Bulunan_Satir_No).Value
TextBox2.Text = Sheets(s1).Range("C" & Bulunan_Satir_No).Value
TextBox3.Text = Sheets(s1).Range("D" & Bulunan_Satir_No).Value
TextBox4.Text = Sheets(s1).Range("E" & Bulunan_Satir_No).Value
TextBox5.Text = Sheets(s1).Range("F" & Bulunan_Satir_No).Value
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "OCAK"
ListBox1.AddItem "ŞUBAT"
ListBox1.AddItem "MART"
ListBox1.AddItem "NİSAN"
ListBox1.AddItem "MAYIS"
ListBox1.AddItem "HAZİRAN"
ListBox1.AddItem "TEMMUZ"
ListBox1.AddItem "AĞUSTOS"
ListBox1.AddItem "EYLÜL"
ListBox1.AddItem "EKİM"
ListBox1.AddItem "KASIM"
ListBox1.AddItem "ARALIK"
End Sub
Private Sub liste()
ListBox2.Clear
Dim I
For I = 2 To 33
If Sheets(ListBox1.Text).Cells(I, 2) = "" Then GoTo 10:
ListBox2.AddItem (Sheets(ListBox1.Text).Cells(I, 1) & "     " & _
                  Sheets(ListBox1.Text).Cells(I, 2) & "     " & _
                  Sheets(ListBox1.Text).Cells(I, 3) & "     " & _
                  Sheets(ListBox1.Text).Cells(I, 4) & "     " & _
                  Sheets(ListBox1.Text).Cells(I, 5) & "     " & _
                  Sheets(ListBox1.Text).Cells(I, 6))
10: Next
End Sub
dnedim umarım bir yeri atlamamışımdır bu sefer
 
yeni kodu denedim sorunsuz çalışıyor.
elinize sağlık
herşey için çok teşekkür ediyorum.
Allah sizden razı olsun.
kolaygelsin.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst