TextBox'a yazılanı sayfaya ekleme

[teksen]

Arkadaşlar merhaba,

TextBox1 e yazdığım yazıyı ekle butonuyla aktif olan sayfaya yazdırabiliyorum.Fakat ben ekle isimli sayfaya yazdırmak istiyorum ama kullandığım kodlarla userform üzerinde bu işlemi yapamıyorum.kodlarda nasıl bir hata var acaba?

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
If TextBox1 = "" Then
MsgBox "Önce verileri girmelisiniz.!", vbCritical
Exit Sub
End If
'veri gir
sut = [b65536].End(3).Row
Range("b" & sut + 1) = TextBox1
'sutun ayarla
Cells.EntireColumn.AutoFit
'sıra no ver

ActiveSheet.Protect
End Sub

 

[hamitcan]

Range("b" & sut + 1) = TextBox1

satırını

sheets("ekle").Range("b" & sut + 1) = TextBox1

şeklinde değiştirin.

 

[teksen]

Teşekkür ederim Ekle isimli sayfa seçildiğinde normal çalışıyor.yalnız Sayfa1 seçili iken yaptığımda hata veriyor.Kodun içine Ekle isimli sayfayı seçmesi için ne ilave etmemiz gerekir acaba?

 

[Orion1]

Kodu aşağıdaki şekilde değiştirin.

sut = [ekle!b65536].End(3).Row

 

[teksen]

Teşekkür ederim

 

[Orion1]

Teşekkür ederim

Rica ederim.
İyi çalışmalar.