textbox'a değer aldırmak

[hikmet]

günaydın sn.hocalarım ve arkadaşlarım,

form üzerindeki textbox'a hiçbir koşula bağlı olmadan bir sayfada sabit bir hücrenin değerini aldırabilimiyiz.

Set s1 = Sheets("VERI")
sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "B")
TextBox2 = s1.Cells(sat, "C")

bu bir comboboxtan seçimle veri sayfasında b sütunundaki değeri textbox'a alıyor. benim istediğim ise herhangi bir koşula bağlı olmadan textbox'ın veri sayfasında b50 hücresindeki değeri alması.
ilginiz için şimdiden teşekkür ederim.

 

[alpi]

TextBox'un ControlSource özelliğine hücre adresini yazın

 

[Recep İpek]

Veya,

TextBox1 = [a1]

 

[hikmet]

sn.alpi ilginize teşekkür ederim, söylediğiniz gibi textbox'ın controlsource özelliğine hücre adresini yazınca hücredeki formül bozuluyor bu tek kullanımlık bir çözüm oluyor.

sn.ripek size de teşekkür ederim ilginiz için, yazdığınız özelliği textbox change altına yazdığım halde değeri textbox'a getirmiyor. kaydet butonun altında textbox1.value değerini değiniz şekilde değiştirdim ama malesef yine ekrana getirmedi.

başka bir yolu olmalı mutlaka ama nasıl bilemiyorum.

 

[Recep İpek]

Açıkçası sorunuzu tam olarak anlayamadım.

Siz Userform açıkken b50 hücresindeki veriyi Textbox1'deni görmek istiyorsunuz?

Eğer bu şekil istiyorsanız.

Private Sub UserForm_Initialize()
TextBox1 = [b50]
'.............
End Sub

ile userformun açılış kodlarıyla yapabilirsiniz.

 

[hikmet]

sn.ripek ilginize teşekkür ederim.

sorunu ben tam olarak ifade edemedim ama sağolun siz çözümün tam karşılığını verdiniz. ilgisini esirgemeyen herkese teşekkürler.

 

[Recep İpek]

İşinize yaradığına sevindim.

Daha detaylı bilgi için aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=19472

 

[emrexcel123]

arkadaşım şu makroyu kopyala bakalım olacak mı
sheets("sayfa1").select
textbox1.value = cells(1,4)