Kullanıcı Şifre Ekranı

[s.savas]

Merhaba arkadaşlar.
Ekteki örnek form ile sisteme doğru şifre ile giriş yapan kulanıcı adının Sayfa3 A1 hücresine yazılmasını başaramadım. Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

Giriş şifresi nedir?

.

 

[s.savas]

Merhaba,

Giriş şifresi nedir?

.

Hocam özür dilerim.
Kullanıcı Adı:aa
Şifre:11

benzer şekilde, bb-22, cc-33

 

[Ömer]

"UserNameForm" kod ekranına girin;

Private Sub Giris_Click() 'Kullancı girişi

kodunda; kırmızı işaretli ilaveyi ekleyin.

For Each c In s.Range("b2:b" & a)
    If c.Value = Me.ComboBox1.Value Then
        If Me.TextBox1.Text = c.Offset(0, 1).Value Then
        'Application.Visible = True
       [COLOR=red] Sheets("Sayfa1").Range("A1") = ComboBox1.Value
[/COLOR]        Unload Me
        Exit Sub
    End If
   
    End If
 
.
.
.
.

.

 

[s.savas]

Ömer hocam teşekkür ederim.