Userform'da Veri Doğrulama

[ormann]

Merhabalar;
Arkadaşlar ekteki örnek dosyadaki userformdan comboboxtan kayıt sayfasındaki b sutunundaki b3:b65536 hücreleri arasındaki verileri seçtiğimizde texbox'a d3:d65536 numarayı nasıl aldırabiliriz.Yardımcı olurmusunuz?

 

[İhsan Tank]

Merhabalar;
Arkadaşlar ekteki örnek dosyadaki userformdan comboboxtan kayıt sayfasındaki b sutunundaki b3:b65536 hücreleri arasındaki verileri seçtiğimizde texbox'a d3:d65536 numarayı nasıl aldırabiliriz.Yardımcı olurmusunuz?

merhaba
userform'un kod bölümüne

Private Sub ComboBox1_Change()
TextBox1 = WorksheetFunction.VLookup(ComboBox1, Range("B3:D65536"), 3, 0)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "KAYIT!B3:B" & Range("B65536").End(xlUp).Row
End Sub

 

[ormann]

Çok teşekkür ederim İhsan bey

 

[İhsan Tank]

Çok teşekkür ederim İhsan bey

rica ederim
:yazici:

 

[ormann]

merhaba
userform'un kod bölümüne

Private Sub ComboBox1_Change()
TextBox1 = WorksheetFunction.VLookup(ComboBox1, Range("B3:D65536"), 3, 0)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "KAYIT!B3:B" & Range("B65536").End(xlUp).Row
End Sub

İhsan bey günaydın;
Yapmış olduğunuz kodu örnek dosyama uygulamaya çalıştım fakat başarılı olamadım.Örnek dosyada user formdaki kırmızı renkte belirttiğim (combobox1 ,Texbox13 ve Texbox14 ) ,combobox1'den sayı kodunu seçtiğimde veri sayfasından Texbox13'e birimini,Texbox14'e ise yine veri sayfasından açıklama kısmını aldırabilirmiyiz ?.

 

[İhsan Tank]

İhsan bey günaydın;
Yapmış olduğunuz kodu örnek dosyama uygulamaya çalıştım fakat başarılı olamadım.Örnek dosyada user formdaki kırmızı renkte belirttiğim (combobox1 ,Texbox13 ve Texbox14 ) ,combobox1'den sayı kodunu seçtiğimde veri sayfasından Texbox13'e birimini,Texbox14'e ise yine veri sayfasından açıklama kısmını aldırabilirmiyiz ?.

merhaba
VERİ SAYFASI bu sekmenin adını VERİ_SAYFASI bununla değiştiriniz
combobox1'în kod bölümüne

Private Sub ComboBox1_Change()
TextBox13 = WorksheetFunction.Index(Sheets("VERİ_SAYFASI").Range("I5:I65536"), WorksheetFunction. _
Match(ComboBox1.Text * 1, Sheets("VERİ_SAYFASI").Range("K5:K65536"), 0), 1)
TextBox14 = WorksheetFunction.Index(Sheets("VERİ_SAYFASI").Range("J5:J65536"), WorksheetFunction. _
Match(ComboBox1.Text * 1, Sheets("VERİ_SAYFASI").Range("K5:K65536"), 0), 1)
End Sub

bu kodu kopyalayınız
userform_ınitialize olayındaki kodu

Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
ComboBox1.RowSource = "VERİ_SAYFASI!K5:K" & Sheets("VERİ_SAYFASI").Range("K65536").End(xlUp).Row
Call combo_yukle
Call topl_rec
End Sub

bununla değiştiriniz

 

[ormann]

Sayın İhsan bey ekteki örnke dosyaya uyguladım .Fakat şu kodda hata veriyor:
Sub form_ac()
UserForm1.Show
End Sub

 

[İhsan Tank]

Sayın İhsan bey ekteki örnke dosyaya uyguladım .Fakat şu kodda hata veriyor:
Sub form_ac()
UserForm1.Show
End Sub

bende böyle bir hata vermiyor

VERİ SAYFASI

bu sayfanın adını

VERİ_SAYFASI

bununla değişmenizi istemiştim

 

[ormann]

Sayın İhsan bey değiştirdiğim halde hata veriyor.Hata veren dosyayı gönderiyorum

 

[İhsan Tank]

Sayın İhsan bey değiştirdiğim halde hata veriyor.Hata veren dosyayı gönderiyorum

eki inceleyiniz

 

[ormann]

Sayın İhsan hocam rica etsem hangi alanda değişiklik yaptığınızı öğrenebilirmiyim

 

[İhsan Tank]

Sayın İhsan hocam rica etsem hangi alanda değişiklik yaptığınızı öğrenebilirmiyim

son eklediğiniz dosyada bir değişiklik yapmadım elimdeki dosyayı ekledim

 

[ormann]

Sayın ihsan hocam biraz tuhaf gelecek ama şöyle bir şey yapılabilir mi ?.texbox13 ve Texbox14'ü comboboxlara çevirsek,yine aynı şekilde hangi combobox'u seçersek o kayıtlar diğer comboboxlara gelebilir mi?

 

[İhsan Tank]

Sayın ihsan hocam biraz tuhaf gelecek ama şöyle bir şey yapılabilir mi ?.texbox13 ve Texbox14'ü comboboxlara çevirsek,yine aynı şekilde hangi combobox'u seçersek o kayıtlar diğer comboboxlara gelebilir mi?

bu bilgi kısıtlı olmadı mı_?
aynı textboxtaki gibi tek olarak ekranda mı görünmesini istiyorsun.
yoksa seçenekli mi olacak. mesela
4'de 4 tane var diyelim sen seçtiğinde combobox'ta bu iki değer gözükecek.
bir soru sorayım dedin içinde neler çıktı değil mi_?

 

[ormann]

Örnekte veri sayfasında I sutununda diyelimki birimden kadastroyu seçtik (kadastro 1500 tane olabilir) ,süzülen birimden tekrar açıklamasını süzüceğiz.Açıklamasını süzdekten sonra ise diğer combobox'a sayısı gelecek.yani Üçlü Süzme olacak
Süz1- Süz2- =süzülen veri(Sayısı)
Combobox1=Combobox2=Combobox3

yine aynı şekilde bu süzme işleminin tersi olacak

 

[İhsan Tank]

biraz daha açıklama
sen şimdi combobox'tan 4'ü seçtin diyelim
bu 4'den 10 tane olsun
combobox2 ve combobox3'de bu 10 ayrı açıklama ve diğer bilgi mi gelecek

 

[ormann]

biraz daha açıklama
sen şimdi combobox'tan 4'ü seçtin diyelim
bu 4'den 10 tane olsun
combobox2 ve combobox3'de bu 10 ayrı açıklama ve diğer bilgi mi gelecek

Diyelimki Combobox'tan 4 seçtik ve bu dörtten 10 tane var .ama bu 10 tane dördün karşısında açıklama var tekrar içirisinden seçim yaptığımda o seçilen kaydın karşısında hangi sayı varsa o gelecek.Bu işlem aynı şekilde tersten de olacak

 

[İhsan Tank]

Diyelimki Combobox'tan 4 seçtik ve bu dörtten 10 tane var .ama bu 10 tane dördün karşısında açıklama var tekrar içirisinden seçim yaptığımda o seçilen kaydın karşısında hangi sayı varsa o gelecek.Bu işlem aynı şekilde tersten de olacak

sanırım bu konuda yardımcı olamıyacağım beni aşan bir işlem istediniz

 

[ormann]

Teşekkür ederim İhsan Bey