• 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ü Excel Üye Veri Giriş Formu

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

SonOsmanlı

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 May 2023
Mesajlar
127
Çözümler
1
Aldığı beğeni
18
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
Merhaba,uzun süredir sizinle olamadım.Malum yaz ayı düğün dernek,deniz ve bizim buralarda fındık zamanı hoş görünüze sığınıyor ve sizden bir konuda yardım istiyorum.
Ben bir üye giriş formu yaptım ve bir yerde takıldım.Forma önce listbox ekledim sonradan bunu ListView ile değiştirdim.Ama bu sefer kayıtları UserFormda
göremiyorum. Zannedersem yorgunluktan bir türlü verileri getiremedim.Yardımcı olursanız çok sevineceğim.Birde Butonları da kontrol edebilirseniz çok sevinir size minnettar olurum..Kalbi selamlarımla...
 

Ekli dosyalar

  • Yeni Veri Giriş Formu (19.08.23).xlsb
    23.1 KB · Gösterim: 6
Tarihe göre sırala Oylara göre sırala
Merhaba.
Listview için sadece başılkları aldırmışsınız UserForm_Initialize koduna.
Döngü ile verileride aldırmanız gerekiyor.
 
Olumlu oy 0 Negatif oyla
Dosyayıda ekledim çünkü başka hatalarınızda varmış mesela eklemde üye no textbox adını yanlış yazmışsınız.
 

Ekli dosyalar

  • Yeni Veri Giriş Formu (19.08.23).xlsb
    25.1 KB · Gösterim: 26
Olumlu oy 0 Negatif oyla
Çözüm
Refaz' Alıntı:
Dosyayıda ekledim çünkü başka hatalarınızda varmış mesela eklemde üye no textbox adını yanlış yazmışsınız.
Genişletmek için tıkla...
Hocam çok teşekkür ederim..Şimdi baktım programa da Hocam "Sil" ve "Çıkış" butonlarındaki yanlışım nedir?
 
Olumlu oy 0 Negatif oyla
Hocam "Çıkıştaki yanlışı buldum da "sil" halledemedim...
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Hocam bu kod son girilen tüm verileri siliyor...
Private Sub cmdSil_Click()
Dim i As Long
If Me.ListView1.ListItems.Count = 0 Then Exit Sub

For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If ListView1.SelectedItem = Cells(i, 1).Value Then Rows(i).EntireRow.Delete
Next i
ListviewveriAL
End Sub
 
Olumlu oy 0 Negatif oyla
Kod ilk sütunadki(unuttum) onunla eşleşenleri siliyor.Hiç seçmezseniz ilk seçili olduğu için onu siler bunun için kod yazabilirsiniz.Tam olarak nasıl silme olacak?
 
Olumlu oy 0 Negatif oyla
Kısaca koddaki mantıkla yapılacakki zaten sizde böyle yapmak istemişsiniz onlafı düzenledim.
 
Olumlu oy 0 Negatif oyla
Konu başlığı çözüldüğü için kiltlendi konu.
 
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