Sayfa açmasın, textbox'a veri getir v.b.

[ziya]

Forum'dan öğrenerek boyumu aşan bir işe kalktım.
Dosya içinde anlattığım birbiriyle ilgili 4 sorunum var.
Ayrıca, lira kuruş çalışması yapmam gerekiyor. Lira kuruş için özel çalışmalar var onu mu kullanayım veya Masked edit kontrol mu kullanayım. MEK kullanmak daha doğru olursa userforma nasıl eklerim.
İlgilenen ve yardımcı olanlara teşekkür ediyorum.
Selamlar,

 

[Ferhat Pazarçevirdi]

SORUN 1- Aynı ad ile yeni sayfa açamasın.

CommandButton5_Click olayına şu kodları ilave edin...

[COLOR=Gray]Private Sub CommandButton5_Click()
Dim wsNew As Worksheet[/COLOR]

[COLOR=Black]For Each wsNew In ThisWorkbook.Worksheets
    If wsNew.Name = TextBox63 Then
        MsgBox "Aynı isimde bir sayfa zaten var", vbCritical, "Uyarı"
        Exit Sub
    End If
Next[/COLOR]
[COLOR=Gray]
Set wsNew = Sheets.Add
   
    wsNew.Move After:=Worksheets(Worksheets.Count)
    wsNew.Name = TextBox63.Text
            
    If TextBox63.Text <> "" Then[/COLOR]

SORUN 2- Textboxlara veri getir kodlarını yazmadan önce kaydettiğim veriler Textbox'lara geliyor. Yeni kaydettiklerim , yani "textboxlara veri getir" kodlarını yazdıktan sonraki verilerim gelmiyor. (Örnek : DENEME firması Mart ayı bilgeleri gelmiyor)

Bu kısmı anlamadım ...

SORUN 3- Combobox2 de aylar var. 12 olan ay adı çalışırken 24 filan oluyor.

Bunun nedeni, Combonun Enter olayına kod yazdığınız içindir .. Enter'e yazdığınız kodları Userform'un Initialize olayına yerleştirin.

SORUN 4- Firma ve tarih seçmediğimde uyarsın

Formun nasıl çalıştığını bilemediğim için, bahsettiğiniz kontrolün nereye yerleştirilmesi gerektiğini anlamadım ...

 

[ziya]

Merhaba,
Sn.Pazarçevirdi teşekkür ederim, her iki sorunum sayenizde halloldu.
Sorun 2'de TextBoxların bulunduğu multipage'i ve TextBox numaralarını vermediğim için anlamadım demekte haklısınız.
Kurcalarken (ama anlayarak) Sorun 2'yi çözdüm

Kaldı bir tek SORUN 4 , Combobox1 ve Combobox2'de gerekli seçimler yapılmamışsa uyar.

Dosyanın yeniden düzenlenmiş hali ilk mesajda . Aslında bu sorun için örnek dosyaya gerek kalmadı.
İlginize tekrar teşekkür ederim.
Selamlar,