Düzelt butonunda sorun ...

[manly]

Hocam sayfa açılınca, "müşteri numarası giriniz" textbox hanesine 6 yazıp ARAMA butonuna basıyorum.. 6 numaralı müşteri bilgileri geldiğinde, miktar hanesindeki rakamları siliyorum ve DÜZELT butonuna bastığımda hata veriyor...

 

[halit3]

Hocam sayfa açılınca, "müşteri numarası giriniz" textbox hanesine 6 yazıp ARAMA butonuna basıyorum.. 6 numaralı müşteri bilgileri geldiğinde, miktar hanesindeki rakamları siliyorum ve DÜZELT butonuna bastığımda hata veriyor...

Yazdığımız kod listbax nesnesinden seçim yaptıktan sonra çalışyor
arama düğmesi ile bulunan değerleri değiştirmek için

burayı

sat = ListBox1.ListIndex + 1

bununla değiştirin.

sat = TextBox2.Text + 2

 

[manly]

Hocam dediğinizi yaptım. Bu seferde bu kodun üzeri sarı olarak hata verdi..
Cells(sat, "D") = TextBox4.Value

 

[halit3]

Bunu denermisin

Private Sub CommandButton6_Click()
If TextBox1.Text = Empty Then MsgBox "Tarih Boş.", , "Sezer ÇAY": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Müşteri No Boş.", , "Sezer ÇAY": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Masa No Boş.", , "Sezer ÇAY": Exit Sub
If TextBox4.Text = Empty Then MsgBox "Giriş Saati Boş.", , "Sezer ÇAY": Exit Sub

sat = TextBox2.Text + 2
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("VERİ").Select
ListBox1.RowSource = ""
Cells(sat, "A") = TextBox1.Value
Cells(sat, "B") = TextBox2.Value
Cells(sat, "C") = TextBox3.Value
Cells(sat, "D") = TextBox4.Value
Cells(sat, "G") = TextBox7.Value
Cells(sat, "I") = TextBox9.Value
Cells(sat, "K") = TextBox11.Value
Cells(sat, "M") = TextBox13.Value
Cells(sat, "O") = TextBox15.Value
Cells(sat, "Q") = TextBox17.Value
Cells(sat, "S") = TextBox19.Value
Cells(sat, "U") = TextBox21.Value
Cells(sat, "W") = TextBox23.Value
Cells(sat, "Y") = TextBox25.Value
Cells(sat, "AA") = TextBox27.Value
Cells(sat, "AC") = TextBox29.Value
Cells(sat, "AE") = TextBox31.Value
Cells(sat, "AG") = TextBox33.Value
Cells(sat, "AI") = TextBox35.Value
Cells(sat, "AK") = TextBox37.Value
Cells(sat, "AM") = TextBox39.Value
Cells(sat, "AO") = TextBox41.Value
Cells(sat, "AQ") = TextBox43.Value
Cells(sat, "AS") = TextBox45.Value
Cells(sat, "AU") = TextBox47.Value
Cells(sat, "AW") = TextBox49.Value
Cells(sat, "AY") = TextBox51.Value
Cells(sat, "BA") = TextBox53.Value
Cells(sat, "BC") = TextBox55.Value
Cells(sat, "BE") = TextBox57.Value
Cells(sat, "BG") = TextBox59.Value
Cells(sat, "BI") = TextBox61.Value
Cells(sat, "BK") = TextBox63.Value
Cells(sat, "BM") = TextBox65.Value
Cells(sat, "BO") = TextBox67.Value
Cells(sat, "BQ") = TextBox69.Value
Cells(sat, "BS") = TextBox71.Value
Cells(sat, "BU") = TextBox73.Value
Cells(sat, "BW") = TextBox75.Value
Cells(sat, "BY") = TextBox77.Value

UserForm_Initialize
CommandButton7_Click
End Sub

 

[manly]

Denedim hocam aynı hatayı verdi yine...

 

[halit3]

kodu çalıştır hatayı aldığın zaman sayfa korumasını kontrol et sayfa koruması olduğu zaman bu kod çalışmaz.

 

[manly]

Hocam dediğiniz gibi korumayı ve VERi deki kodu kaldırdım..DÜZELTME çalıştı ama başka bir sorun çıktı..Miktar hanesi boş olduğu halde TUTAR hanesindeki veri sıfırlanmıyor...

 

[manly]

Hocam hala sayfa koruması çalışıyor...Ben kaldırıyorum, o tekrar aktif oluyor..

 

[halit3]

Bakın siz bu formu başka bir yerden almışsınız kendinize uyarlamaya çalışıyorsunuz.

excel bilgi seviyeniz ne kadar bunu bilmiyorum. ama userformdaki textbox nesnelerin bir çoğu sınırlı veri girişi engellenmiş onun için bazılarını silmiyor değiştirmiyor veya veri gözüküyor. textbox nesnelerin Locked özellikleri true olduğu için bu nesnelere veri girişi sınırlandırılmış.

bu konuda başka cevap vermiyeceğim. iyi çalışmalar.

 

[manly]

Bu formu baştan sona buradan aldığım bilgilerle düzenledim...Fikirleri ben verdim hocalarım kod yazdı..Bu hale kadar getirdim..Şimdi de tek sorun kaldı... miktar hanesine rakam yazdığımda FİYAT yazan çalışma sayfasındaki değerle çarpıp tutar hanesine yazması,Tutarların genel toplamını da D sütununa aktarması...

Size teşekkür ederim..yardımlarınızdan dolayı... bunu da başaracağım inşallah..