Userform Hakkında Soru

[drummers]

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.

 

[Korhan Ayhan]

Selamlar,

1. sorunuz için UserForm1 nesnesinin kod bölümüne aşağıdaki kodu uygulayın.

Private Sub TextBox45_Change()
    Dim X As Byte
    If TextBox45 <> "" Then
        For X = 1 To 6
            If Me.Controls("OptionButton" & X).Caption = TextBox45 Then
                Me.Controls("OptionButton" & X).Value = True
                Exit For
            End If
        Next
    End If
End Sub

2. sorunuz için UserForm2 nesnesindeki GİRİŞ butonuna ait kodu aşağıdaki şekilde değiştirip deneyin. "AT" sütununda giriş sayısı bilgilerini takip edebilirsiniz.

Private Sub CommandButton1_Click()
    Dim kull As String
    Dim kullanici As Range
    Dim evn As Integer
    Dim Bul As Range
    
    If CStr(sifre) <> CStr(TextBox1.Value) Then
        MsgBox "Hatalı şifre!", vbCritical, "Hata!": Exit Sub
    Else
        Me.Hide
        Application.ScreenUpdating = False
        kull = ComboBox1.Text
        
        For Each kullanici In Worksheets("Yetkiler").Range("A2:A" & Worksheets("Yetkiler").Range("A65530").End(3).Row)
            If kullanici.Text = ComboBox1.Text Then
                For evn = 3 To kullanici.End(xlToRight).Column
                    Worksheets(Worksheets("Yetkiler").Cells(kullanici.Row, evn).Value).Visible = True
                Next evn
            End If
        Next kullanici
        Application.ScreenUpdating = True
        MsgBox "İyi Çalışmalar " & ComboBox1.Text
        Sheets("Yetkiler").Range("bb1").Value = ComboBox1.Text
        Set Bul = Sheets("Yetkiler").Range("A:A").Find(ComboBox1.Text)
        If Not Bul Is Nothing Then
        Sheets("Yetkiler").Cells(Bul.Row, "AT") = Sheets("Yetkiler").Cells(Bul.Row, "AT") + 1
        End If
        Application.Visible = True
        UserForm1.Show
    End If
End Sub

 

[drummers]

Her iki cevap ve ilgi için teşekkürler