textbox

[sinemomec]

userformda üzerinde sayfa1 ve q11 hücresindeki veriyi textbox10 da görüntülemek istiyorum yaptığım kod hücredeki formülü sıfırlıyor yada sabit gösteriyor. yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

TextBox10=Worksheets("Sayfa1").Range("Q11").Value

 

[sinemomec]

UserForm_Initialize()
TextBox10 = Worksheets("Sayfa1").Range("Q11").Value

yaptım anlık değerler değiştiğinde göstermiyor

 

[sinemomec]

bide burda rakam gösteriyor ben bunu para cinsi olarak göstermek isityorum

 

[ÖmerFaruk]

Hücrenin değeri her değiştiğinde/değiştirdiğinizde TextBox10 da yeni değeri görmek istiyorsanız o satırı her defasında yineleyin.

Diğer sorununuz içinse
TextBox10 = FormatCurrency(Worksheets("Sayfa1").Range("Q11").Value)

 

[sinemomec]

hiç göstermiyor bu formulle veriyi

 

[sinemomec]

Private Sub UserForm1_Initialize()
TextBox10 = FormatCurrency(Worksheets("Sayfa1").Range("Q11").Value)
End Sub

 

[ÖmerFaruk]

Her daim göstermesi gerekir.
Q11 de bir değer varsa

Dosyanızı ekleyin onun üzerinden bakalım.

 

[sinemomec]

İndir ZİRAİ GELİR2

Dosyayı indir ZİRAİ GELİR2

dosya.co

 

[sinemomec]

hesapla deyince textboxları boşalmasını nasıl yapabilirim.

 

[ÖmerFaruk]

Dosyanız baktım.
Userform1 de sadece şöyle bir kodunuz var.

Private Sub CommandButton2_Click()

Worksheets("Sayfa1").Cells(2, 9) = TextBox1.Value
Worksheets("Sayfa1").Cells(2, 10) = TextBox2.Value
Worksheets("Sayfa1").Cells(2, 11) = TextBox3.Value
Worksheets("Sayfa1").Cells(2, 13) = TextBox4.Value
Worksheets("Sayfa1").Cells(2, 14) = TextBox5.Value
Worksheets("Sayfa1").Cells(2, 15) = TextBox6.Value
Worksheets("Sayfa1").Cells(2, 17) = TextBox9.Value
Worksheets("Sayfa1").Cells(2, 18) = TextBox8.Value
Worksheets("Sayfa1").Cells(2, 19) = TextBox7.Value

End Sub

Bu kodla TextBox1 içindeki değeri hücreye yazarsınız.
Tersini yapmak içinde eşitliğin yönünü değiştirmen yeterli olacaktır.
Para Birimi için cevabımı zaten yazmıştım.
Hesapla butonuna ait mevcutta herhangi bir kod yok.

Eğer TextBox içeriklerini sıfılamak istiyorsanız

TextBox1=""

yazmanın yeterli

Bunu 1 den 7 ye kadar olan textboxlar için tek seferde yapayım derseniz aşağıdakini kullanabilirsiniz.

Sub Temizle()
For i = 1 To 7
    Me.Controls("TextBox" & i) = ""
Next i
End Sub

 

[sinemomec]

tam anlayamadım şimdi textbox10 nu neden sayfa1 q11 hücresini görüntüleyemiyorum

 

[ÖmerFaruk]

Ben de anlayamıyorum.

 

[sinemomec]

TextBox10.Value = Worksheets("Sayfa1").Cells(11, 17)
bu kod ile çözdüm ancak parasal yapamadım

 

[ÖmerFaruk]

Worksheets("Sayfa1").Cells(11, 17) =Worksheets("Sayfa1").Range("Q17")

Bunların ikisi de aynı şeydir.
Para birimi için #5 numaralı mesajımda ne yapacağınızı gösterdim.