Userform ile gizli sayfaya veri aktarımı

[ahyar]

Sn arkadaşlar userformumda aşağıdaki kodu kullanıyorum fakat aktarım için başvurduğu sayfa gizli nasıl bir değişiklik yapmam gerekiyor acaba şimdiden teşekkürler.

 Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Son_Dolu_Satir = Sheets("Perakende Liste").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("Perakende Liste").Range("A" & Bos_Satir).Value = _
                    Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
    Sheets("Perakende Liste").Range("B" & Bos_Satir).Value = TextBox1.Text
    Sheets("Perakende Liste").Range("C" & Bos_Satir).Value = TextBox2.Text
    Sheets("Perakende Liste").Range("d" & Bos_Satir).Value = TextBox3.Text
    Sheets("Perakende Liste").Range("e" & Bos_Satir).Value = TextBox4.Text
     
     MsgBox "Başarı ile eklenmiştir"
    Unload UserForm2
Else

    MsgBox "Formu Doldurmadan Kayıt İşlemi Yapılamaz"
    
    End If
 
 
End Sub

 

[Emir Hüseyin Çoban]

. . .

Deneme yaptınız mı.
Gizli sayfaya aktarmak için kodlarda ek bir işlem yapmak gerekmez.

. . .

 

[ahyar]

sayfa açıkken oluyor gizlediğim zaman hata veriyor

 

[harun53aydin]

range yerine cells nesnesini dene, yada sayfa ismi değil de sayfanın koduyla yazmayı dene

 

[ahyar]

hallettim hocam bir yerde atlamışım

 

[zendent]

sayfa açıkken oluyor gizlediğim zaman hata veriyor

tam da bu sorunu yaşıyorum.
kullanıcı giriş zamanlarını kaydetmek itiyorum. admin olmayanlarda kayıt sayfasını gizlediğim için giriş kaydı komutunu işlemiyor ne yapmalıyım nasıl çözdünüz

 

[Korhan Ayhan]

Merhaba,

Ekte gizli sayfaya kayıt yapan örnek kodlama bulunmaktadır.

Görüleceği üzere sayfanın gizli olması kayıt yapılmasına engel olmuyor...