Userform Veri dogrulama

[emre1979]

Arkadaslar Yardimci Olursaniz Sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
Range("b4").Select
ActiveCell.AutoFilter field:=2, Criteria1:=ComboBox1 & "*"
End Sub
Private Sub CommandButton1_Click()
Range("b4").Select
ActiveCell.AutoFilter
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "b4:b" & [b65536].End(3).Row
End Sub

 

[emre1979]

Ustad Ellerine Saglik Cok Tesekkurler

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[Galus]

Sayın Orion,

Userform da verilerin hücre adresini propertis te nereye tanımlatıyorsun? Bunu çözersem galiba kendi userformumu yapacağım.

Selamlar...

 

[Orion1]

Sayın Orion,

Userform da verilerin hücre adresini propertis te nereye tanımlatıyorsun? Bunu çözersem galiba kendi userformumu yapacağım.

Selamlar...

Sayın GALUS,
Combobox'a verileri additem yolu ile Userform'un initialize oalında alıyorum.
Properties'tende alabilirim.Ancak kod ile aldığımda tekrarlanan verileri almıyorum,sadece tekrarlanan verieride 1 kere alıyorum.Eğer propertiesten alsaydım bu kadar esnek olamayacaktı.Eğer Properties'ten almak istiyosanız.(UserForm Kullanıorsanız) Properties'ten RowSource'yi bulun ve içine hücre aralığını yazınız.Benim kodlarım aşağıdadır.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
[B][COLOR="Blue"]For i = 4 To Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B4:B" & i), Cells(i, "B").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "B").Value
    End If
Next[/COLOR][/B]
OptionButton1.Value = True
End Sub

 

[emrexcel123]

sn Galus aşağıdaki kodlar ile şu denmektedir

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
For i = 4 To Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B4:B" & i), Cells(i, "B").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "B").Value
    End If
Next
OptionButton1.Value = True
End Sub

1- userform açılmadan önce Listbox1'e 2 sütun ekle
2- <for i> döngüsü B sütunundaki son satıra kadar devam etmesi sağlanıyor
3- eğer eğersay(B4:B & [b sütunundaki son hücre aralığındaki hücreler] eşit ise yine b sütunundaki değerlere)
4 - comboboxa B sütunundaki 4. satırdan son satıra kadar ekle

 

[Galus]

Say&#305;n Orion2 ve emrexcel123,

&#304;lgi ve alakan&#305;za te&#351;ekk&#252;rler.. Sayenizde bir&#351;eyler &#246;&#287;reniyoruz. Sa&#287;olun.

 

[emre1979]

Arkaaslar Elinize Saglik
Cok Tesekkurler

 

[Orion1]

Arkaaslar Elinize Saglik
Cok Tesekkurler

Rica ederim.
İyi çalışmalar.

 

[emre1979]

2 Li Userform

2 Li User Form Yapmaya Calistim Ama Bir Sorun Var Yardimci Olursaniz Sevinirim

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[emre1979]

Orion Eline Saglik

 

[Orion1]

Orion Eline Saglik

Rica ederim.
Kolay gelsin.

 

[emre1979]

Son Soru

Orion2 Usta Seni Cok Yordum Ama Son Soru
Simdiden Tesekkurler

 

[emre1979]

userform

bunu yapamayızmı ?

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[emre1979]

ustad eline saglik tam istedigim gibi olmus

 

[Orion1]

ustad eline saglik tam istedigim gibi olmus

Rica ederim.
İyi çalışmalar.