Textbox'a hücreden veri getirme

[First_Class]

arkadaşlar öncelikle merhabalar

Private Sub TextBox1_Change()
Range("Data!A1").Value = TextBox1.Value
End Sub

bu kodla deniyorum bi türlü beceremedim hücredeki değeri gösteremiyorum.

birde checkbox1 işaretli ise "KDV DAHİL" işaretli değilse "KDV HARİÇ" yazdırmak istiyorum hücreye nasıl yapabilirim.

şimdiden teşekkürler

 

[dEdE]

Private Sub TextBox1_Change()
Range("Data!A1").Value = TextBox1.Value
End Sub

hücredeki değeri gösteremiyorum.
birde checkbox1 işaretli ise "KDV DAHİL" işaretli değilse "KDV HARİÇ" yazdırmak istiyorum hücreye nasıl yapabilirim.

Merhaba,
Yukarıdaki kodlar, hücredeki değeri gösteremek için değil, textbox taki değeri hücreye aktarmak içindir.

Checkbox için ;

[B1] = IIf(CheckBox1.Value = True, "KDV Dahil", "KDV Hariç")

gibi bir kod kullanabilirsiniz.

Örnek dosya ekleseydiniz daha net yanıt verebilirdim.

Saygılar.

 

[fedeal]

formun açlışında textboxa gelmesi için
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Data").Range("a1").Value
End Sub

 

[First_Class]

öncelikle sorumu cevaplandırdığınız için teşekkür ederim.
dEdE cevap için teşekkür checkboş olayı söylediğin kodla oldu çok teşekkürler
fedeal ben kodu ters yazmışım zaten senin yazdığın gibi yazıyorum sayfa ismi hariç olmuyor senin yazdığın kodunda aynısı yazdım yine olmadı acaba nerde yanlış yapıyorum

 

[fedeal]

eki inceleyin aynı kodlar.

 

[First_Class]

öncelikle cevabınız için teşekkür ederim.
yalnız benim istediğim şey tam olarak bu değil ben hücrenin değerinin değiştiği an textboxında değişmesini istiyorum.

örnekte olduğu gibi a1 ve b1 değerlerini textbox1 ve textbox2den alıyorlar c1de ise a1 ve b1i topla şeklinde bi formül var textbox3ün bu c1deki değeri sürekli güncel olarak textbox3e getirmesini istiyorum. ama userform ilk çalıştığındaki değeri getiriyor sadece

 

[fedeal]

istediginizi en basit properties penceresinden controlsource den yapabilirsiniz buraya hücrenin ismini yazalım. fakat bu seferde userformun altında hangi sayfa açıksa o sayfanın degerini alır. onuda hallederiz. initialize olayına sheets("sayfa1").select yazarız form açılınca o sayfa açılır.bu seferde sayfanın o hücresini korumazsak formül bozulur. onun yerine textbox3 ün
enabled özelligini false yapalım ancak bu textboxa giriş yapamazsınız sadece görürsünüz.
inceleyin işinize yararmı.

 

[First_Class]

söylediğin gibi yapmayı daha öncede denemiştim bu seferde şöyle bi sorun oluyor. c1deki formülü siliyo userform açıldığındaki değeri yazıyoo

 

[fedeal]

o zaman önerim sayfanın tamamını seç hücreleri biçimlendir koruma kitli özelligini kaldır.c1 i seç hücreleri biçimlendirden koruma kitliyi aktifleştir. araçlar koruma sayfayıkoru formül silinmiyecektir.

bir yöntem öneriyim

Private Sub UserForm_Initialize()
TextBox3.Text = Sheets("sayfa1").Range("a1") + Sheets("sayfa1").Range("b1")
End Sub

sayfaya alırken toplamak. iyi calışmalar.

 

[First_Class]

c1 hücresini korumalı olarak ayarlarsanızda özel bi durum oluştu hatası geliyoo

 

[fedeal]

Alıntı:
First_Class tarafından gönderildi
textboxa hücreden veri getirmekle alakalı bi soru sormuştum en son hücreyi korumalı hale getirin önerinize uydum yalnız bu seferde özel bi durum oluştu hatası veriyor excel bu sorunun bi çözümü yokmu yaa

ben genelde çalışmalarımda controlsoruce özelligini kullanmam bunun yerine hesaplamaları kodlarla yaptırırım örneğin a1 hücresine b1 hücresine veri göndereceksem c1 hücresine toplamını kodla yollarım.
sheets("veri").range("a1")= textbox1.text
sheets("veri").range("b1")= textbox2.text
sheets("veri").range("c1")= cdbl(textbox1.text + textbox2.text)
gibi

yada a1 + b1 toplamını formda görmek istersem kodla görürüm.
textbox1.value=sheets("veri").range("a1") + sheets("veri").range("b1")
gibi

sayfaya formül yazmak dosyanın boyutunu arttırıyor.bazen bir sütuna kopyaadıgımız formüller oluyor. calışmanıza bu tür bir uygulama yapamazmısınız.

 

[First_Class]

hata mesajı textboxun içine girince çıkıyordu onu pasif yapınca artık hata mesajı vermiyor

 

[kadir74]

Herkese kolay Gelsin , Hayırlı Cumalar
Benim şöyle bir sıkıntım var kodlara çok hakim değilim ama çok merakım var.konuya gelince
Textbox1 e M2:M3829 hücresindeki herhangi bir veriyi yazdığımızda onun karşısında ki Textbox2 ye H2:H3829 hücresindeki veri karşılığı gelmesini istiyorum.Bunu exel de yapabiliyorum fakat Userform üzerinden Macro kodu ile olsun istiyorum.
Bunun için hangi kodu denemeliyim ve nereye yazmalıyım.Araştırdım ama bir türlü bulamadım yada uyum sağlamadı.( Bir tür hesaplama aracı )
Şimdiden teşekkür ederim.

 

[bilisim2010]

formun açlışında textboxa gelmesi için
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Data").Range("a1").Value
End Sub

merhaba form açıkken gelmesi için ne yazmalıyız peki hocam? hücre b2 12345 yazdığımda form açıkken textbox1 e aynı anda veriler gelsin istiyorum