Listbox da toplama sorunu

PLİNT · 14 Ekim 2017

Merhaba
Listeye veriler "RowSource" ile alındığı için sıralamayı "HSP" sayfasından bağımsız, sadece listede sıralama
yapamazsınız.(sayfada sıralamanın sakıncası yoksa ona göre ekleme yaparız)
Ek dosyada "AddItem" ile yapmaya çalıştığım örnek bulunuyor, "listbox" da sıralama yapılabilir;
ancak listeden seçim yapıp çalıştırdığınız "silme", "düzenleme" butonlarındaki kodları (istenmeyen satırlarda işlem yapmaması için) değiştirmeniz, "Kaydet" butonuna "call UserForm__Initialize" eklemeniz gerekir.
Sıralamayı sağlayan kodlar "Module5" te
http://s5.dosya.tc/server5/kugwtj/DENE_5.zip.html

vuranoğlu · 14 Ekim 2017

Merhaba
Vermiş olduğunuz bilgiler doğrultusunda saat tarih özelliğini anamenüye uyarladım ama hata veriyor.
http://s5.dosya.tc/server5/rri9yj/DENE_6.rar.html

Private Sub CommandButton3_Click()
İŞLEMGİRİŞEKRANI.Show
End Sub

Private Sub CommandButton4_Click()
ANAMENU.Show
End Sub

şeklinde yazmış olduğum kodlar sayfa geçişlerinde hata veriyor

PLİNT · 15 Ekim 2017

vuranoğlu' Alıntı:
Private Sub CommandButton4_Click()
ANAMENU.Show
End Sub

şeklinde yazmış olduğum kodlar sayfa geçişlerinde hata veriyor

Merhaba
http://s8.dosya.tc/server5/kjdy0v/DENE_7.zip.html
Örnek dosyanızda

Kod:

"ANAMEN[COLOR="Red"]U[/COLOR].Show"

"Ü" olmalı

Kod:

"HESAPEKLEME.Show"

yerine

Kod:

"HESA[COLOR="Red"]P_E[/COLOR]KLEME.Show

olmalı
Form geçişlerinde; yeni form açarken açık formu kapatarak geçiş yapın

Kod:

Private Sub CommandButton4_Click()
Unload Me
ANAMENÜ.Show
End Sub

formlardaki bütün kodları gözden geçirerek sadeleştirmelisiniz

vuranoğlu · 16 Ekim 2017

İyi akşamlar

İlginiz ve verdiğiniz bilgiler için teşekkürler. PLİNT

Sıralamayı hsp sayfası içinde yapmaya çalıştım kaydederken otomatik sıralıyor .
Uygulamada hata alma ihtimali varmıdır.

PLİNT · 16 Ekim 2017

Merhaba
Bir örnek dosyada buraya eklermisiniz?

vuranoğlu · 16 Ekim 2017

Özür dilerim.Alışkanlık
http://s6.dosya.tc/server11/4etyml/DENE_8.rar.html

vuranoğlu · 16 Ekim 2017

Rapor sayfasına aldığımız verilerin toplamların soluna "TOPLAM " yazdırmaya çalıştım olmadı

PLİNT · 17 Ekim 2017

Merhaba
"Rapor" formu/ "ComboBox1_Click" altında ilgili bölüme ek

Kod:

[SIZE="2"]
'.....
.Range("B7:J" & x).Borders.Weight = xlThin
[COLOR="Red"].Range("C" & x) = "TOPLAM"[/COLOR]
End With
RAPOR.AddItem " ": RAPOR.AddItem
v = RAPOR.ListCount
'....
[/SIZE]

"Anamenü" formu

Kod:

[SIZE="2"]Private Sub CommandButton2_Click()
Unload Me
[COLOR="Red"]Sheets("HSP").Activate[/COLOR]
HESAP_EKLEME.Show
End Sub [/SIZE]

Sıralama yaparken ve aşağıdaki kodda bulunan döngüde kontrol edilen "Hesap adı" "Textbox" u için.

"Hesap_ekleme" formu

Kod:

[SIZE="2"]Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
[COLOR="Blue"]For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
[COLOR="Red"]If Trim(Cells(Sat, "c")) = Trim(TextBox3) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub[/COLOR]
Next[/COLOR]
If TextBox2.Text <> "" Then
[COLOR="Blue"]If TextBox3.Text = "" Or Len(Trim(TextBox3.Value)) <> 18 Then MsgBox "HESAP NO KONTROL EDİNİZ": Exit Sub[/COLOR]
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1
   'Sheets("HSP").Range("a" & Bos_Satir).Value = TextBox1.Text
    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = TextBox3.Text
    'Sheets("HSP").Range("E" & Bos_Satir).Value = TextBox4.Text
    'Sheets("HSP").Range("F" & Bos_Satir).Value = TextBox5.Text
     'Sheets("veri").Range("a" & Bos_Satir).Value = TextBox6.Text

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub [/SIZE]

Kod:

[SIZE="2"]Private Sub CommandButton7_Click()
 If HESAP_EKLEME.ListIndex >= 0 Then
        cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
        If cevap = vbYes Then
            Silinecek_Satir = HESAP_EKLEME.ListIndex + 2
[COLOR="Blue"]   Sheets("HSP").Range("B" & Silinecek_Satir & ":Z" & Silinecek_Satir).Delete Shift:=xlUp
Sheets("HSP").Cells(Rows.Count, 1).End(3) = ""[/COLOR]
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End If
    End If

End Sub [/SIZE]

Yine "Hesap_ekleme" formundan çıkışta; butonlara gidilecek sayfayı eklersiniz.

Kod:

[SIZE="2"]Private Sub CommandButton3_Click()
Unload Me
[COLOR="Blue"]Sheets("....").activate[/COLOR]
İŞLEMGİRİŞEKRANI.Show
End Sub [/SIZE]

Kod:

[SIZE="2"]Private Sub CommandButton1_Click()
Unload Me
[COLOR="Blue"]Sheets("....").activate[/COLOR]
PERSONELEKLEME.Show
End Sub [/SIZE]

vuranoğlu · 17 Ekim 2017

Merhaba
HSP sayfasında kaydet makrosu çalıştırldığında
"HESAP NO KONTROL EDİNİZ" mesajı alınıyor.
http://s6.dosya.tc/server11/bgk1qp/DENE_8_2.rar.html

PLİNT · 17 Ekim 2017

Merhaba

Kod:

[SIZE="2"]Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If Trim(Cells(Sat, "c")) = Trim(TextBox3) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
If TextBox2.Text <> "" Then
[COLOR="Red"]If TextBox3.Text = "" Or Len(Trim(TextBox3.Value)) <> 18 Then MsgBox "HESAP NO KONTROL EDİNİZ": Exit Sub[/COLOR]
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1
   'Sheets("HSP").Range("a" & Bos_Satir).Value = TextBox1.Text
    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = TextBox3.Text
    'Sheets("HSP").Range("E" & Bos_Satir).Value = TextBox4.Text
    'Sheets("HSP").Range("F" & Bos_Satir).Value = TextBox5.Text
     'Sheets("veri").Range("a" & Bos_Satir).Value = TextBox6.Text

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub  [/SIZE]

"CommandButton5_Click" altında bulunan "Textbox3" ün boş ve 18 basamaklı değerden, eksik, fazla veri girilmesini engelleyen bölümü silin.

vuranoğlu · 17 Ekim 2017

Aynı hesap tekrar girilebiliyor.?
Yanlışlıkla satır mı sildik .?
http://s6.dosya.tc/server11/bgk1qp/DENE_8_2.rar.html

PLİNT · 17 Ekim 2017

Örnek dosyada silinen satır yok, aynen kopyalayıp ("Hesap_ekleme" formunda) deneyin,

Kod:

[SIZE="2"]Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If Trim(Cells(Sat, "c")) = Trim(TextBox3) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
If TextBox2.Text <> "" Then
'...............
 'If TextBox3.Text = "" Or Len(Trim(TextBox3.Value)) <> 18 Then MsgBox "HESAP NO KONTROL EDİNİZ": Exit Sub
'.......
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1
   
    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = TextBox3.Text
  

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub [/SIZE]

vuranoğlu · 17 Ekim 2017

Hesap adı ve hesap no mükerrer kaydediyor.

PLİNT · 18 Ekim 2017

vuranoğlu' Alıntı:
Hesap adı ve hesap no mükerrer kaydediyor.

"Hesap_ekleme" formu açık iken (kodlarda sayfa tanımlanmadığı için) "HSP" sayfası aktif olmalı
Hesap adı; hücrede büyük harf, "Textbox" da küçük harf (veya tersi) olabilir
Buna karşı "Textbox"a büyük harf girişi yapılmasını sağlamak için;

Kod:

[SIZE="2"]Private Sub TextBox2_Change()
On Error Resume Next
TextBox2 = Evaluate("=büyükharf(""" & TextBox2 & """)")
TextBox2 = Evaluate("=upper(""" & TextBox2 & """)")
End Sub [/SIZE]

ekleyelim.

"Hesap no" için nokta veya virgül format sorunu varsa aşağıdaki değişikliği yapıp deneyin.

Kod:

[SIZE="2"]Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If [COLOR="Blue"]Replace(Replace(Trim(Cells(Sat, "c")), ".", ""), ",", "") = Replace(Replace(Trim(TextBox3), ".", ""), ",", "") [/COLOR]Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
'.....
'....diğer kodlar
[/SIZE]

Ek dosyada denemelerimde kaydet sorunu göremedim.

http://s6.dosya.tc/server11/itmubu/DENE_9.zip.html

vuranoğlu · 18 Ekim 2017

Merhaba.
İyi günler
Yardımlarınız için teşekkürler.
Göndermiş olduğunuz dosyayı inceledim mükerrer kayıt hesap adında düzelmiş fakat hesap no da hata var boş geçiyor.Yalnız nümerik giriş olmalı

vuranoğlu · 18 Ekim 2017

İyi akşamlar

Dosya da veri girişleri son değişikliklere göre yapılmıştır.
Kaydet işleminden sonra değerler " . " ," olmadan geliyor .PC de ondalık"," ve binlik için "." kullanılmaktadır.
http://s6.dosya.tc/server11/xqbzy6/DENE_9.rar.html

PLİNT · 18 Ekim 2017

Merhaba
"Textbox3" "numeric" için şöyle deneyelim

Kod:

[SIZE="2"]Private Sub TextBox3_Change()
If TextBox3 = "" Then Exit Sub
If IsNumeric(TextBox3) = False Then MsgBox "SADECE SAYI YAZABİLİRSİNİZ": TextBox3 = ""
End Sub [/SIZE]

Kod:

[SIZE="3"] Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If Replace(Replace(Trim(Cells(Sat, "c")), ".", ""), ",", "") = Replace(Replace(Trim(TextBox3), ".", ""), ",", "") Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
If TextBox2.Text <> "" Then
[COLOR="Red"]If TextBox3.Text = "" Then MsgBox "HESAP NO BOŞ GEÇİLEMEZ": Exit Sub[/COLOR]
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1

    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = [COLOR="Red"]TextBox3.Value[/COLOR]
 [COLOR="Red"]   HESAP_EKLEME.RowSource = "HSP!a2:C" & Sheets("HSP").Range("A65536").End(xlUp).Row[/COLOR]

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub[/SIZE]

vuranoğlu · 19 Ekim 2017

PLİNT
Cevap yazmışsınız ama göremiyorum

vuranoğlu · 19 Ekim 2017

İyi akşamlar

Dosya da veri girişleri son değişikliklere göre yapılmıştır.
Kaydet işleminden sonra değerler " . " ," olmadan geliyor .PC de ondalık"," ve binlik için "." kullanılmaktadır.
http://s6.dosya.tc/server11/xqbzy6/DENE_9.rar.html

vuranoğlu · 20 Ekim 2017

http://s6.dosya.tc/server11/xqbzy6/DENE_9.rar.html
Dosyada (İŞLEMGİRİŞEKRANI) değer kuruşlu girildiğinde sorun yok. Fakat bilgileri çift tıklayınca değerlerde kuruş hanesi gelmiyor.(2,05) (205) Formatta sorun mu vardır?

Listbox da toplama sorunu

Ekli dosyalar