Gizlenmiş olan sayfaya veri girişi

[s.savas]

İyi geceler arkadaşlar.
Çalışma belgemde KULLANICI isminde gizli olan bir sayfam var. Bu sayfam görünür olmadan buraya veri girişi veya veri düzenlemesi yapmak istiyorum.

 

[Orion1]

Çalışmalarınızda Sayfa seçerek veya hücre seçerek işlemlerinizi yapmayınız.
Bu sizin yaptığınız programı yavaşlatır.

Sheets("KULLANICI").Range("E1").Value = "TEST59"

 

[s.savas]

Çalışmalarınızda Sayfa seçerek veya hücre seçerek işlemlerinizi yapmayınız.
Bu sizin yaptığınız programı yavaşlatır.

Sheets("KULLANICI").Range("E1").Value = "TEST59"

Evren hocam teşekkür ederim.
Onay Defteri 2011 isimli sayfada aktif olan userform ile gizli olan KULLANICI isimli sayfaya veri girmek istiyorum.
Aşağıdaki kodu düzenlememde yardımcı olurmusunuz.

Private Sub CommandButton1_Click()
Dim satır As Long, k As Byte

satır = [KULLANICI!A65536].End(3).Row + 1

If TextBox1.Value = "" Then
TextBox1.SetFocus
MsgBox "Kullanıcı Adını Giriniz!!", vbInformation, "s.s."
Exit Sub
End If

If TextBox2.Value = "" Then
TextBox2.SetFocus
MsgBox "Şifre Giriniz!!", vbInformation, "s.s."
Exit Sub
End If

Cells(satır, "A").Value = Label1 'Sıra No
Cells(satır, "B").Value = TextBox1.Value 'Adı Soyadı
Cells(satır, "B").HorizontalAlignment = xlLeft
Cells(satır, "C").Value = TextBox2.Value 'Şifre

TextBox1.Value = Empty
TextBox2.Value = Empty

Unload Me
frmKULLANICI.Show 0
Call UserForm_Initialize

End Sub

 

[Orion1]

Evren hocam teşekkür ederim.
Onay Defteri 2011 isimli sayfada aktif olan userform ile gizli olan KULLANICI isimli sayfaya veri girmek istiyorum.
Aşağıdaki kodu düzenlememde yardımcı olurmusunuz.

Merhaba.
Bir önceki mesajımda vermiştim örnek kodu.