Hücredeki Değeri Textbox'da otomatik görünmesi...

[satan22]

Slm arkadaşlar.. 3 Sahifelik bir excel çalışmam var. Oluşturmuş olduğum formlarda her üç sayfaya ayrı ayrı bilgileri aktarıyorum. Ama takıldığım bir nokta var.. örneğin ben 1. sayfadaki bir hücreye girilen değeri oluşturmuş olduğum formdaki textboxta otomatik görünmesini istiyorum.

örnek şöyle olsun..

sayfa1deki C35 nolu hücredeki değeri formumdaki textbox11'de otomatik görünsün.. ben aşağıdaki kodu yazıyorum ama olmuyor.

Private Sub TextBox11_Change()
sheets ("sayfa1").select
textbox11.text = range ("C35").value
End Sub

yardımcı olursanız sevinirim. şimdiden teşekkürler..

 

[mesuttasar]

userformunuzun initialize olayına aşağıdaki kodları ilave edermisiniz.

Set s1=Sheets("Sayfa1")
textbox11.value=S1.Range("C35").Value

 

[exam77]

Bu şekilde deneyin.
Sizin yaptığınız şekilde textbox içerisinde bir tuşa basmanız gerekir.

Private Sub UserForm_Initialize()
Sheets("sayfa1").Select
TextBox11.Text = Range("C35").Value
End Sub

 

[satan22]

hemen deniyorum..

 

[satan22]

Üstadım aşağıdaki şekilde yaptım olmadı. Ben sayfaya isim koymuşum "GÖNDERME EMRİ" diye aşağıdaki şekilde yazdım olmadı. acaba S1'leridemi değiştircem.

Private Sub UserForm_Initialize()
Set S1 = Sheets("GÖNDERME EMRİ")
TextBox11.Value = S1.Range("C35").Value
End Sub

 

[mesuttasar]

Eğer dosyanız özel bilgiler içermiyorsa sorunuzun ekinde paylaşırmısınız?

Sorunuza gelince S1 ifadesi , yazmış olduğumuz kodu kısaltmak için önceden tanımlama yaptığımız anlamına geliyor.

Eğer GÖNDERME EMRİ sayfasındaki C35 hücresini textboxa getirmek istiyorsanız yazmış oldugunuz kod doğrudur.

 

[satan22]

sayın exam77;

dediğiniz gibi yaptım textbox'da görünüyor ama hücredeki değer her yazdırmadan sonra değişiyor ama yapılan değişiklik textboxta görünmüyor. Yani bir kerecik görünüyo değişiklikten sonra yazdırmadan önceki değer sabit kalıyor

sayın mesuttasar;
dosyam özel bilgiler taşımıyor ama boyutu çok yüksek olduğu için atamadım.
yoksa örnek olarak sunacaktım.

 

[fedeal]

sayfaya veri aktardıgınız kodun altına ilave edin
örnegin

Private Sub CommandButton2_Click()
Son_Dolu_Satir = Sheets(ComboBox2.Text).Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets(ComboBox2.Text).Range("A" & Bos_Satir).Value = DateValue(TextBox1.Text)
Sheets(ComboBox2.Text).Range("B" & Bos_Satir).Value = ComboBox1.Text
Sheets(ComboBox2.Text).Select
For i = 2 To 5
For t = 7 To 8
Cells(Bos_Satir, i + 1).Value = CDbl(Controls("TextBox" & i).Text)
Cells(Bos_Satir, t).Value = CDbl(Controls("TextBox" & t).Text)
Next
Next
Sheets("GÖNDERME EMRİ").Select
TextBox11.Text = Range("C35").Value
End Sub

 

[satan22]

sayın fedeal hücreden çağırdığım değer otomatik numara.. yani ben o hücreye veri aktarmıyorum. Yalnız şuan çalışıyoda formu her yazdırmadan sonra yenilemem gerekiyor.
formun otomatik yenilenmesini nasıl sağlayabilirim. bu konuda bilginiz varmı..

 

[fedeal]

o hücreye aktarmanız önemli degil formu yazdırdıgınız kodun arkasına ilve edin yada initialize olayına yazın kodun arkasına

unload me
formadı.show

yazabilirsiniz yani formu kapatıp açabilirsiniz. çalışmanızı görmeden zor

 

[satan22]

arkdaşlar tamam oldu şimdi.. Hepinize çok teşekkür ederim.

sayın fedeal dediğiniz gibi yaptım. Biraz geç düştü jeton ama sonunda oldu

çok teşekkürler..

 

[fedeal]

Ricaederim iyi çalışmalar.