Userform Hakkında Soru - Baskı Önizleme

Userform Hakkında Soru - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform Hakkında Soru (/konu-userform-hakkinda-soru.html)

Userform Hakkında Soru - drummers - 16/09/2010

Ekli dosyam ile ilgi sorum olacaktı:

Açılıştaki Kullanıcı Ad ve Şifreleri

Admin 1
User 2

1- ComboBox3 ten mükellef seçtiğimde kayıtlarda bulunan ve daha önce işaretlenmiş olan OptionButton hangisi ise oda işaretli olarak gelsin
örnek: firma daha önce "İŞLETME" olarak kaydedilmiş ve ben onu ComboBox3 den seçtiğimde "İŞLETME" OptionButton uda işaretli olarak görünsün.

2- Girişte seçtiğim kullanıcı adı "Yetkiler" sekmesinde BB1 hücresine kaydetmekte. Seçtiğim kullanıcı bu programı kaç sefer açtı ise saysın istiyorum sayma sayısını yine yetkiler sekmesinde herhangi bir yere toplıyarak yazabilir.

Teşekkürler.

Cvp: Userform Hakkında Soru - ogulcan92 - 17/09/2010

Sn:drummers
Güzel bir çalışma olmuş ama ekran çözünürlüğü yüksek olarak hazırlamışsınız 1024*768 olarak ayarlarsanız her PC sorun olamaz malum şimdi en düşük olarak 1024*768 kullanılıyor.

1.Soru için ComboBox3 ün Click olayında kodların sonuna ilave ediniz.

For i = 1 To 6

If Sheets("data").Range("AU" & Bulunan_Satir_No).Value = Controls("optionbutton" & i).Caption Then

Controls("optionbutton" & i).Value = True

Else

Controls("optionbutton" & i).Value = False

End If

Next i

Ekranı temizle butonu olan CommandButton22 Clik olayına ve UserForm İnitalize olayına ekleyiniz.



OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

'Devamını Yazınız

UserForm İnitalize olayına

Call CommandButton22_Click

2. Soru için UserForm2 yani giriş formundaki CommandButton1 Click olayındaki kodlarının sonuna ekleyiniz

Set Bul = Sheets("Yetkiler").Range("A:A").Find(ComboBox1.Text)

Sheets("Yetkiler").Cells(Bul.Row, "BC") = Sheets("Yetkiler").Cells(Bul.Row, "BC") + 1

Cvp: Userform Hakkında Soru - drummers - 17/09/2010

Teşekkürler, tamamdır. Size daha önce sorduğum POS ile ilgili sorumu bu forma entegre edip ve birkaç ekleme ile forumda yayınlamayı düşünüyorum

Cvp: Userform Hakkında Soru - ogulcan92 - 17/09/2010

Rica ederiz Projenizi bitirdiğinizde Örnekler bölümünde paylaşabilirsiniz.Konu cevaplanmışlara taşınmıştır.