-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Düzelt butonunda sorun ...
- Konbuyu başlatan manly
- Başlangıç tarihi
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Düzelt buttonunun kodunu bununla değiştirin.
Kod:
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
sat = TextBox2.Text + 1
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("2011 SİPARİŞLER").Select
Cells(sat, "A") = TextBox1.Value
'Cells(sat, "B") = TextBox2.Value
Cells(sat, "C") = TextBox3.Value
Cells(sat, "D") = TextBox4.Value
Cells(sat, "E") = TextBox5.Value
Cells(sat, "F") = TextBox6.Value
Cells(sat, "G") = TextBox7.Value
Cells(sat, "H") = TextBox8.Value
Cells(sat, "I") = TextBox9.Value
Cells(sat, "J") = TextBox10.Value
Cells(sat, "K") = TextBox11.Value
Cells(sat, "L") = TextBox12.Value
Cells(sat, "M") = TextBox13.Value
Cells(sat, "N") = TextBox14.Value
Cells(sat, "O") = TextBox15.Value
Cells(sat, "P") = TextBox16.Value
Cells(sat, "Q") = TextBox17.Value
Cells(sat, "R") = TextBox18.Value
Cells(sat, "S") = TextBox19.Value
Cells(sat, "T") = TextBox20.Value
Cells(sat, "U") = TextBox21.Value
Cells(sat, "V") = TextBox22.Value
Cells(sat, "W") = TextBox23.Value
Cells(sat, "X") = TextBox24.Value
Cells(sat, "Y") = TextBox25.Value
Cells(sat, "Z") = TextBox26.Value
CommandButton7_Click
End Subnot : kodun düzgün çalışması için A sutunundaki sıra numaraları ardışık eksiksiz düzgün sıralammış olmalı ve sıra numarası yazılı textbox2 nesnesine dokunmayın.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Ben kodunuzu denemedim hiç sadece çalışmasını sağladım UserForm_Initialize olayaı olmadığı için hatayı alıyorsunuz.
UserForm_Initialize bu bölümü silin
http://www.excel.web.tr/f48/userformda-buton-sayesinde-caly-ma-sayfasy-actyryp-kaydetme-t104338.html
Bu konuya da el atarsanız sevinirim...
Bu konuya da el atarsanız sevinirim...
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Siz sorun olduğunu tesbit etmişiniz.
burada satır numarasını bulması gerekir kodun
bunun yerine
Kod:
sat = ListBox1.ListIndex + 1bunu deneyin
sat = ListBox1.List(ListBox1.ListIndex, 1) + 2
diğer sorunuza gelince ben bu konu içinde bu konu ile ilgili sorunuza cevap verdim.diğer konudaki sorunuzu anlamadım.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
benzer konu daki sorunuza Necdet Bey cevap vermiş.
http://www.excel.web.tr/f48/suzulen...sayfasy-acyp-verileri-t104300.html#post568180
Sorun verdi...
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Sizin bunu bilmeniz gerekiyordu ben bile atlamışım baya uğraştırdı beni hiç aklıma gelmemişti sayfanızın koruması olacağı
Sayfa koruması olan hücrelerde bu kodlar çalışmaz.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
veri sayfasının kod bölümünde
Private Sub Worksheet_Change(ByVal Target As Range)
bunla başlayan makro var
her işlem yaptığınızda bunun içinde sayfayı koruyan kod var o engel oluyor
onların hepsini silerseniz sorununnuz düzelecek.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Herhalde sayfa koruması gene aktif olsa gerek
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
18 nolu mesajdaki dosya bir hata vermiyor düzeltme düğmesi çalışıyor.