• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sanalx

Yeni Üye
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel V
Office 2021 TR
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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
Konu Sahibi
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
Konu Sahibi
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
Konu Sahibi
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
Konu Sahibi
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
Konu Sahibi
önceki isimleri girdim. sanırım bi çok fonksiyon çalışıyor ama açılışta CommandButton6_Click() hata veriyor çözemedim
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst