userformda süzme nasıl yaparım

[manda]

ektaki dosyamda user formla hem yazdığım veriler kaydedilsin hemde yine user fformdaki kutucuklarda geçmişte yazılmış veriler tekrarlı olmamak kaydıyla listbox şeklinde seçenekli bulunsun
yardımlarınız için şimdiden tşkkrler...............

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
If TextBox2 = "" Then
MsgBox "Firma adı boş olmaz.", vbInformation
Exit Sub
End If
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1.Value
Cells(son, "b") = TextBox2.Value
Cells(son, "c") = TextBox3.Value
Cells(son, "d") = TextBox4.Value
Cells(son, "e") = TextBox5.Value
Cells(son, "f") = TextBox6.Value
Cells(son, "g") = TextBox7.Value
Call UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.ColumnCount = 7
For sat = 2 To Cells(65536, "e").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("e2:e" & sat), Cells(sat, "e")) = 1 Then
    ListBox1.AddItem
    ListBox1.List(s, 0) = Cells(sat, "a")
    ListBox1.List(s, 1) = Cells(sat, "b")
    ListBox1.List(s, 2) = Cells(sat, "c")
    ListBox1.List(s, 3) = Cells(sat, "d")
    ListBox1.List(s, 4) = Cells(sat, "e")
    ListBox1.List(s, 5) = Cells(sat, "f")
    ListBox1.List(s, 6) = Cells(sat, "g")
    s = s + 1
    End If
Next
'*****
TextBox1 = Date
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

 

[manda]

ewet veriler hücrelere yazılıyor ama ,werilerin yazıldığı userformdaki kutucukların yanından veri doğrulamada çıkan seçenekler gibi seçeneklern aşağıy doğru inmesi önemli benim için lütfen ona göre birdaha inceleyebilirmisiniz
teşkrlr........

 

[manda]

userformdki textboxların aşağıya doğru açılan ; girdiğimiz verileri tekrarlanmaması kaydıyla excelden veri çağırsın istiyorum Allah rızası için şuna bir omuz atında
şu verileri tektek hücreler arasında dolşıp durmadan gireyim
İlgilenenlere şimdiden teşekkrler..............