TextBox Hücre Toplamının yazdırılması

[mraltin]

Mrb.UserFormuma Bir textBox ekledim ve bunun Ar30 hücresindeki aylik toplam tutarin bu TextBoxta gosterilmesi istiyorum,yardimlarinizi bekliyorum.
biliyorum cok fazla soru soruyorum

 

[Levent Menteşoğlu]

biliyorum cok fazla soru soruyorum

Soru sormaktan asla çekinmeyin,bizler sizlere yardımcı olmak için gayret ediyoruz.

Sorunuza gelince aşağıdaki kodu userforma yazınız.
[vb:1:d1b69cdfac]Private Sub UserForm_Initialize()
TextBox1 = [a30].Value
End Sub
[/vb:1:d1b69cdfac]

 

[mraltin]

Sayin moderator cok tesekkurler formum oldu fakat kucuk bir sorun var TextBox a yansitigim toplam tutar Formu acip kapatmayinca yenilenmiyor.Yani UserFormdan giris yapiyorum 100Ytl TextBox degismiyor Formu acip kapatmak gerekiyor.

 

[xxrt]

UserForm Üzerinde;
TextBox1,TextBox2 ve TextBox3 olduğunu varsayalım.

TextBox1 A1 Hücresine ilişik
TextBox2 A2 Hücresine ilişik
TextBox3 A3 Hücresine ilişik


TextBox3'de Toplam Sonucu Görmek isterseniz.
Textbox1 ve 2'deki değerleri TextBox3'de görmek için.

Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Hücredeki değeri
Sn Leventm 'nin yazdığı şekilde zaten alıyorsunuz.

Ayrıca Girdiğiniz değerlerin TextBoxlarla birlikte Hücrelerde Anında görünmesini isterseniz.

Private Sub TextBox1_Change()
Range("A1").Select
[a1] = TextBox1.Value
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
Range("A2").Select
[a2] = TextBox2.Value
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox3_Change()
Range("A3").Select
[a3] = TextBox3.Value
End Sub

 

[class37]

Merhaba
Inıtalize olayı sadece Userform açılırken çalışır siz ilk sorunuzda nerede kullanacağınızı belirtmemişsiniz sayın levetm onun için kodu o şekilde yazmış.Kodun TextBox1 = [a30].Value kısmını kayıt makronuzun en sonuna ekleyin veya userformun Active olayına yazınız.İyiçalışmalar.

 

[imdatsaral]

Selam Arkadaşlar,

Formadaki örnekleri inceledim ama Formumda yorumlayamadım

Private Sub TextBox436_Change()
TextBox436.Value = Val(TextBox350.Value) + Val(TextBox363.Value) + Val(TextBox463.Value) + Val(TextBox462.Value) + Val(TextBox449.Value)
End Sub

TexBox436 da 350, 363, 463, 462 ve 449 TexBox daki değerlerin toplamını almak istiyorum
Yardımcı olursanız sevinirim

İmdat Saral
izmir

 

[idogus]

bunu 436 nın change olyına değil diğerlerinin change olayına yazmalısınız.

Private Sub TextBox350_Change() 
      TextBox436_Change
End Sub

Þeklinde de olabilir !

 

[Ahmet1982]

Private Sub TextBox463_Exit(ByVal sensıl As MSForms.ReturnBoolean)
  TextBox436.Value = 1 * TextBox350 + 1 * TextBox363 + 1 * TextBox463 + 1 * TextBox462 + 1 * TextBox449
End Sub

 

[Enemy]

veya Val 'u kullanarak;

Private Sub TextBox463_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox436.Value = Val(TextBox350)+val(TextBox363)+val(TextBox463)+val(TextBox462)+val(TextBox449)
End Sub

yada daha doğrusu en güzeli ClassModule'le bu işlemi yapabilirsiniz. Kolay gelsin.

 

[Enemy]

....ByVal sensıl.....

:hey: :lol:

 

[imdatsaral]

sayın Enemy,

Size Ã?rnek Gönderiyorum

 

[Enemy]

sayın Enemy,

Size Ã?rnek Gönderiyorum

Link'e/Dosyaya tıkladığımda, excel sayfasının içerisine gömülü şekilde; Foruma Giriş ekranı geliyor. Sorun bende mi?

 

[xxrt]

Dosya İndirmede sorun yok,Yeni Boş bir excel dosyası ile Açarak indirdiğiniz dosyayı açın.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[imdatsaral]

Sayın leventm, xxrt, Enemy, Ahmet1982,

Yardımlarınız için Teşekkür ederim

İmdat Saral
İzmir

 

[redsword]

sayın üstatlarım sadece 2 sayfa a1 hücresindeki değeri textbox a aktamak istiyorum buradaki en önemli olan hücre değeri değiştiğinde gerçek zamanlı olarak textbox taki değerinde değişmesi gerekiyor yardımcı olaursanız çok sevinirim şimdiden teşekkürler

 

[Levent Menteşoğlu]

Textbox, userformmu yoksa sayfa üzerindemidir?

Eğer sayfa üzerinde ise textboxun properties penceresindeki linkedcell özelliğine sayfa2!a1 şeklinde hücreyi tanımlayın. Userform üzerinde ise bu sefer aynı tanımlamayı controlsource özelliğine yapın.

 

[redsword]

levent üstadım sen bir meleksin çok teşekkür ederim