Userform ve Vba Hakkında Basit 2 Soru

[Bwtunc]

Merhaba Arkadaşlar,

2 Adet sorum var bunlardan biri form tasarımının bir özelliği ile ilgili diğeri ise kod ile ilgili sorular ile ilgili değerli yorumlarınızı paylaşırsanız sevinirim.

Soru 1:

Userform açıldığında klasik windows mavi penceresinin görünmemesi için ne yapabilirim. Yanı userform bölümünde olan mavi çerçeve görünsün istemiyorum.



Soru 2.

Dim SonSatır As Variant


Private Sub CommandButton1_Click()


If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" Then

If IsNumeric(TextBox2.Value) And IsNumeric(TextBox3.Value) And IsNumeric(TextBox4.Value) And IsNumeric(TextBox5.Value) And IsNumeric(TextBox6.Value) Then
SonSatır = WorksheetFunction.CountA(Worksheets("İşletme Verileri").Range("A:A")) + 1


Worksheets("İşletme Verileri").Cells(SonSatır, 1) = TextBox1.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 5) = TextBox2.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 6) = TextBox3.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 7) = TextBox4.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 8) = TextBox5.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 9) = TextBox6.Value



Else

MsgBox "Lütfen sadece rakam giriniz!"
End If

Else

MsgBox "Tanımlı alanlar boş bırakılamaz"

End If

MsgBox "Veriler başarıyla Kaydedildi"

End Sub

Şeklinde kod hazırladım ama "Veriler Başarıyla Kaydedildi" mesajı kaydet butonuna bastıktan sonra her koşulda çalışıyor. Yani kendinden önce gelen uyarıları gösterip kaydetmese bile "Veriler başarıyla Kaydedildi" mesajını veriyor. Ben sadece gerçekten kayıt işlemi gerçekleştikten sonra mesaj versin istiyorum.

Youtube videolarından derme izleyerek derme çatma hazırladığım kodlardır.

Şimdiden desteğiniz için teşekkürler.

 

[Korhan Ayhan]

Merhaba,

1. Sorunuz;

Başlıksız Çerçevesiz Userform

Selamlar saygılar. Şuanda Aşağıda verdiğim kodlar iie başlıksız(x kapatma bölümü) olarak userformlarımı kullanıyorum. kod1(userform kod bölümü): Private Sub UserForm_Activate() Dim lngFormHwnd As Long Dim lngFormStyle As Long If Application.Version < 9 Then lngFormHwnd =...

www.excel.web.tr

2. Sorunuz;

Mesaj veren satırı ilk ELSE satırının üstüne alıp deneyin.

 

[Bwtunc]

Merhaba,

1. Sorunuz;

Başlıksız Çerçevesiz Userform

Selamlar saygılar. Şuanda Aşağıda verdiğim kodlar iie başlıksız(x kapatma bölümü) olarak userformlarımı kullanıyorum. kod1(userform kod bölümü): Private Sub UserForm_Activate() Dim lngFormHwnd As Long Dim lngFormStyle As Long If Application.Version < 9 Then lngFormHwnd =...

www.excel.web.tr

2. Sorunuz;

Mesaj veren satırı ilk ELSE satırının üstüne alıp deneyin.

Hızlı cevap verdiğiniz için teşekkür ederim. 2. Cevabınız için teşekkür ederim. Sorun çözüldü sayenizde. 1. Cevabınız için ise teşekkür ederim. Fakat mesaj yazmadan önce o başlığı okumuştum son yorumu görünce vazgeçmiştim. Acaba properties özelliklerinde bunu yapma imkanımız varsa deneyeceğim yoksa çok önemli değil.

Tekrardan teşekkürler.

 

[Korhan Ayhan]

Bahsettiğiniz çerçevesiz form için API kodlaması kullanmanız gerekir. Yani bu çerçeveyi formun özellikler penceresinden kaldıramazsınız.

Önerdiğim linkte paylaşılan harici kaynaktaki kodlar ekli dosyada paylaşılmıştır. Orada form aynı zamanda transparan da yapılmış. Ben bu özelliği kaldırdım.