comboxtan ara degeri textbox yazilsin

[nuklay2003]

Merhaba tüm forum üyelerine:

yaptigim calismada bir konuda takildim, tabii ki bu asamaya gelinceye kadar excel.web.tr üyerlerine sukranlar borcluyum,

soru:

combox degeri, sayfadaki sutun A degeri olsun
ve forum üzerinde comboxtan bir degerin uzerine basildigi an yandaki txtbox B sutundaki degeri versin.

bunu beceremedim, simdiden yardimlariniz icin tesekkur ederim
saygilar ve selamlar

 

[Levent Menteşoğlu]

Comboboxa alınan veriler hangi satırdan başlıyor, ayrıca B sütunundaki verinin yazılacağı textboxun adı nedir?

 

[nuklay2003]

Sayin leventm

ilgilendiginiz icin tesekkurler. ben soru icin bir ufak test gonderdim.
cevabinizi bekler.

saygilarimla

 

[Levent Menteşoğlu]

Aşağıdaki kodları userformun kod sayfasına kopyalayın.

Private Sub ComboBox1_Change()
TextBox1 = Cells(ComboBox1.ListIndex + 2, "b")
End Sub
 
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a2:a" & [a65536].End(3).Row
End Sub

 

[nuklay2003]

sayin leventm

bilginiz icin cok tesekkur ederim, bakinca cok basit iki satirli kod, ama ne cok seyler yapabiliyor, inanin cok sagolun..... ( ben de ne zaman baskalarin sorularina sizin gibi cevap verebilme yetenigine sahip olabilirim ki....)
saygilar ve selamlar la

 

[nuklay2003]

Merhaba Leventm

tekrar rahatsiz ediyorum, kusuruma bakmayin. kendimize ait olan dukkanda kullanilmak uzere bir dosya hazirlamistim. ekte gonderdim.bu asamaya gelinceya kadar tüm excel.web.tr üyelerine sükranlarimi burdan iletmek istiyorum. bir zahmet eksik ve yanlisliklar varsa haberdar etmenizi ve kiymetli firkirlerinizi beklerim. ayrica daha once verdigiz kodu uyguladim, cok harika. ama bu sadece activ olan sayfa uzerinde olabiliyor. peki bunun farkli sayfalar uzerinde uygulamasi mümkünmüdür. diger bir konu form calisirken sayfalari gizlemek istiyorum, ama beceremedim. Worksheet.hide olarak denedim, olamdi..

saygilarimla

 

[Levent Menteşoğlu]

Sorularınıza sırasıyla cevap vermeye çalışayım.

Eğer hücre tanımlamalarının başında sayfa adını belirtmezseniz, hücre tanımlamaları aktif sayfada geçerli olur. Örneğin,

ComboBox3.RowSource = "b2:b" & [a65536].End(3).Row

Yukarıdaki satırda aktif sayfadaki B sütunundaki bilgiler combobox3 e yüklenir.

ComboBox3.RowSource = "[B][COLOR=blue]artikel![/COLOR][/B]b2:b" & [COLOR=blue][B]sheets("artikel").[/B][/COLOR][a65536].End(3).Row

Yukarıdaki satırdaki gibi hücre adını eklersek, userform hangi sayfadan açılırsa açılsın sadece "artikel" isimli sayfanın B sütunundaki bilgileri combobox3e yükleyecektir.

Exceli açılışta gizlemek isterseniz auto_open prosedürünü aşağıdaki gibi değiştirin.

Sub auto_open()
[B][COLOR=blue]Application.Visible = False[/COLOR][/B]
formhome.Show
End Sub

 

[nuklay2003]

Sayin Leventm

ne demek gerekicek bilemiyorum, allah sendin razi olsun. vallahi tam supersin..