Userform'da Düzenleme ve Ek Makro İhtiyacı

[1Al2Ver]

Userform'a "TUTAR" bölümü ekledim,

1 ) Hesaplamayı otomatik yaptırmak, ( Miktar * Fiyat )

2) Tedarikçi ve Ürün isimlerini, "VERİLER" sayfasından, ilk 2-3 harfine göre açılan listeden seçerek almak,

3) Hücreler arası geçişi "TAB" tuşu ile yapmak,

4) "Birimi" de "VERİLERDEN" otomatik olarak almak,

istiyorum,

Yardımlarınızı rica ediyorum,

Teşekkür ederim.

http://s2.dosya.tc/server2/7yfw7u/UserForm.xls.html

 

[1Al2Ver]

Merhabalar,

Userform'a "TUTAR" bölümü ekledim,

1 ) Hesaplamayı otomatik yaptırmak, ( Miktar * Fiyat )

2) Tedarikçi ve Ürün isimlerini, "VERİLER" sayfasından, ilk 2-3 harfine göre açılan listeden seçerek almak,

3) Hücreler arası geçişi "TAB" tuşu ile yapmak,

4) "Birimi" de "VERİLERDEN" otomatik olarak almak,

istiyorum,

Yardımlarınızı rica ediyorum,

Teşekkür ederim.

http://s2.dosya.tc/server2/7yfw7u/UserForm.xls.html

Merhabalar,

Bu konudaki çözüm beklentim devam etmektedir.

Teşekkür ederim.

 

[Orion1]

Merhabalar,

Bu konudaki çözüm beklentim devam etmektedir.

Teşekkür ederim.

Sorularınızı teker,teker sormayı deneyiniz.

 

[1Al2Ver]

Sorularınızı teker,teker sormayı deneyiniz.

Userform'a "TUTAR" bölümü ekledim,

Hesaplamayı otomatik yaptırmak, ( Miktar * Fiyat ) istiyorum.

Yardımlarınızı rica ediyorum,

Teşekkür ederim.

Dosya 2.mesajdadır. http://s2.dosya.tc/server2/7yfw7u/UserForm.xls.html

 

[Ömer BARAN]

Merhaba.

UserForm olaylarıyla neredeyse hiç uğraşmadım.
Kendi işlerim için uğraştığımda da pek beceremedim ama fikir vermesi bakımından cevap yazıyorum. Şu da olsa diyeceğiniz çok şey olduğunu/olacağını tahmin ediyorum ama söylediğim gibi beni aşar.
-- TUTAR rakamı: Aşağıdaki iki kod bloku ilk satırdaki TUTAR için yeterli oluyor sanırım.
.

[COLOR="Blue"][FONT="Arial Narrow"]Private Sub txtFiyat1_Change()[/COLOR]
If txtMiktar1 <> "" Then [COLOR="Red"]txtTutarı1[/COLOR] = Format(txtFiyat1 * txtMiktar1, "#,##0.00")
[COLOR="blue"]End Sub[/COLOR]

[COLOR="blue"]Private Sub txtMiktar1_Change()[/COLOR]
If txtFiyat1 <> "" Then[COLOR="red"] txtTutarı1[/COLOR] = Format(txtFiyat1 * txtMiktar1, "#,##0.00")
[COLOR="blue"]End Sub[/FONT][/COLOR]

Aynı tür işlem bir'den fazla nesne için yapılacağı zaman ClassModül kullanmak daha verimli oluyor diye biliyorum ama hadi yaz derseniz benim bilgim yeterli gelmez.
En kötü olacılık yukarıdaki kodları herbir satırdaki nesne adlarını kullanarak kopyalamak da iş görür sanırım.

-- Hücreler arası geçiş derken sanırım nesneler arası geçişi kast ediyorsunuz.
Bunun için nesneleri işlem sırasına göre tek tek seçip (önce VBA ekranında View menüsünden Properties_Window'u seçin ki nesne özelliklerini görüntüleyebilin), Properties listesindeki TabOrder kısmına, 1'den başlayıp numara verirseniz, TAB tuşu sizi 1'deyseniz 2'ye, 5'teyseniz 6'ya götürmesi lazım.

-- TextBox'ta otomatik tamamlama olayını hiç bilemiyorum ama ben olsam ComboBox nesnesi kullanırdım ve listeden seçerdim.
.

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Teşekkür ederim, zaman ayırıyor ve her ne olursa olsun yardımcı oluyorsunuz,

Önerileriniz doğrultusunda bir kez daha düşüneceğim, belki Userform'dan da vaz geçerim.

Tekrar teşekkür ederim,

Saygılarımla.