ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[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.

[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?

[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

[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.

[muysun35]

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

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

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

dosyayı adım adım düzenleyip gidelim.

[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.

[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.

[muysun35]

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.