Soru Listboxtaki 2 Veriyi Yanlış Kaydetme Sorunu

[tane45]

Merhabalar,
Kendi yazmış olduğum programda listboxta bulunan aynı malzeme koduna sahip 2 farklı kayıt var. Fakat satırlarda sadece malzeme kodu ve firma aynı kalan tüm bilgiler farklı. Problem şu ki 2. satırda bulunan bilgilere çift tıklayıp değişiklik yapmak istediğim zaman her zaman değişikliği ilk satırdaki kod üzerine yapıyor. Bu hatayı bir türlü çözemedim.
Bir diğer problem ise yeni kayıt veya değişiklik yapmak istediğim zaman değişiklikleri kaydetmek istiyor musunuz diye sorduruyorum güzel hoş ama kaydetmek istemediğimde HAYIR butonuna bastığım zaman yine de kaydediyor. Bunun içinde yardım rica ediyorum.

Dosya Ektedir.

 

[halit3]

Bence stok sayfası ve Sayfa3 sayfaları için A sutünuna birer sutün ekleyiniz ve A sutünuna bir den başlayarak artarak benzersiz sayı verin sonrada A sutünundaki sayıyı referans alarak kayıt işlemlerini gerçekleştiriniz.

 

[tane45]

Bence stok sayfası ve Sayfa3 sayfaları için A sutünuna birer sutün ekleyiniz ve A sutünuna bir den başlayarak artarak benzersiz sayı verin sonrada A sutünundaki sayıyı referans alarak kayıt işlemlerini gerçekleştiriniz.

Çok mantıklı, bir deneyeyim. Teşekkür ederim.

 

[tane45]

Bence stok sayfası ve Sayfa3 sayfaları için A sutünuna birer sutün ekleyiniz ve A sutünuna bir den başlayarak artarak benzersiz sayı verin sonrada A sutünundaki sayıyı referans alarak kayıt işlemlerini gerçekleştiriniz.

Merhaba,

Denedim fakat sistem aramayı ve listelemeyi kod bazında yaptığı için problem yaşanıyor.

 

[halit3]

Ben dosyana bek hakim değilim ancak
Değiştir komut duğmen için

Set ara = Sheets("stok").Range("b:b").Find(ComboBox1.Text, , xlValues, xlWhole)
sayfaya A sutütuta bir satır ekleyince kırmızı yerler c olması lazm ancak benzersiz veriler için ise A sutünunda yukarıdaki mesajımda bahsettiğim gibi sayılar varsa (artarak) o zaman kod aşağıdaki gibi olmalı

Private Sub CommandButton2_Click()
Set ara = Sheets("stok").Range("A:A").Find(ComboBox1.Text, , xlValues, xlWhole)
If Not ara Is Nothing Then
Sheets("stok").Cells(ara.Row, 1).Value = ComboBox2.Text
Sheets("stok").Cells(ara.Row, 6).Value = ComboBox3.Text
Sheets("stok").Cells(ara.Row, 7).Value = ComboBox4.Text
Sheets("stok").Cells(ara.Row, 5).Value = ComboBox5.Text
Sheets("stok").Cells(ara.Row, 8).Value = TextBox6.Text
Sheets("stok").Cells(ara.Row, 10).Value = TextBox7.Text
Sheets("stok").Cells(ara.Row, 9).Value = Now
Application.ScreenUpdating = False
If MsgBox("YAPILAN İŞLEMLERİ KAYDETMEK İSTİYOR MUSUNUZ?", vbYesNo + vbQuestion, "KAYDET") = vbYes Then
ThisWorkbook.Save
End If
Call listele
MsgBox "ÜRÜN GÜNCELLENDİ."
ComboBox3.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox5.Text = ""
ComboBox2.Text = ""
ComboBox1.Text = ""
ComboBox4.Text = ""
End If
End Sub

 

[tane45]

Toparlayacak olursak son durum şu oldu; Combox yerine textbox yazıldığında düzeldi. Textbox a göre arama yapıyor.

Private Sub CommandButton2_Click()
Set ara = Sheets("stok").Range("A:A").Find(TextBox1.Text, , xlValues, xlWhole)

Diğer sorumu da yanıtlayabilirseniz sevinirim. Ürün güncellerken ekrana gelen evet hayır sorusunda hayır seçeneğini seçtiğimde de kayıt ediyor. bunu nasıl giderebilirim.

 

[halit3]

Uyarı mesajı böyle olmalı
ben kırmızı yerlerin satırlarını değiştirdim.

Private Sub CommandButton2_Click()
Set ara = Sheets("stok").Range("A:A").Find(ComboBox1.Text, , xlValues, xlWhole)
If Not ara Is Nothing Then
Application.ScreenUpdating = False
If MsgBox("YAPILAN İŞLEMLERİ KAYDETMEK İSTİYOR MUSUNUZ?", vbYesNo + vbQuestion, "KAYDET") = vbYes Then

Sheets("stok").Cells(ara.Row, 1).Value = ComboBox2.Text
Sheets("stok").Cells(ara.Row, 6).Value = ComboBox3.Text
Sheets("stok").Cells(ara.Row, 7).Value = ComboBox4.Text
Sheets("stok").Cells(ara.Row, 5).Value = ComboBox5.Text
Sheets("stok").Cells(ara.Row, 8).Value = TextBox6.Text
Sheets("stok").Cells(ara.Row, 10).Value = TextBox7.Text
Sheets("stok").Cells(ara.Row, 9).Value = Now

ThisWorkbook.Save

Call listele
MsgBox "ÜRÜN GÜNCELLENDİ."
ComboBox3.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox5.Text = ""
ComboBox2.Text = ""
ComboBox1.Text = ""
ComboBox4.Text = ""
End If
End If
End Sub

 

[tane45]

Teşekkür ederim. Yardımcı oldunuz. Sorun çözüldü

 

[halit3]

İyi çalışmalar