[Çözüldü]  Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Veri Çekme

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Veri Çekme

İleti#1)  inspirasyon » 25 Nis 2017 16:50

Merhabalar, bu sayfadaki anlatılanlar ve sorulara bakarak kayıt programı yapmaya çalışıyorum. Benim sorunum şu; Comboboxa girdiğim değer ile hem listboxta hemde listview de verileri görüntülemek istiyorum. Ve listview de görüntülenen değer "Aidat İşlemleri" sayfasından "TCNo" ya göre filtrelenip gelmeli, listboxtaki veriler ise farklı bir sayfadan "ÜYELER" sayfasından gelmeli.
Yardım edebilirseniz çok sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#2)  vardar07 » 26 Nis 2017 12:21

Combobox tan seçim yaparak deneyiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vardar07
Siteye Alışmış
 
Adı Soyadı:mustafa vardar
Kayıt: 10 Eyl 2012 19:57
Konum: antalya
Meslek: emekli
Yaş: 56
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#3)  inspirasyon » 26 Nis 2017 12:53

Mustafa Bey merhabalar, öncelikle çok teşekkür ederim ilginize, ellerinize sağlık.Çok mu olurum bilmiyorum ama, şöyle bir isteğim daha olabilir mi? Combobox boş iken listview de boş görünsün. Combobox ta aradıktan sonra tarih sırasına göre küçükten büyüğe doğru listview de listenlesin.
Birde comboboxta aradıktan sonra çift tıkladığımda sadece Kişisel Bilgiler alanı doluyor. Diğer bilgiler gelmiyor bunu fark ettim. Tekrardan çok teşekkür ederim.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#4)  Tarkan VURAL » 26 Nis 2017 17:25

AİDAT İŞLEMLERİ sayfasındaki verileri aidat yılı sırasına sokarsanız sıralı gelir.

Private Sub ComboBox13_Change() prosedüründe On Error Resume Next satırından sonrasına If ComboBox13.ListIndex = -1 Then ListView1.ListItems.Clear ekleyin.
Private Sub UserForm_Initialize() prosedüründe son satıra If ComboBox13.ListIndex = -1 Then ListView1.ListItems.Clear ekleyin.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26676
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#5)  inspirasyon » 27 Nis 2017 11:05

Tarkan Bey çok teşekkür ederim, sağ olun istediğim gibi oldu fakat bu sefer başka bir sorunu fark ettim. Normalde listboxa çift tıklama ile tüm textbox ve comboboxlara verileri çekebiliyorum ama comboboxtan arama yaptıktan sonra çift tıkladığımda sadece kişisel bilgiler alanında veriler geliyor, diğer bölümler gelmiyor. Bunu nasıl çözebilirim?
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#6)  Tarkan VURAL » 27 Nis 2017 15:26

On error resume next kullandığınızda işte böyle gerçek hataları da göremez hale gelir, hatanın ne olduğunu anlayamazsınız. Yazılımlarda hata denetimleri yazılımın kendi işlevlerinden daha önemlidir. Doğru hata denetimleri yapmak gerekiyor.
Çünkü AddItem özelliği ile 10 sütun verisi girebilirsiniz. Sizin sütun sayınız fazla. Süzülen verileri başka bir sayfaya alarak burayı refere edip RowSource ile doldurabilrsiniz. Adodb kullanarak süzülen değerleri recordsete, oradan da ListBox nesnesinin Column özelliğine gönderebilirsiniz. ListBox yerine orada da ListView kullanabilir, RowSource olayından sıyrılabilirsiniz.

Bu alternatifleri değerlendirebilirsiniz. Kolay gelsin.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26676
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#7)  inspirasyon » 28 Nis 2017 14:28

Tarkan Bey teşekkür ederim, tabiri caizse taşıma su ile değirmen döndürmeye çalışıyorum :) vba ile ilgili çok bilgim olmamakla beraber siz ve diğer arkadaşların öneri ve örneklemeleriyle bir şeyler şekillendirmeye çalışıyorum. Bir sürü örnek dosya ve konu inceledim cevabınıza ilişkin, her birinden bir şeyler alıyorum ama onları toparlayıp koda dökmekte zorlanıyorum. Kopyala yapıştır mantığından çok anlayarak yapmak istiyorum.
Siz bana 3 farklı yol söylediniz, açıkçası üçü de bilmediğim konular, sizce hangi yolu denemem doğru olur böyle bir program için? (Ado mu? Listview mi? Yoksa Farklı bir sayfada refere etmek mi? Çünkü hepsini bir anda araştırıp deneyince her şey daha da karışıyor gibi.
Biliyor ve tahmin ediyorum ne kadar yoğun olduğunuzu, şimdiden tekrar teşekkürler, kolay gelsin.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#8)  vardar07 » 28 Nis 2017 19:15

Akşam listview li dosyayı eklerim.
Kullanıcı avatarı
vardar07
Siteye Alışmış
 
Adı Soyadı:mustafa vardar
Kayıt: 10 Eyl 2012 19:57
Konum: antalya
Meslek: emekli
Yaş: 56
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#9)  vardar07 » 29 Nis 2017 02:54

Deneyiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vardar07
Siteye Alışmış
 
Adı Soyadı:mustafa vardar
Kayıt: 10 Eyl 2012 19:57
Konum: antalya
Meslek: emekli
Yaş: 56
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#10)  inspirasyon » 02 May 2017 11:49

Mustafa Bey merhabalar, öncelikle çok teşekkür ederim. İzindeyken bakamamıştım yeni indirebildim dosyayı, ellerinize sağlık. Fakat bir sorun var gibi. Bazen çift tıklama ile veriler gelirken bazen gelmiyor ve herhangi bir hata uyarısı da vermiyor. Verileri çektikten sonra güncelleme butonuna tıkladığımda hata verdi, güncelleme butonunda listbox'a göre kod yazılmıştı ondan olabilir mi diye düşünüp o kodları da kaldırdım ama yinede bazen çalışıyor bazen çalışmıyor. Tekrardan teşekkür ederim ilginize.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#11)  Tarkan VURAL » 04 May 2017 01:07

Az zaman ayırabiliyorum, ayırdığım zamanda da o kadar çok okumadığım konu birikmiş oluyor ki; inanamazsınız. 10-15 dakika bakayım dedim, bilgisayar başına oturduğumdan beri bir buçuk saattir konulara bakıyorum. :) Arkadaşlar hakkını helal etsin, bazı konuları okumadan pas bile geçmek zorunda kalıyorum. Şükür ki bir çok konuya ekipteki arkadaşlarım ve yanıt konusunda yardımcı olabileceğine inanan üye arkadaşlarım zaten yanıt veriyor. Sitemizde yanıtsız çok az konu var. Herkese emekleri için buradan bir kez daha saygılarımı sunuyorum. Soru soran olmazsa, yanıt için de kimse olmaz. Bunun da bilincinde olarak soru soranlara da saygılarımı sunuyorum. [mersi]

inspirasyon yazdı:Fakat bir sorun var gibi. Bazen çift tıklama ile veriler gelirken bazen gelmiyor ve herhangi bir hata uyarısı da vermiyor.


Demişsiniz ya; buna istinaden önceki iletimde :
Tarkan VURAL yazdı:On error resume next kullandığınızda işte böyle gerçek hataları da göremez hale gelir, hatanın ne olduğunu anlayamazsınız. Yazılımlarda hata denetimleri yazılımın kendi işlevlerinden daha önemlidir. Doğru hata denetimleri yapmak gerekiyor.

.. demiştim. Hata almak için o satırı kaldırın. Hatalarınızla yüzleşin. :lol:

Aldığınız hataları anlayamazsanız, "hata veriyor" demeyin, hata açıklamalarını da buraya ekleyin. Çok fazla hata modeli var. Neden hata verdiğini bilmek gerekiyor ki çözüm önerisinde bulunalım. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26676
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#12)  inspirasyon » 05 May 2017 14:27

Tarkan Bey merhabalar, dediğiniz gibi bu sitede cevapsız hiçbir sorum kalmadı ve diğer arkadaşlarında cevapsız sorularının kaldığını düşünmüyorum. Söylediklerinizi uygulamaya çalışıyorum. Ama bir yerlerde yanlış yapıyorum ki bir türlü olmuyor. Dediğiniz "On error resume next" satırını kaldırıp denediğimde de bir hata uyarısı vermedi.
Tekrardan sorunumu özetlemem gerekirse; Mustafa Beyinde yardımıyla, listview'e verileri aldım. Combobox tan aratınca listviewde görünüyor veriler. Fakat listview'de çift tıklamayla verileri textbox ve comboboxlara getiremiyorum. Birde Güncelleme butonunda ki
kodlar listbox'a göre yazılmıştı, bunu listview'e göre uyarlamak istiyorum.
Tekrardan teşekkür ederim. Kolay gelsin.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#13)  inspirasyon » 11 May 2017 15:45

Sanırım tüm işin ehli arkadaşlar çok yoğun, o yüzden cevap alamıyorum.
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#14)  işsiz123 » 11 May 2017 16:10

İyi Günler Listview2 kodlarının başına aşağıdaki kodlar eklerseniz olur çift tıklama sorunu çözüleceğini umuyorum
Kod: Tümünü seç
  Sheets("ÜYELER").Select
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 291
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#15)  inspirasyon » 11 May 2017 16:21

Mehmet Bey çok teşekkürler, çift tıklama sorunu çözüldü. Peki ben listboxtaki verileri güncellemek için aşağıdaki kodu kullanıyordum, listview için nasıl bir düzenleme yapmam gerek. Tekrardan teşekkür ederim.

Private Sub CommandButton3_Click()
Dim SOR As String, sü As Worksheet, DÜZ As Long
If ListBox1.ListIndex >= 0 Then
SOR = MsgBox("DÜZELTME İŞLEMİ YAPILACAK, EMİN MİSİNİZ?", vbYesNo, "VETERİNER KAYIT PROGRAMI")
If SOR = vbNo Then Exit Sub
DÜZ = ListBox1.ListIndex + 2
Set sü = Sheets("ÜYELER")
sü.Cells(DÜZ, "C") = TextBox1.Value
sü.Cells(DÜZ, "D") = TextBox2.Value
sü.Cells(DÜZ, "E") = TextBox3.Value
sü.Cells(DÜZ, "F") = TextBox4.Value
sü.Cells(DÜZ, "H") = TextBox5.Value
sü.Cells(DÜZ, "N") = TextBox6.Value
sü.Cells(DÜZ, "I") = TextBox7.Value
sü.Cells(DÜZ, "M") = TextBox8.Value
sü.Cells(DÜZ, "O") = TextBox9.Value
sü.Cells(DÜZ, "S") = TextBox12.Value
sü.Cells(DÜZ, "U") = TextBox13.Value
sü.Cells(DÜZ, "V") = TextBox14.Value
sü.Cells(DÜZ, "J") = ComboBox1.Value
sü.Cells(DÜZ, "K") = ComboBox2.Value
sü.Cells(DÜZ, "L") = ComboBox3.Value
sü.Cells(DÜZ, "P") = ComboBox8.Value
sü.Cells(DÜZ, "Q") = ComboBox5.Value
sü.Cells(DÜZ, "R") = ComboBox12.Value
sü.Cells(DÜZ, "T") = ComboBox6.Value
sü.Cells(DÜZ, "G") = ComboBox14.Value

MsgBox "DÜZELTME İŞLEMİ YAPILDI!", vbInformation, "VETERİNER KAYIT PROGRAMI"
End If
End Sub
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#16)  işsiz123 » 11 May 2017 16:39

Güncelle butonu kodları ile değiştiriniz.
Kod: Tümünü seç
Private Sub CommandButton3_Click()
Dim SOR As String, sü As Worksheet, DÜZ As Long
If ListView2.ListItems(ListView2.SelectedItem.index) >= 0 Then
SOR = MsgBox("DÜZELTME İŞLEMİ YAPILACAK, EMİN MİSİNİZ?", vbYesNo, "VETERİNER KAYIT PROGRAMI")
If SOR = vbNo Then Exit Sub
DÜZ = ListView2.ListItems(ListView2.SelectedItem.index) + 1
Set sü = Sheets("ÜYELER")
sü.Cells(DÜZ, "C") = TextBox1.Value
sü.Cells(DÜZ, "D") = TextBox2.Value
sü.Cells(DÜZ, "E") = TextBox3.Value
sü.Cells(DÜZ, "F") = TextBox4.Value
sü.Cells(DÜZ, "H") = TextBox5.Value
sü.Cells(DÜZ, "N") = TextBox6.Value
sü.Cells(DÜZ, "I") = TextBox7.Value
sü.Cells(DÜZ, "M") = TextBox8.Value
sü.Cells(DÜZ, "O") = TextBox9.Value
sü.Cells(DÜZ, "S") = TextBox12.Value
sü.Cells(DÜZ, "U") = TextBox13.Value
sü.Cells(DÜZ, "V") = TextBox14.Value
sü.Cells(DÜZ, "J") = ComboBox1.Value
sü.Cells(DÜZ, "K") = ComboBox2.Value
sü.Cells(DÜZ, "L") = ComboBox3.Value
sü.Cells(DÜZ, "P") = ComboBox8.Value
sü.Cells(DÜZ, "Q") = ComboBox5.Value
sü.Cells(DÜZ, "R") = ComboBox12.Value
sü.Cells(DÜZ, "T") = ComboBox6.Value
sü.Cells(DÜZ, "G") = ComboBox14.Value

MsgBox "DÜZELTME İŞLEMİ YAPILDI!", vbInformation, "VETERİNER KAYIT PROGRAMI"
End If
End Sub
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 291
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#17)  inspirasyon » 11 May 2017 16:56

Mehmet Bey, ne kadar teşekkür etsem azdır inanın. Çok sağolun. --)(
Kullanıcı avatarı
inspirasyon
Yeni Başlamış
 
Adı Soyadı:yücel özgezerim
Kayıt: 23 Mar 2011 16:21
Konum: manisa
Meslek: Veteriner Hekimi
Yaş: 40
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: manisa

Cevap: Listboxa Çift Tıklayarak, Listview, Txt ve Cmb.ye Ver

İleti#18)  işsiz123 » 11 May 2017 16:57

Rica ederim. İyi çalışmalar
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 291
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe