StatusBar'da yazan ismi Sayfaya Almak

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile, kullanıcı adını StatusBar'a alıyorum,

Kod'a ilave yaparak, StatusBar'a alınan ismin, "ANASAYFA" isimli sayfada B10 hücresine yazılmasını arzuluyorum.

Teşekkür ederim.

Sub Sayfaları_Aç()

 If Application.StatusBar = "Aydemir" Then
 UserForm1.Show

 ElseIf Application.StatusBar = "Haydar" Then
 UserForm3.Show
 
 ElseIf Application.StatusBar = "Aydoğan" Then
 UserForm4.Show
 
 ElseIf Application.StatusBar = "Mustafa" Then
 UserForm5.Show
 
 End If
 
End Sub

 

[Ömer BARAN]

Merhaba.

Bence bunu kendiniz de bulabilirdiniz.
En basit olarak, mevcut kod'da End Sub satırından önce aşağıdaki satırı ekleyin.
.

Sheets("ANASAYFA").[B10] = Application.StatusBar

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Önermeniz doğrultusunda ilave yaptım, ancak sonuç alamadım,

Eklediğim kod modül'de idi, bundan dolayı olabilir mi ?

Teşekkür ederim.

Sub Sayfaları_Aç()

 If Application.StatusBar = "Aydemir" Then
 UserForm1.Show

 ElseIf Application.StatusBar = "Haydar" Then
 UserForm3.Show
 
 ElseIf Application.StatusBar = "Aydoğan" Then
 UserForm4.Show
 
 ElseIf Application.StatusBar = "Mustafa" Then
 UserForm5.Show
 
 End If
 
Sheets("ANASAYFA").[B10] = Application.StatusBar

End Sub

 

[Ömer BARAN]

İsterseniz bir de; belirttiğim satırı, tüm UserFormların Initalize kodlarının End Sub satırından öncesine ekleyerek deneyin.
.

 

[1Al2Ver]

Sayın Ömer BARAN, tekrar merhaba,

Sub Sayfaları_Aç()

 If Application.StatusBar = "Aydemir" Then
 UserForm1.Show
 [COLOR="Red"]Sheets("ANASAYFA").[B10] = Application.StatusBar[/COLOR]

 ElseIf Application.StatusBar = "Haydar" Then
 UserForm3.Show
 [COLOR="red"]Sheets("ANASAYFA").[B10] = Application.StatusBar[/COLOR]

 ElseIf Application.StatusBar = "Aydoğan" Then
 UserForm4.Show
[COLOR="red"] Sheets("ANASAYFA").[B10] = Application.StatusBar
[/COLOR]
 ElseIf Application.StatusBar = "Mustafa" Then
 UserForm5.Show
 [COLOR="red"]Sheets("ANASAYFA").[B10] = Application.StatusBar
[/COLOR]
 End If
 
End Sub

Önerileriniz ve yönlendirmeleriniz sonucu, yukarıdaki şekilde düzenledim, sorun halloldu.