• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü listviewde tek satır görünüyor

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Merhaba Arkadaslar;
Patron Kardeşimiz sayesinde bi çek listesi yapmıştık onu geliştireyim dedim ihtiyaçlarıma göre ama bir türlü başaramadım Excel sayfasında 5 satır olmasına rağmen listviewde 1 satır görünüyor .. ne kaydedebiliyorum ne değişiklik ne de filtreleme yapabiliyorum yardımlarınız bekliyorum..
iyi çalışmalar
 

Ekli dosyalar

  • Çekler V4.0.xlsm
    132.6 KB · Gösterim: 9
Çözüm
A
Formular frmCekIslemleri modülünde

Makro btnCekG_Click
For i = 7 To 11
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i

Makro btnCekkaydet_Click
For i = 1 To 11
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i

Makro btnCekSorgula_Click
For i = 1 To 6
If i < 4 Then Controls("ComboBox" & i) = Empty
Controls("TextBox" & i) = Empty
Next i

makro Sub btnCekT_Click()
For i = 7 To 11
Controls("TextBox" & i) = Empty
Next i

Makro btnCekSTemizle_Click()
For i = 1 To 6
If i < 4 Then Controls("ComboBox" & i) = Empty
Controls("TextBox" & i) = Empty
Next i

Bütün bu makrolarda döngüsel (For .... Next) kisimlar calismaz. Onun yerine tek tek
xxx =...
Tarihe göre sırala Oylara göre sırala
Formular frmCekIslemleri modulde flt makrosunda
For k = 1 To 11
liste.SubItems(k) = suz.Cells(i, k + 1).Text
Next k
hatali
For k = 1 To 10
liste.SubItems(k) = suz.Cells(i, k + 1).Text
Next k
olmali
 
Olumlu oy 0 Negatif oyla
Teşekkürler. tüm 1 to 11 ve 7 to 11 leri 10 yapsam kaydet güncelle vs çalışırmı yada yapmammı gerekiyor
 
Olumlu oy 0 Negatif oyla
sanalx' Alıntı:
Teşekkürler. tüm 1 to 11 ve 7 to 11 leri 10 yapsam kaydet güncelle vs çalışırmı yada yapmammı gerekiyor
Genişletmek için tıkla...
Yok, daha bir cok hata var.
Örnegin TextBox7-TextBox11 diye bir elementlerden veri almaya calisiliyor, bu elementler yok
listCek_Click diye bir makro araniyor, böyle bir makro yok.
Daha önce bahsettigim hata sadece ListBox ile ilgili idi. ListBox (liste) 11 sütünlu. Sayarken 0 (sifir) ile baslar 10'a kadar gider. Yani 11. sütunun numarasi 10'dur.
Burda TextBox1'den TextBox11'e kadar elementlerden bahsedilmis ama yoklar.
For i = 1 To 11
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i
Sanirim, program yazildiktan sonra elemetlerin adi degistirilmis.
 
Olumlu oy 0 Negatif oyla
evet isimleri değiştirdim ama ilgili yerden de değiştirdim ki hata olmasın. şimdiye kadar uğraşıyorum bulamadım çözümü.. liste normal acılıyor ama diğer fonksiyonlar calısmıyor
 
Olumlu oy 0 Negatif oyla
TextBox7-TextBox11 bunları sen nerden gördün ben değişmiştim ordanda değişirsem düzelir mi.. gördüğün yerleri tarif etsen ben bulamadım
 
Olumlu oy 0 Negatif oyla
Formular frmCekIslemleri modülünde

Makro btnCekG_Click
For i = 7 To 11
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i

Makro btnCekkaydet_Click
For i = 1 To 11
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i

Makro btnCekSorgula_Click
For i = 1 To 6
If i < 4 Then Controls("ComboBox" & i) = Empty
Controls("TextBox" & i) = Empty
Next i

makro Sub btnCekT_Click()
For i = 7 To 11
Controls("TextBox" & i) = Empty
Next i

Makro btnCekSTemizle_Click()
For i = 1 To 6
If i < 4 Then Controls("ComboBox" & i) = Empty
Controls("TextBox" & i) = Empty
Next i

Bütün bu makrolarda döngüsel (For .... Next) kisimlar calismaz. Onun yerine tek tek
xxx = empty veya
xxx.text = "" seklinde yazmaniz gerekir

Ben eski TextBox1 - TextBox11'in neye karsilik geldigini bilemiyorum.
Sanirim yeni adlari CekTutar, CekSeriNo ... vs. olarak degistirildi.

Eksik olan makro listCek_Click ne yapiyordu bilemiyorum.
 
Olumlu oy 1 Negatif oyla
Çözüm
anladım teşekkürler. Sanırım önceki isimleri vereceğiz.. başka bi kısa yolu yoksa ben önceki isimleri verip deneyeyim
 
Olumlu oy 0 Negatif oyla
önceki isimleri girdim. sanırım bi çok fonksiyon çalışıyor ama açılışta CommandButton6_Click() hata veriyor çözemedim
 

Ekli dosyalar

  • Çekler V4.0.xlsm
    129.3 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
o hatayı da buldum teşekkürler ilginiz için.. hakkınızı helal edesiniz
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst