UserForm Oluşturma

[baydeniro]

Ekli dosya :

 

[baydeniro]

Merhaba arkadaşlar. User Form konusuna oldukça yabancıyım. Ekli dosyada bir TANIM sayfasında yer alan bilgilere göre oluşacak bir User Form yapılan seçimleri yine aynı sayfaya kayıt edecek. Yardımcı olanlara şimdiden çok teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 9, 2).Select
[B3] = ActiveCell
[C3] = ActiveCell.Offset(0, 1)
[D3] = ActiveCell.Offset(0, 2)
[E3] = ActiveCell.Offset(0, 3)
[F3] = ActiveCell.Offset(0, 4)
ActiveWorkbook.Save
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
ListBox1.RowSource = "B9:F27"
ListBox2.ColumnCount = 5
ListBox2.RowSource = "B2:F2"
End Sub

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz. bugün çok yardımcı oldunuz. Allah eksikliğinizi göstermesin. USer form süper olmuş. Düşündüğümün de üstünde güzel bir User Form. Bir tek revizyon yapmak mümkün mü ?

Varyasyon tercihleri her bir sütun için ayrı ayrı oluyor. Yani Period Monthly iken, Expence Group Mall, Currency Euro olabiliyor. Yani seçimlerin satırın tamamı için değil de her bir kriter için ayrı ayrı olması konusu da hal olabilirse sıra dışı bir iş olacak.

Şimdiden ilginize çok çok teşekkürler.

 

[skat]

Sayın N.Ziya Hiçdurmaz. bu forumda sizlere ait pek çok dökümanda faydalandık.Allah Razı Olsun.Fakat cevabın bulamadığım bir sorum olacak yardımcı olursanız çok memnun olacağım.
sorum .Şöyle 7500 kişiden oluşan bir rehberim var oluşturduğum userform üzerinde 1 adet combobox(arama ve süz için) 1 adet listbox combobox ta bulunan verileri sıralamak için ve 10 adet textbox var listboxta bulunan veri üzerine tıklanınca texboxta veriler sıralanıyor.
sorum söyle comboboxta bulduğum verileri lisboxa atıyor ama aynı isimden 20 tane var hangisini seçersem seçeyim aynı isime ait bilgiler çıkıyor.Yani 20 tane murat ismi var soyisimler farklı ama 1 nolu murat 'ı da seçsem aynı bilgiler 19 nolu murat 'ı da seçsem aynı bilgiler çıkıyor.Bu konuda yardımcı olabilirmisiniz .teşekkür ederim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayın skat Örneği inceleyiniz.

Private Sub ComboBox1_Change()
Dim SUT As Integer
ListBox1.Clear
ListBox1.ColumnCount = 2
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") Like ComboBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
ListBox1.List(S, 1) = Cells(SUT, "B")
S = S + 1
End If
Next
End Sub

Private Sub ListBox1_Click()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") = ListBox1.List(ListBox1.ListIndex, 0) And Cells(SUT, "B") = ListBox1.List(ListBox1.ListIndex, 1) Then
Cells(SUT, "A").Select
TextBox1 = ActiveCell.Offset(0, 0)
TextBox2 = ActiveCell.Offset(0, 1)
End If
Next
End Sub
Private Sub UserForm_Initialize()
ComboBox1 = "."
ComboBox1 = ""
End Sub

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz. bugün çok yardımcı oldunuz. Allah eksikliğinizi göstermesin. USer form süper olmuş. Düşündüğümün de üstünde güzel bir User Form. Bir tek revizyon yapmak mümkün mü ?

Varyasyon tercihleri her bir sütun için ayrı ayrı oluyor. Yani Period Monthly iken, Expence Group Mall, Currency Euro olabiliyor. Yani seçimlerin satırın tamamı için değil de her bir kriter için ayrı ayrı olması konusu da hal olabilirse sıra dışı bir iş olacak.

Şimdiden ilginize çok çok teşekkürler.

 

[N.Ziya Hiçdurmaz]

Varyasyon tercihleri her bir sütun için ayrı ayrı oluyor. Yani Period Monthly iken, Expence Group Mall, Currency Euro olabiliyor. Yani seçimlerin satırın tamamı için değil de her bir kriter için ayrı ayrı olması konusu da hal olabilirse sıra dışı bir iş olacak.

Sayın serdarokan sanırım bu isteğinizi tam anlayamadım?dosya üzerinde tarif ederseniz ben veya diğer arkadaşlar yardımcı olacaktır.

 

[skat]

Sayın N.Ziya Hiçdurmaz Hocam yardımlarınız için teşekkür ederim problem çözüldü