textbox'larla çağırma

[hyilmaz076]

Herkese kolay gelsin ekteki örnek te bir userform var bu form içerisinde kullanılan textbox'lara değerleri getirtmek istiyorum, detay ekte yazmaktadır, herkese teşekkür. kolay gelsin...

 

[ahmet79]

ekte göndermiş olduğum örnek comboboxlar ile yapılmıştır. textboxlar konusunda bilgim pek fazla bilgim olmadığı için bu şekilde bir çözüm işinizi görürmü?

 

[hyilmaz076]

dostum eline sağlık güzel bir örnekleme olmuş işe yarayacağı kesin ama sanırım bu ürün kodunun 10'lu haneleri geçmesi durumunda bir sıkıntı doğabilir belkide bu yüzden textbox düşünülmüştü, ama bunun yanında eğer arama butonu uygulanabilinirse sanırım buda büyük oranda iş görecek, uğraşın ve verdiğin önem için sağol, eline sağlık

 

[hyilmaz076]

özür dilerim dostum onuda deneme şansım oldu gayet iyi bir performans verdi eline sağlık, tek eksiği şimdi ara menüsünü yapabilmek kalıyor artık.

 

[ahmet79]

ürün arama menüsü ekledim diğerini eklerseniz istediğiniz sonucu alabileceğinizi düşünüyorum yardımcı olabildimse ne mutlu bana

 

[hyilmaz076]

eline sağlık dostum bu işte tam çözüm oldu teşekkür ederim... şimdi uyguluyorum bitince sanada yollarım eh seninde katkın var projede

 

[hyilmaz076]

şuan şöyle bir sorun var sanırım birinci satır ok. ancak ikinci satırda işlemi uygulamada sorun var... combobox1 1.satırın ilk değeri, combobox7'de ikinci satırın ama ikinci satır işlevi yapmıyor...

Private Sub ComboBox1_change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox4.ListIndex = ComboBox1.ListIndex
ComboBox5.ListIndex = ComboBox1.ListIndex

ComboBox8.ListIndex = ComboBox7.ListIndex
ComboBox10.ListIndex = ComboBox7.ListIndex
ComboBox11.ListIndex = ComboBox7.ListIndex
End Sub


Private Sub UserForm_Initialize()
Set s1 = Sheets("Stok")

With ComboBox1
.RowSource = "a4:a65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With

With ComboBox2
.RowSource = "c4:c65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
With ComboBox4
.RowSource = "d4:d65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
With ComboBox5
.RowSource = "e4:e65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With

'ikinci satır başlayacak

With ComboBox7
.RowSource = "a4:a65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With

With ComboBox8
.RowSource = "c4:c65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
With ComboBox10
.RowSource = "d4:d65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
With ComboBox11
.RowSource = "e4:e65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With

End Sub

combobox7'de aldığı değerleri 8,10,11'e aktarmıyor hata ne olabilir

 

[ahmet79]

Private Sub ComboBox1_change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox4.ListIndex = ComboBox1.ListIndex
ComboBox5.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ComboBox7_change()
ComboBox8.ListIndex = ComboBox7.ListIndex
ComboBox10.ListIndex = ComboBox7.ListIndex
ComboBox11.ListIndex = ComboBox7.ListIndex
End Sub


yukarıdaki gibi düzenleyip denermisin kusura bakma dünden beri işim epey fazla idi ilgilenemedim

 

[hyilmaz076]

teşekkür ederim.. esas sen kusura bakma küçük bir dikkatsizlikmiş bizimki... şimdi o sorunu aştık...