kullanıcı adı, giriş

[Costcost]

Merhabalar,
programa kullanıcı adı ve şifre ile giriş yapılarak giriliyor. programa girdikten sonra 2. bir userform açılıyor. o kısımda da combobox var kullanıcıların olduğu. yapmaya çalıştığım şey, giriş yaptıktan sonra, kullanıcı adını, userform2 de combobox'a otomatik olarak gelmesini sağlamak. ancak çözüm bulamadım.
yardımcı olursanız çok sevinirim. şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If ComboBox1.Text = "" Then: MsgBox "Input Username", vbCritical, "WRONG INPUT": Exit Sub
    On Error GoTo f:
    Workbooks("WWW.xlsm").Sheets("ZZZ").Visible = True
    Set sh1 = Workbooks("WWW.xlsm").Sheets("ZZZ")
    If sh1.Columns(1).Find(ComboBox1.Text)(1, 2).Value = TextBox1.Text Then
    UserForm1.Hide
    UserForm2.ComboBox1 = UserForm1.ComboBox1
    UserForm2.ComboBox1.SetFocus
    UserForm2.Show
    CommandButton1.Visible = True
    
    Exit Sub
    Else
f:
    MsgBox "W R O N G", , ""
    
        Exit Sub
        End If
    
    Sheets("ZZZ").Visible = True
End Sub

 

[Costcost]

Korhan Bey, yardımınız için çok teşekkür ederim. denedim, gayet güzel çalışıyor. çok teşekkür ederim tekrardan.

 

[kadir74]

Herkese Merhaba
Aynı sorun bende de var.Halit3 Hocamın yapmış olduğu giriş panelini kullanıyorum.Lakin parola kısmı gelince şifreyi onaylandıktan sonra Userform2 ye geçiş yapsın istiyorum.Verilen kodların hepsini denedim. Ama Hata verip duruyor. Çözemedim. Bu konuda yardımlarınızı bekliyorum.
Şimdiden Teşekkürler

 

[kadir74]

Tamamdır kusura bakmayın çözdüm olayı

Herkese Merhaba
Aynı sorun bende de var.Halit3 Hocamın yapmış olduğu giriş panelini kullanıyorum.Lakin parola kısmı gelince şifreyi onaylandıktan sonra Userform2 ye geçiş yapsın istiyorum.Verilen kodların hepsini denedim. Ama Hata verip duruyor. Çözemedim. Bu konuda yardımlarınızı bekliyorum.
Şimdiden Teşekkürler