Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-10-2017, 01:01   #41
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,204
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Ek dosyada
"İŞLEMGİRİŞEKRANI" kodlarındaki değişiklikleri inceleyin.
(6.,7.,8.,9. "Textbox" ların "Tabindex" leri (enter ile sıralı geçiş için) "Properties" ten değişti)
http://s6.dosya.tc/server11/gqwlrn/DENE_10.zip.html
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-10-2017, 22:43   #42
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 85
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

PLİNT Teşekkürler
Kuruşlu kayıtlar normale döndü ama değiştirme (düzeltme)işlemi yapıldığında sayısal değerler metine dönüşüyor."Textbox 10 "sayfada görünmüyor ama sanki varmış gibi görünüyor.
http://s6.dosya.tc/server11/sb678e/DENE_11.rar.html
Toplam Userform üzerinde normal olmasına rağmen kaydederken hatalı kaydediyor.
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski Dün, 00:07   #43
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,204
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Daha önce "Kayıt" butonunda yaptığımız düzeltmeyi "Değiştir" içinde aşağıdaki (kırmızı aralık) uygulamalısınız
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton8_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub

Degistirilecek_Satir = İŞLEMGİRİŞEKRANI.ListIndex + 2
Sheets("VERİ").Range("A" & Degistirilecek_Satir).Value = TextBox1.Text 'SIRA
Sheets("VERİ").Range("B" & Degistirilecek_Satir).Value = TextBox2.Text 'TARİH
Sheets("VERİ").Range("D" & Degistirilecek_Satir).Value = TextBox3.Text 'ADISOYADI
Sheets("VERİ").Range("F" & Degistirilecek_Satir).Value = TextBox4.Text 'MERKEZNO
Sheets("VERİ").Range("H" & Degistirilecek_Satir).Value = TextBox5.Text 'HESAP NO

    If IsNumeric(TextBox6) = True Then Sheets("VERİ").Range("I" & Degistirilecek_Satir).Value = CDbl(TextBox6)
    If IsNumeric(TextBox7) = True Then Sheets("VERİ").Range("L" & Degistirilecek_Satir).Value = CDbl(TextBox7)
    If IsNumeric(TextBox8) = True Then Sheets("VERİ").Range("J" & Degistirilecek_Satir).Value = CDbl(TextBox8)
    If IsNumeric(TextBox9) = True Then Sheets("VERİ").Range("M" & Degistirilecek_Satir).Value = CDbl(TextBox9)
    If IsNumeric(TextBox11) = True Then Sheets("VERİ").Range("N" & Degistirilecek_Satir).Value = CDbl(TextBox11)
    If IsNumeric(TextBox12) = True Then Sheets("VERİ").Range("K" & Degistirilecek_Satir).Value = CDbl(TextBox12)
    If IsNumeric(TextBox13) = True Then Sheets("VERİ").Range("O" & Degistirilecek_Satir).Value = CDbl(TextBox13)

Sheets("VERİ").Range("C" & Degistirilecek_Satir).Value = ComboBox1.Text 'SİCİL
Sheets("VERİ").Range("E" & Degistirilecek_Satir).Value = ComboBox2.Text 'MERKEZ ADI
Sheets("VERİ").Range("G" & Degistirilecek_Satir).Value = ComboBox3.Text 'HESAP ADI
'.....
'.... DİĞER KODLAR
'......

 
"İŞLEMGİRİŞİ" formu/ properties/textbox10.top = -30 görünüyor
textbox10.top = 10 yaptığınızda formda görünür, kaydet kodları içerisinde adı geçmiyor nasıl hata verdiğini göremedim.

Ayrıca
6. , 7. , 8. , 9. Textbox_Change() altında bulunan kodlarda aşağıdaki gibi değişiklik yapalım textbox boşatılıp sıfır değeri geldiğinde seçili olsun
"Textbox6" için:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 Private Sub TextBox6_Change()

'......
With TextBox6
If IsNumeric(.Text) = False Then
.Text = 0
.SelStart = 0
.SelLength = Len(TextBox6)
End If
End With
'......

TextBox12 = Format(CDbl(TextBox6) + CDbl(TextBox8), "#,##0.00")
TextBox13 = Format(CDbl(TextBox6) + CDbl(TextBox8) + CDbl(TextBox7) + CDbl(TextBox9), "#,##0.00")
End Sub 
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:11


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden