UserForm2 den Kayıt Girme

[aprol]

Arkadaşlar öncelikle biçimi anlatayım, elimde bir excel tabosu var Format hazır bunu bir Sayfada Boş Tablo olarak tutmak istiyorum ve daha sonrasında UserForm2 den gireceğim hertürlü bilgiyi Kayıtlı Formatım üzerinde değilde Yeni bir sayfa açılığ formun Copyasının üserine yazılmasını istiyorum.

Yani bir tane "Boş" adında Sayfa olacak ve UserForm2 de her Yeni Sayfa butonuna basışımda "Boş" sayfasını En sona taşıyacak ve taşıyınca ismi Boş(2) değilde "Kart No (1) Kart No (2) ...." şeklinde sıralanacak.

UserForm2 yi açmak için UserForm1 üzerinden "UserFomr2" butonuna basarak açıyorum, öyle kalmasını istiyorum

Bu zor sorunu çözdükten sonra geldik ikinci kısıma,

UserForm2'de "Yeni Sayfa" butonunu tıkladıktan sonra Sona Kopyası oluşan "Kart No " Sayfasının içerisindeki verilerin UserForm2 den girilmesini istiyorum,

Örneğin;

TextBox1 'e girilen verinin En son oluşan sayfanın içerisinde ki BAŞ HEKİM yazısının devamında bulunan iki nokta ":" 'dan sonra gelen ilk hücreye yani H11 hücresine eklenmesini ve tüm veriler girildikten sonra Çalışma kitabını kaydetmek istiyorum, bu işlemide UserForm2 de bulunan "Kaydet" butonu ile yapmak ve eğer kaydetmeyeceksem "Çıkış" Butonuna basarak UserForm2 nin kapanmasını ve "Yeni Sayfa" butonuna basınca oluşan KartNo sayfasının Silinmesini istiyorum.

Yine çok şey istediğimin farkındayım, bunun yanı sıra canınızın sağlığını ve mutluluğunuzu isterim..

İlgilenen Arkadaşlara çok Teşekkürler.

 

[Ayhan Ercan]

sayın aprol;

"yeni sayfa" butonuna su kodu ilave ederseniz istediğiniz gibi bişey olacak

Private Sub CommandButton2_Click()
Dim say As Integer
say = Worksheets.Count
Sayfa2.Select
Sayfa2.Copy After:=Sheets(say)
ActiveSheet.Name = "Kart No " & say + 1
End Sub


ama Kayıt No (5) gibi olmasını sağlayamadım. kayıt no dan sonra gelen rakam parantez içinde olmadıda Kayıt No 5 oldu gibi. vaktim daraldığı için diğer yönüne bakamadım. bakabilirsem diğerlerine de çözüm bulmaya çalışırız..

 

[aprol]

Private Sub CommandButton2_Click()
Dim say As Integer
say = Worksheets.Count
Sayfa2.Select
Sayfa2.Copy After:=Sheets(say)
ActiveSheet.Name = "Kart No " & say + 1
End Sub

Bu kodu yeni sayfa butanuna eklediğim zaman, makroyu çalıştırıyorum ve yeni sayfa butonuna basıyorum fakat sonuç;

HATA Sayfa2.Select

 

[Levent Menteşoğlu]

Sayfa eklemek için aşağıdaki kodu deneyin. 1.sayfayı kopyalar.

[vb:1:401df87fff]Private Sub CommandButton2_Click()
Sheets(1).Copy After:=Sheets(Sheets.Count)
End Sub
[/vb:1:401df87fff]

 

[Levent Menteşoğlu]

Textboxları sayfaya kaydetmek için kaydet butonuna aşağıdaki kodu yazın. Ben örnek olarak bir textbox1'in H11 hücresine bağlantısını yazdım.

[vb:1:9f142b4770]Private Sub CommandButton1_Click()
[h11] = TextBox1
.
.Diğer textbox bağlatılarını bu araya yazın.
.
ActiveWorkbook.Save
End Sub[/vb:1:9f142b4770]

Son yazılan sayfanın silinmesi içinde çıkış butonuna aşağıdaki kodu yazın.

[vb:1:9f142b4770]Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Unload Me
End Sub
[/vb:1:9f142b4770]

 

[aprol]

Sayfa eklemek için aşağıdaki kodu deneyin. 1.sayfayı kopyalar.

[vb:1:af21a83110]Private Sub CommandButton2_Click()
Sheets(1).Copy After:=Sheets(Sheets.Count)
End Sub
[/vb:1:af21a83110]

sayın leventm çok teşekkür ederim evet dediğiniz gibi yaptım ve şu haliyle son derece güzel çalışıyor,

sayfa ekleme işini geçtikten sonra hücresel tanımlama yaparak aktif sayfanın herhangi hücresine UserForm dan veri göndermek kaldı sırada, bunuda çözebilirsem aşşağı yukarı çalışma kitabım tamamlanacak. Tabi birde çıkış butonuna basılınca eklenen son sayfayı kaydetmeden çıkması yada bunun için iptal butonuda kullanabiliriz

Birde bir konu daha danışmak istiyorum, Durum Çubuğun da Hazır yazısının yerine daha farklı bir kelime yada cümle yazdırmak için nasıl bir yol izlenmesi gerek?

tekrar teşekkürler ilginize

 

[Levent Menteşoğlu]

Diğer sorularınızada cevap yazmıştım. Alıntı yaptığınız mesajımdan sonra bir mesaj daha gönderdim. Sanırım gözünüzden kaçtı.

Durum Çubuğun da Hazır yazısının yerine daha farklı bir kelime yada cümle yazdırmak için nasıl bir yol izlenmesi gerek?

Aşağıdaki kodu kullanabilirsiniz.

[vb:1:9499cd4faa]Application.StatusBar = "merhaba"
[/vb:1:9499cd4faa]

 

[aprol]

Sayın leventm herşey için çok teşekkür ederim ilk ve son yadıklarınızı uyguladım sonuç başarılı şimdi diğer textbox ve çıkış butonu hakkındaki yazdıklarınızı da deniyorum ben başarılı olacağından şimdiden eminim, herşey için tekrar çok saolun

 

[aprol]

şimdi de şöyle bir sorunum oldu, hücrelerin içeriğini değiştiriyorum ve forumu kaydediyorum yeni sayfa dediğim zaman yeni sayfaya geçiyor ve sayfa içerisinde ki Rakamsal verilerin tamamını formül gibi algılıyor sanırım, hücrelerin sol üst köşesinde yeşil üçgen ve seçince de ünlem çıkıyor. bu görüntüyü nasıl değiştiririm.

birde TextBox larımın tamamının karekter yapsısı ve Font büyüklüğü aynı olmasına rağmen bazı TextBox 'lara veri girerken diğerlerinden daha küçük bir punto ile görünüyor bu görüntüyü nasıl düzeltirim.

Son olarak birşey daha var aynı userforum üzerine sekmeler eklemek istiyorum birincisi kayıt sekmesi halihazırda bulunan şu anki sistem. ikinciside kayıt düzeltme sekmesi..

Şimdiki öğrenmek istediğim yol, kayıt düzenleme sekmesine girdiğim bir seçenek kutusu olacak ve o seçenek kutusuna hangi sayfayı girersem (seçersem) bu sekme üzerine kayıt sekmesindeki formun aynısı açılacak ve açılan forumun içerisinde değiştirmem için verilerin tamamı çağırılacak. Yani "Kayıt No (1)" sayfasını çağırdığım zaman içinde bulunan daha önce kaydettiğim verilerin tamamı tekrar karşıma çıkacak ve düzenleme işlemini yapacağım.

Düzenlediğim belgenin son hali aşağıdaki gibidir.

İlgilenen arkadaşlara çok teşekkür ederim, gerçekten buraya kadar beni büyük bir dertten kurtardınız. Bundan sonrasında da sorun çözmemde bana yardımcı olacağınıza yürekten inanıyorum,

sağlıcakla kalın.

 

[xxrt]

hücrelerin sol üst köşesinde yeşil üçgen ve seçince de ünlem çıkıyor. bu görüntüyü nasıl değiştiririm.

Private Sub CommandButton1_Click()
...
..
.
[o10] = (TextBox18 * 1)

Diğerlerini bir başlayın.Takıldığınız yerleri sorarsınız.. :uyku:

 

[aekturk]

Leventm hocanın ellerine sağlık çok güzel olmuş.. teşekkürler Levent Hoca..

 

[aprol]

Private Sub CommandButton1_Click()
...
..
.
[o10] = (TextBox18 * 1)

sayın xxrt evet dediğim şekilde üçgenler kalktı bu şekilde fakat şimdi daha büyük bir sorun çıktı bu kodları girince, eğer yeni sayfada boş alan bırakırsam ki bu genelde olacak runtime 9 hatası veriyor yani [o10] = (TextBox18 * 1) bu TextBox'a veri girmezsem bu sefer bu hata ile karşılaşıyorum.

Birde şu anki asıl sorunum veriyi çağırmak düzenlemek ve değiştirmek. malesef benim kaydım diğerlerinden farklı olduğu için sitede böyle bir uygulama veya anlatım göremedim. bunu da şu şekilde planlamıştım, sayfalar arası arama kodu istiyorum yani her sayfada farklı bir kayıt olacağı için hem kayıt no yani sayfalara belirlediğim numaralardan bulup düzeltme. hemde kurum adı içerisinden bir kelime girilerek arayıp düzeltme.

birde UserForm'a bir temizle butonu oluşturmak istiyorum. bunun için hangi kodu yazabilirim. yani UserForm üzerindeki verileri silecek bir buton.

ilginize teşekkür ederim tüm arkadaşlara emeklerinden dolayı tekrar saygılarımı iletirim.

iyi çalışmalar