aktif sekmeye değil belirlediğim sekmeye yazması

[zulfuernek]

aşağıdaki formülde kırmızı ile belirlediğim kısım aktif sekmeye kaydediyor. benim istediğim ise "MAİLLER" sekmesine yazması. bir türlü yapamadım. kafam durdu artık lütfen yardım

Private Sub CommandButton13_Click()
If TextBox7.Value = "" Then 'BOŞ GEÇEMEZSİNİZ
MsgBox ("Mail adresi yazmadınız.")
Exit Sub
End If


Dim MAİLLER As Long, Say As Byte 'VERİYİ VE SIRADAKİ BOŞ SATIRA YAZ
MAİLLER = Range("A65536").End(3).Row + 1
Cells(MAİLLER, "A") = TextBox7.Text

İŞLEM ÇÖZÜLDÜ

Private Sub CommandButton13_Click()
Sheets("MAİLLER").Select ' ÖNCE İLGİLİ SEKMEYİ AÇAR


If TextBox7.Value = "" Then 'BOŞ GEÇEMEZSİNİZ
MsgBox ("Mail adresi yazmadınız.")
Exit Sub
End If


Dim MAİLLER As Long, Say As Byte 'VERİYİ VE SIRADAKİ BOŞ SATIRA YAZ
MAİLLER = Range("A65536").End(3).Row + 1
Cells(MAİLLER, "A") = TextBox7.Text

 

[kemal turan]

Merhaba
Sayfa adını yazıp deneyin

Sheets ("sayfa adı").Range("A65536").End(3).Row + 1

 

[zulfuernek]

kemal hocam sayfa adını yazınca hata veriyor. bu kodu denedim yanılmıyorsam. ama çözümü farklı yolla buldum. buton kodunu ilk önce safya belirlemekle çözüme ulaştım. belirlediğim sayfayı seçince mecburen aktif sayfa da istediğim sayfa oluyor )) teşekkür ediyorum ilginiz için

 

[halit3]

kırmızı bölümü silin

Dim MAİLLER As Long, Say As Byte 'VERİYİ VE SIRADAKİ BOŞ SATIRA YAZ
MAİLLER = Range("A65536").End(3).Row + 1
Cells(MAİLLER, "A") = TextBox7.Text

bu bölümüde bununla değiştirin.

Dim MAİLLER As Long, Say As Byte 'VERİYİ VE SIRADAKİ BOŞ SATIRA YAZ
MAİLLER = [COLOR="Red"]Sheets("MAİLLER").[/COLOR]Range("A65536").End(3).Row + 1
[COLOR="red"]Sheets("MAİLLER").[/COLOR]Cells(MAİLLER, "A") = TextBox7.Text