Girşi yapan kullanıcı ismini hücreye yazdırabilirmiyim?

[pitsss]

arkadaşlar;
kitap 1 kitabını açarken kullanıcı giriş paneli geliyor orada isimlere göre şifreyi girip kitaba ulaşılıyor.
ben mesela hüseyin ismi ile girş yaptım diyelim.bu yapmış olduğum giriş isminin
anasyfa isimli sayfanın b3 hücresine yadırılmasını istiyorum. bunu nasıl yaparım?
yani hüseyingirince b3 hücresinde hüseyin yazsın murat girince murat yazsın.
bu arada kitap 1 in şifreleri
kullanıcı adı şifre
hüseyin 123456
murat 123456

 

[Korhan Ayhan]

Selamlar,

Kitap1 isimli dosyanızdaki "GirişYap" isimli makroyu aşağıdaki ile değiştirip denermisiniz.

Sub GirişYap()
Dim Bak
If Not BilgilerBoşmu Then Exit Sub
    For Bak = 2 To KullanıcıSayısı + 1
        If cbKullanıcıAdı.Text = Sayfa.Range("A" & Bak) And txtParola.Text = Sayfa.Range("B" & Bak) Then
            Kapa = False
            KullanıcıAdı = cbKullanıcıAdı.Text
            [COLOR=RED][B3] = cbKullanıcıAdı.Text[/COLOR]
            Unload Me
            Exit Sub
        End If
    Next
    MsgBox "Parola hatalı." & vbLf & "Lütfen parolanızı kontrol edip yeniden deneyiniz.", vbCritical, Başlık
    txtParola.SetFocus
Exit Sub
Hata:
End Sub

 

[pitsss]

Selamlar,

Kitap1 isimli dosyanızdaki "GirişYap" isimli makroyu aşağıdaki ile değiştirip denermisiniz.

Sub GirişYap()
Dim Bak
If Not BilgilerBoşmu Then Exit Sub
    For Bak = 2 To KullanıcıSayısı + 1
        If cbKullanıcıAdı.Text = Sayfa.Range("A" & Bak) And txtParola.Text = Sayfa.Range("B" & Bak) Then
            Kapa = False
            KullanıcıAdı = cbKullanıcıAdı.Text
            [COLOR=RED][B3] = cbKullanıcıAdı.Text[/COLOR]
            Unload Me
            Exit Sub
        End If
    Next
    MsgBox "Parola hatalı." & vbLf & "Lütfen parolanızı kontrol edip yeniden deneyiniz.", vbCritical, Başlık
    txtParola.SetFocus
Exit Sub
Hata:
End Sub

Sayın COST_CONTROL cevabınız için çok teşekkür ederim.çok işime yaradı . sağolun.