Userform minimize ve maximize etmek

[levuu]

İyi tatiller.

Ekteki dosyaya tam ekran ve minimize işlevi ekledikden sonra hata vermektedir. Bu işlevi kaldırırsak kaydet bul sil işlevleri düzgün çalışmaktadır.?

Nedeni...?


Teşekkürler.

 

[hamitcan]

Option Explicit

kullandığınız için değişken tanımlaması yapmanız gerekiyor.

kaydet makronuzun içine aşağıdaki satırı ekleyin.

Dim satır As Long

 

[levuu]

Dim satır As Long

satırı eklendi gene hata alınıyor. hata mesajı ektedir.

 

[hamitcan]

Mesajınızdan nereye eklediğinizi göremedim.
İlgili kodu aşağıdaki ile değiştirin.

Private Sub CommandButton8_Click()
'Kaydet
Dim satır As Long
satır = [a65536].End(3).Row + 1
Cells(satır, 1).Value = ComboBox1.Text
Cells(satır, 2).Value = TextBox1.Text
Cells(satır, 3).Value = TextBox2.Text
Cells(satır, 4).Value = TextBox3.Text
Cells(satır, 5).Value = TextBox4.Text
Cells(satır, 6).Value = TextBox5.Text
Cells(satır, 7).Value = TextBox6.Text
Cells(satır, 8).Value = TextBox7.Text
Cells(satır, 9).Value = TextBox8.Text

   ProgressBar1.Visible = True
Dim i As Integer
  For i = 1 To 1000
    ProgressBar1.Value = (i / 1000) * 100
    DoEvents
  Next i
  MsgBox "Kayıt Tamamlandı!!!"
ProgressBar1.Visible = False

End Sub

 

[levuu]

ilginize teşekkürler.
Vermiş olduğunuz kodlar zaten form üzerinde ama hata veriyor.

 

[hamitcan]

Sorun yine aynı. Değişken tanımlaması yapmamanızdan kaynaklanıyor.
Aşağıdaki satırı, bul makrosunun içine ekleyin.

Dim hucre As Variant

 

[levuu]

teşekkürler
görüşmek dilegiyle