Active Sayfaya Kayıt Nasıl

[mustafakoker]

Selam Arkadaşlar
Ekli dosyamda bir tane form kullanarak hangi sayfadaysam o sayfaya Yani active sayfaya nasıl kayıt yaparım

 

[Orion1]

dosyanıza bakmadım.,
Ama aktif sayfa istiyorzsunuz.
Ben misal vereyim.
A1 hücresine (Aktif sayfada) kayıt

activesheet.range("A1").value = "E V R E N"

 

[mustafakoker]

Cevabınız İçin Teşekkürler Evren Bey
Fakat dosyam üzerinde küçük bir çalışma ile gösterebilirmisiniz?
Textboxların hepsi dolu iken hangi sayfayı açmış isem o sayfanın iligili yerlerine kayıt yapacak

 

[Orion1]

Cevabınız İçin Teşekkürler Evren Bey
Fakat dosyam üzerinde küçük bir çalışma ile gösterebilirmisiniz?
Textboxların hepsi dolu iken hangi sayfayı açmış isem o sayfanın iligili yerlerine kayıt yapacak

activesheet.range("A1").value = textbox1.value

 

[mustafakoker]

Teşekkür ederim Evren Bey
bir sorum daha olacak yardımlarınızla

bir şablon sayfam var o sayfayı yenı kayıt butonu ile text box1 e verdiğim isimle yeni sayfa olarak oluşturuyorum
sorum şu
eğer aynı sayfa varsa uyarı versin ve kayıt yapmasın
msg box"textbox1 & sayfa daha önceden açılmıştır Lütfen Farklı Bir isim giriniz"

 

[Orion1]

Teşekkür ederim Evren Bey
bir sorum daha olacak yardımlarınızla

bir şablon sayfam var o sayfayı yenı kayıt butonu ile text box1 e verdiğim isimle yeni sayfa olarak oluşturuyorum
sorum şu
eğer aynı sayfa varsa uyarı versin ve kayıt yapmasın
msg box"textbox1 & sayfa daha önceden açılmıştır Lütfen Farklı Bir isim giriniz"

aşağıdaki kodlar işinizi görür.

Dim sh As Worksheet
For Each sh In Worksheets
    If UCase(Replace(Replace(sh.Name, "i", "İ"), "ı", "I")) = _
    UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) Then
        MsgBox TextBox1.Text & vbLf & "Bu sayfa ismi var işelm yapılmadı.", vbCritical, "UYARI"
        Exit Sub
    End If
    '--------kodlarınız
Next