UserForm

[poirot]

Merhabalar,
Forumdaki örneklere ve anlatımlara bakarak faturalarımızı excele daha rahat aktarmak için ekteki userform u yapmaya çalıştım.

Takıldığım ve yapamadığım hususları dosya içinde anlatmaya çalıştığım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.


Selamlar
adnan

 

[cavalodepau]

option butonları ile seçtiğiminizi şu kodlarla deneyebilirsiniz

If OptionButton5 = True Then ActiveCell.Offset(0, 6).Value = "ADET"
If OptionButton4 = True Then ActiveCell.Offset(0, 6).Value = "SET"

bu kodları diğer option butonlar içinde çoğaltabilirsiniz

 

[poirot]

Yardımınız için çok teşekkür ederim.
selamlar

 

[Ömer BARAN]

Merhabalar.
UserForm veya sayfa olayları için kod yazma işlemlerine yeni yeni tıyısından bulaşmaya başlamış biri olarak UserForm2 için bir şeyler yaptım.

Belki, ışık tutar ve üstüne devam edebilirsiniz.

Bu tür konularda hiçbir kod içermeyen UserForm ekleyip, şu düğme bunu yapsın, şu açılır liste bunu göstersin gibi detaylı taleplerin cevaplanması biraz zor ve anlamlı da değil.

Bence parça parça konu açmakta yarar var.
Örneğin; userform üzerindeki açılır listelerden birine sayfadan veri aktarma işlemi için konu açabilirsiniz (hatta daha da öncelikle bunun için sitede arama yaparak mesafe kat edebilirsiniz).

 

[Ömer BARAN]

Tekrar merhaba.
Büyük UserFormdaki CheckBoxları gruplandırmanız lazım.
-- Para birimi olan 3 ChecBox'u Ctrl tuşuna basılı iken fareyle seçin ve sol taraftaki Nesne Özellikleri (Properties) bölümündeki GroupName satırına 1, KDV oranına ilişkin olanları seçip 2, birim ile ilgili 2 CheckBox'u seçip 3 yazıp gruplandırın.
Böylece herbir gruptan sadece 1 tanesi işaretlenebilr hale gelecektir.

Ayrıca doldurulacak alanların adlarının yer aldığı (TARİH, MÜŞTERİ NO gibi bilgi yazılı olan) Metin Kutularını silip yerlerine LABEL eklerseniz daha estetik ve kullanışlı hale gelecektir.

 

[poirot]

Ömer Hocam Selamlar
öncelikle özür dilerim cevaplarınızı geç gördüm, cevaplar için teşekkür ederim.

Ben yavaş yavaş userform üzerinde baya bir yol aldım sayılır.

aşağıdaki hususu çözemedim şimdilik,

Iskonto oranı text box ile tabloya aktarırken

Örneğin 5 yazıyorum tabloya 500% olarak atıyor. bende *0,01 ekledim ve aşağıdaki kod ile % formatı vermeye çalıştım ama 3,50 yazıyorum tabloya 3 % olarak yazıyor. Nerede yanlış yapıyorum göremedim?

= Format((Val(TextBox14.Text) * 0.01), "0,00%")

 

[poirot]

aşağıdaki kodu yazınca da metin şeklinde saklanan sayı uyarısı veriyor

Format((TextBox14.Value) * 0.01, "#,##0.00 %")

 

[Ömer BARAN]

Merhaba.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cells(1, 1) = TextBox1 * 0.01
End Sub

veya

Private Sub TextBox1_Change()
    Cells(1, 1) = TextBox1 * 0.01
End Sub

şeklinde kullanıp biçimlendirmeyi hücrede yapabilirsiniz.
Birincisi TextBox'tan çıkınca, ikincisi yazarken çalışır.