UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikleri hk.

Kulanıcı arayüz formu

UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikleri hk.

İleti#1)  internetbeyi » 15 Kas 2020 20:49

Merhaba üzerinde çalıştığım bir excel dosyasına UserForm ekledim. Eklemiş olduğum userform a bu sitedeki örneklerden yararlanarak bazı özellikleri ekledim. VBA kısmında pek iyi olmadığım için bazı konularda yardıma ihtiyacım var. Bir çok örnek dosya inceledim ama bu dosyaya tam anlamda adapte edemedim.

Aşağıdaki örnek dosyada;

TextBox2 de listelenen verilerde;

DÜZENLE
BUL
SİL
ÇIKTI AL

butonlarının çalışması için gerekli düzenlemeleri yapmama yardımcı olabilirseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
internetbeyi
Yeni Başlamış
 
Kayıt: 13 Ekm 2014 10:09
Meslek: Özel bir şirkette Bölüm Asistanı olarak çalışmaktayım.
Yaş: 33
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ / ÇORLU

Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikl

İleti#2)  muysun35 » 16 Kas 2020 08:57

Merhaba;

1- burada yaptırmak istediğiniz Listbox ta seçtiğiniz ürün üzerinde değişiklik veya silme işlemi mi?
2- Eğer öyleyse benzersiz değerleriniz E sütunu (ürün bilgisi 4 alanı mı?)

yoksa comboboxla filtreleme yaptığınız ürünün bulunması mı gerekiyor?

araya "test olarak" eklediğiniz multipage le ne yapmak istiyorsunuz?
Kullanıcı avatarı
muysun35
Yeni Başlamış
 
Kayıt: 14 Eyl 2018 16:05
Meslek: Depo
Yaş: 39
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / MERKEZ

Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikl

İleti#3)  muysun35 » 16 Kas 2020 11:03

kodlarınıza aşağıdaki kodları ekleyin..

eğer doğru anladıysam mantığı adım adım devam edelim.

Kod: Tümünü seç
Private Sub CommandButton5_Click() 'Bul butonu için Textboxa manuel giriş yapıp butona basınca comboboxları doldurur.
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then hucre.Select
ComboBox1 = ActiveCell.Offset(0, 1).Value
ComboBox2 = ActiveCell.Offset(0, 2).Value
ComboBox3 = ActiveCell.Offset(0, 3).Value
ComboBox4 = ActiveCell.Offset(0, 4).Value
Next
End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As Msforms.ReturnBoolean) 'listboxtaki sıraya çift tıklamayla comboboxları doldurur.
On Error Resume Next
TextBox1 = ListBox2.List(ListBox2.ListIndex, 0)
ComboBox1 = ListBox2.List(ListBox2.ListIndex, 1)
ComboBox2 = ListBox2.List(ListBox2.ListIndex, 2)
ComboBox3 = ListBox2.List(ListBox2.ListIndex, 3)
ComboBox4 = ListBox2.List(ListBox2.ListIndex, 4)
End Sub
Kullanıcı avatarı
muysun35
Yeni Başlamış
 
Kayıt: 14 Eyl 2018 16:05
Meslek: Depo
Yaş: 39
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / MERKEZ

Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikl

İleti#4)  internetbeyi » 16 Kas 2020 18:59

Merhaba yardımınız için teşekkür ederim.
İlk cevabınızda sorduğunuz sorulara cevap veriyorum.

amacım;

Listboxta yer alan verilere tıklayarak düzenleme, silme, yazdırma gibi işlemleri yapmak,
ComboBox ların birine arama yaparak istediğim verileri getirme, bu verileri düzenleme, silme, yazdırma gibi işlemleri yapmak,

Verdiğiniz kodları dosyaya ekledim. Listbox ta herhangi bir öğeye çift tıklayınca Combobox lar doluyor. Yani bulma işlemi çalışıyor.
Bul butonu id için ayrılmış textbox1 deki veriler üzerinde arama yapıyor sanırım. Burada benzersiz bir değişken olması için id nin altındaki combobox1 deki verileri benzersiz olarak ayarlarsak ilk aşamayı çözmüş oluruz.

Multipage içerisinde gözüken kutular yapılan farklı testlerin kayıtlarını gösteriyor. Yani multipage içindeki textboxlara ilgili test değerlerini girip kaydediyorum. Arama, bulma, değiştirme, düzenleme, silme vb. özellikleri multipage içindeki textboxlardaki verileri değiştirmek için kullanıyorum.
Kullanıcı avatarı
internetbeyi
Yeni Başlamış
 
Kayıt: 13 Ekm 2014 10:09
Meslek: Özel bir şirkette Bölüm Asistanı olarak çalışmaktayım.
Yaş: 33
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ / ÇORLU

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

Cevap: Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır ö

İleti#5)  muysun35 » 17 Kas 2020 09:24

internetbeyi yazdı:Merhaba yardımınız için teşekkür ederim.
Listbox ta herhangi bir öğeye çift tıklayınca Combobox lar doluyor. Yani bulma işlemi çalışıyor.
Bul butonu id için ayrılmış textbox1 deki veriler üzerinde arama yapıyor sanırım.

doğru, id sutun değerlerini benzersiz olarak yaptım

internetbeyi yazdı:Burada benzersiz bir değişken olması için id nin altındaki combobox1 deki verileri benzersiz olarak ayarlarsak ilk aşamayı çözmüş oluruz.

Ben 1. sütundaki sıra nosunu benzersiz değişken olarak aldım

internetbeyi yazdı:Multipage içerisinde gözüken kutular yapılan farklı testlerin kayıtlarını gösteriyor.

dosyayı adım adım düzenleyip gidelim.
Kullanıcı avatarı
muysun35
Yeni Başlamış
 
Kayıt: 14 Eyl 2018 16:05
Meslek: Depo
Yaş: 39
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / MERKEZ

Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikl

İleti#6)  muysun35 » 17 Kas 2020 09:57

Dosya aşağıdaki linkten indirilebilir..

TEST - Kopya.xlsm - 176 KB

Buton kontrolleri için bazı satırları sildim orjinal dosyanızın yedeğindeki database sayfasındaki verileri bu yeni dosyaya kaydetmeyi unutmayın.

Butonların adlarını kendimce anlaşılır olması için değiştirdim. Siz üzerinde değişiklik yaparsınız.

Çıktı al butonu aktif değil çünkü hangi aralık ve hangi formattta çıkış almak istediğinizi bilmediğimden herhangi bir işlem yapmadım. ikinci bir sayfa oluşturup hangi verinin nereye gelmesi gerektiğini hücrelere yazarsanız, onu da hallederiz.

İyi çalışmalar.
Kullanıcı avatarı
muysun35
Yeni Başlamış
 
Kayıt: 14 Eyl 2018 16:05
Meslek: Depo
Yaş: 39
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / MERKEZ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır özellikl

İleti#7)  internetbeyi » 17 Kas 2020 23:02

Merhaba, yardımlarınız için teşekkür ederim. Dosya işimi görecek durma geldi. Sadece listbox taki verileri daha kolay bulmak için
bir filtreleme kodu/yöntemi eklemek kalmış onu da halletmeye çalışacağım. İlginiz için tekrar teşekkür ederim.
Kullanıcı avatarı
internetbeyi
Yeni Başlamış
 
Kayıt: 13 Ekm 2014 10:09
Meslek: Özel bir şirkette Bölüm Asistanı olarak çalışmaktayım.
Yaş: 33
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ / ÇORLU

Cevap: Cevap: UserForm Listbox, Düzenle, Ekle, Sil, Yazdır ö

İleti#8)  muysun35 » 18 Kas 2020 07:38

internetbeyi yazdı:Merhaba, yardımlarınız için teşekkür ederim. Dosya işimi görecek durma geldi. Sadece listbox taki verileri daha kolay bulmak için
bir filtreleme kodu/yöntemi eklemek kalmış onu da halletmeye çalışacağım. İlginiz için tekrar teşekkür ederim.

rica ederim. iyi çalışmalar.
Kullanıcı avatarı
muysun35
Yeni Başlamış
 
Kayıt: 14 Eyl 2018 16:05
Meslek: Depo
Yaş: 39
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / MERKEZ


Forum UserForm

Online Kullanıcılar

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

Bumerang - Yazarkafe