1 sayfadan 1. sayfa

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

İletiTarih: 15 Kas 2020 20:49
internetbeyi
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.

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

İletiTarih: 16 Kas 2020 08:57
muysun35
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?

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

İletiTarih: 16 Kas 2020 11:03
muysun35
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

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

İletiTarih: 16 Kas 2020 18:59
internetbeyi
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.

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

İletiTarih: 17 Kas 2020 09:24
muysun35
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.

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

İletiTarih: 17 Kas 2020 09:57
muysun35
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.

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

İletiTarih: 17 Kas 2020 23:02
internetbeyi
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.

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

İletiTarih: 18 Kas 2020 07:38
muysun35
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.